Noktalıvirgul değerinden Arınma

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Kod:
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

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
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)
 
Üst