Noktalıvirgul değerinden Arınma

[Kemal Demir]

Arkadaslar Günaydın,

Excel Sayfasının 89. kolonunda 1000 satırlık bir verim var.
Verilerin en sağındaki " ; " değerlerinden kurtulmak istiyorum.

Bu işlemi Replace ile yapamamın nedeni veriler içerisinde ortaların ve başların ";" değerlerin kalması gerekmektedir.

Ben burada Sadece verilerin en sağındaki ";" değerinde arınmak istiyorum.
Ekte örnek Dosya mevcut.Bu konuda atladıgım / yanlıs uygulama nerededir.Bu konuda yardımcı olurmusunuz.

[vb:1:927587f355]Sub noktalivirgul()
For x = 2 To 1000
If Right(Cells(x, 89), 1) = ";" Then
Right(Cells(x, 89), 1).Value = ""
End If
Next
End Sub[/vb:1:927587f355]

 

[veyselemre]

[vb:1:7e65ce484a]Sub noktalivirgul()
For x = 2 To 1000
yeniden:
If Right(Cells(x, 89), 1) = ";" Then
Cells(x, 89) = Left(Cells(x, 89), Len(Cells(x, 89)) - 1)
GoTo yeniden
End If
Next
End Sub[/vb:1:7e65ce484a]

 

[Kemal Demir]

Sn.veyselemre,

Çok Teşekkur Ederim.


Vaktınız var ise aşagıdaki kodu biraz acıklayabilirmisiniz.

[vb:1:4d3f36e8f4]Cells(x, 89) = Left(Cells(x, 89), Len(Cells(x, 89)) - 1)[/vb:1:4d3f36e8f4]


Teşekkur Ederim.

 

[Haluk]

Sub Test()
    For x = 2 To 1000
        Do While Right(Cells(x, 89), 1) = ";"
            Cells(x, 89) = Mid(Cells(x, 89), 1, Len(Cells(x, 89)) - 1)
        Loop
    Next
End Sub

Not: Cevabı post etmekte gecikmişim ... :mrgreen:

 

[Kemal Demir]

Sn. Haluk Teşekkurler.

Bu arada Sn.Veysel emre

F8 ile adım adım giderek ne anlatmak ıstedıgını anladım.

Tekrar Teşekkurler(Haluk,V.emre)