Hücrelerden karekter silme ?

[taskoparan]

sayın arkadaşlar

2500 satırlık bir dosyam var hücrelerde sayılarda 43249 9 seklinde benim isteğim hücrelerde son 2 hücreyi silmesini istiyorum otomatikman yani rakam 43249 olmasını yardım ederseniz memnun olurum

 

[meslan]

Merhaba
Veileriniz A kolonunda olduğunu var sayalım. (Buna göre kodda düzenleme yapınız.)
Şu makroyu bir sefer çalıştırınız.

Public Sub sil()
Dim i as Integer
For i = 1 To [a65536].End(3).Row
Cells(i, "a").Value = Left(Cells(i, "a").Value, Len(Cells(i, "a").Value) - 2)
Next
End Sub

 

[ozgretmen]

Verilerinizin A sütununda olduğunu varsayarsak ; kod aşağıdaki gibidir.

Sub sil()
On Error Resume Next
For i = 1 To 2500
Cells(i, "B") = Mid(Cells(i, "A").Value, 1, Len(Cells(i, "A").Value) - 2)
Next i
End Sub

 

[janveljan]

dener misiniz?

=SOLDAN(A1;UZUNLUK(A1)-2)

 

[taskoparan]

Herkeze çok teşekkürler cevaplarınız için işime yaradı

 

[erhanertugrul20]

Arkadaşalar merhaba bi sorum olucak yardımcı olursanız sevinirim.
User formla oluşturduğumuz bir tabloda ki verilerin sadece sil butonu ile silinmesi o.k. benim sorum verilerin kaydedildiği yerde silinmeye engel olmak.Bir fikri olan varmı acaba.teşekkür ederim...