standart olmayan uzunluktaki metnin son 4 harfini diğer hücreye alma.

[benimbey]

öncelikle kolay gelsin. 2 gündür forumda arıyorum, belki vardır ve bulamamış olabilirim, o nedenle özür dileyerek başlayayım.

örnek:

A1 sütununda (çok veri var) uzunluğu ve biçimi her hangi bir ölçüde olmayan (kimisi 10 harf kimisi 5 kimisi 70 harf) metin var, bu metinlerin son dört harfini B2 sütunundaki hücrelere almak istiyorum (alındıktan sonra bu harfler A1'de kalmamalı).
=PARÇAAL ile yapamadım.
Metni Sütunlara dönüştür ile olmuyor çünkü benim metinlerde bir standart yok
=SAĞDAN(A1;4) ile oluyor ama alınan veriler yine A1'de de kalıyor (kalmaması gerekli)

rica etsem yardım edebilirmisiniz ? çok teşekkürler......

 

[Huseyinkis]

öncelikle kolay gelsin. 2 gündür forumda arıyorum, belki vardır ve bulamamış olabilirim, o nedenle özür dileyerek başlayayım.

örnek:

A1 sütununda (çok veri var) uzunluğu ve biçimi her hangi bir ölçüde olmayan (kimisi 10 harf kimisi 5 kimisi 70 harf) metin var, bu metinlerin son dört harfini B2 sütunundaki hücrelere almak istiyorum (alındıktan sonra bu harfler A1'de kalmamalı).
=PARÇAAL ile yapamadım.
Metni Sütunlara dönüştür ile olmuyor çünkü benim metinlerde bir standart yok
=SAĞDAN(A1;4) ile oluyor ama alınan veriler yine A1'de de kalıyor (kalmaması gerekli)

rica etsem yardım edebilirmisiniz ? çok teşekkürler......

Merhaba istemiş olduğunuz işlemi A1 hücresine formullerle yapmak imkansız makro ile yapılabilirlir. veya B1 hucresine =Sağdan(A1;4) c1 hücresinede =PARÇAAL(A1;1;UZUNLUK(A1)-4) formulunu kullana bilirsiniz. eger A1 hucresinde değiştirmek istiyorsanız macro ile yapmak isterseniz kodlar aşağıda..

Sub hk_Deneme()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 2).Value = Right(Cells(i, 1).Value, 4)
Cells(i, 1).Value = Mid(Cells(i, 1).Value, 1, Len(Cells(i, 1).Value) - 4)
Next
End Sub

 

[YUSUF44]

O bahsettiğiniz istediğiniz şekilde olmaz. Ancak farklı bir şekilde yapabilirsiniz. Örneğin boş bir hücreye aşağıdaki formülü yazın:

=YERİNEKOY(A1;SAĞDAN(A1;4);"")

Bu formülle A1 hücresi sağdan 4 karakteri kırpılmış hale gelir.

Daha sonra formülü aşağı doğru kopyalayın. Son olarak da o sütunu seçip kopyalayın ve A sütununa değerleri yapıştırın.

 

[benimbey]

yapamadım sanırım, yada olmadı.

çok özür, her ikisinde de olmadı (yada ben yapamadım)

ekteki dosyada A1 hücresinde yer alan metnin son 4 harfi B1 hücrsine geçecek ancak A1 hücresinden de silinecek, bu işlem A ve B sütunları boyunca devam edecek.

ilgileriniz için ayrıca teşekkür ederim.

 

[Huseyinkis]

çok özür, her ikisinde de olmadı (yada ben yapamadım)

ekteki dosyada A1 hücresinde yer alan metnin son 4 harfi B1 hücrsine geçecek ancak A1 hücresinden de silinecek, bu işlem A ve B sütunları boyunca devam edecek.

ilgileriniz için ayrıca teşekkür ederim.

Ekteki dosyayı inceleyin 2 sayfa mevcut makro ve makrosuz olarak.

 

[benimbey]

sayın "Huseyinkis" çok teşekkür ederim, hem makrolu sayfa, hem makrosuz sayfa işimi görecek.

tekrar teşekkürler. hayırlı günler.