sondan karekter alma

[steppe]

Sub bastan_11_karekter_al()
son = Range("A65536").End(3).Row
For sat = 2 To son
If Len(Range("A" & sat)) Then
Range("A" & sat) = Mid(Range("A" & sat), 1, 11)
End If
Next
End Sub

Yukarıdaki kodla A sütunundaki hücrelerde baştan 11 karakter kalıyor diğerleri siliniyor.

İstediğim bunun tam tersi sondan 11 karakter kalsın diğerleri silinsin.

Yardımlarınız için şimdiden teşekkürler.

 

[turk-x]

Right(Range("A" & sat),11) olarak deneyin

 

[steppe]

Sondan karakter alma

Sub bastan_11_karekter_al()
son = Range("A65536").End(3).Row
For sat = 2 To son
If Len(Range("A" & sat)) Then
Range("A" & sat) = Right(Range("A" & sat), 1, 11)
End If
Next
End Sub


Şeklinde denediğimde hata verdi.

 

[turk-x]

Merhaba;
Kodunuzda Right(Range("A" & sat), 1, 11) Kırmızı yazılan kısmı fazladan yazmışsınız. Kodunuzu aşağıdaki ile değiştirirseniz sorun çözülür.

Sub bastan_11_karekter_al()
son = Range("A65536").End(3).Row
For sat = 2 To son
If Len(Range("A" & sat) > 11) Then
Range("A" & sat) = Right(Range("A" & sat), 11)
End If
Next
End Sub