Makro ile sütunda bulunan hücreleri kırpmak

[soldier_86]

Merhabalar,

excelde fatura numaralrını tuttuğum bir sütun var. faturaları numaraları fatura kesilirken başına farklı karakterler gelebiliyor. örneğin f15p00000658986 gibi
ben bunu exelde yalnızca son 6 hane kalacak şekilde ayarladım(658986), ancak bu sayfaya bütün bir ayın fatura numaralarını alacağım için makroyu 2.kez çalıştırdığımda daha önceki günlerdeki son 6 haneyide siliyor. örnek dosyayı ekliyorum yardımcı olabilirseniz sevinirim.

 

[asi_kral]

Merhabalar,

excelde fatura numaralrını tuttuğum bir sütun var. faturaları numaraları fatura kesilirken başına farklı karakterler gelebiliyor. örneğin f15p00000658986 gibi
ben bunu exelde yalnızca son 6 hane kalacak şekilde ayarladım(658986), ancak bu sayfaya bütün bir ayın fatura numaralarını alacağım için makroyu 2.kez çalıştırdığımda daha önceki günlerdeki son 6 haneyide siliyor. örnek dosyayı ekliyorum yardımcı olabilirseniz sevinirim.

Merhaba
Sizin kodda değişiklik yapılacak ise

Sub duzelt()
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Len(Cells(i, 2)) > 6 Then
Cells(i, 2) = Trim(WorksheetFunction.Substitute(Cells(i, 2), Left(Cells(i, 2), 5), ""))
End If: Next
End Sub

farklı bir kod yazılırsa

Sub duzelt()
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "B") = Right(Cells(i, "B"), 6)
Next
End Sub

Bu şekilde olur.

 

[soldier_86]

Teşekkür ederim. Gayet güzel oldu

 

[asi_kral]

Teşekkür ederim. Gayet güzel oldu

Kolay gelsin.