Hücrede soldan dört karakteri kaldır

[Feylosof]

Merhaba

SAĞDAN(C6;UZUNLUK(C6)-4) Bu fonksiyonun VBA karşılığı nedir? C sütununda 2022 ile başlayan numaralar var. 2022 yi silip sadece devamındaki rakamları bırakacak şekilde bir kod.

 

[Greenblacksea53]

Sub BasiSil()
    For i = 1 To Sayfa1.Range("c65536").End(3).Row Step 1
      
        bag = Mid(Range("c" & i), 4, 24)
        Range("c" & i) = bag
    Next
MsgBox ("işlem tamamlanmıştır.")

End Sub

Buyrun kodu mödüle ekleyip çalıştırabilirsiniz

 

[Feylosof]

SAYIN @Greenblacksea53 İlginiz için teşekkür ederim. Kodunuz 2022 sayısının sadece 202 sini sildi. 4 rakamını 5 yapınca istediğim gibi oldu. Fakat sanki bir sorun var gibi 4 karakter silineceğine göre kodun doğru sonuç vermesi gerekir.

 

[Greenblacksea53]

Sub BasiSil()
Dim a, b   As Long
   
    For b = 2 To Cells(Rows.Count, "C").End(3).Row
    a = Len(Range("c" & b))
        Range("C" & b) = Right(Range("C" & b), a - 4)
    Next b
    MsgBox ("işlem tamamlanmıştır.")
   
End Sub

Sayıların uzunluğu değişken olduğundan ben ona bakmamıştım, bunu dener misin ?

 

[Feylosof]

@Greenblacksea53 Şimdi tam oldu. Çok teşekkür ederim. Elinize sağlık.

 

[ÖmerBey]

Merhaba,
Mid komutu Excel'deki PARÇAAL fonksiyonu gibi çalışır: Metin, Başlangıç sayısı, Karakter sayısı... Bu sebeple baştaki 4 karakteri almamak için başlangıç karakterini 5 olarak girmelisiniz. Bununla birlikte uzunluk belirtmeniz zorunlu değildir. Sadece başlangıç karakterini girdiğiniz zaman geri kalan verinin tamamı alınacaktır. Mid(Range("c" & i), 5) şeklinde deneyebilirsiniz.
Alternatif olarak Replace komutu ya da Excel Bul-değiştir yerleşik işlevi kullanılarak 2022'nin silinmesi sağlanabilir.
İyi çalışmalar...

 

[Feylosof]

Merhaba,
Mid komutu Excel'deki PARÇAAL fonksiyonu gibi çalışır: Metin, Başlangıç sayısı, Karakter sayısı... Bu sebeple baştaki 4 karakteri almamak için başlangıç karakterini 5 olarak girmelisiniz. Bununla birlikte uzunluk belirtmeniz zorunlu değildir. Sadece başlangıç karakterini girdiğiniz zaman geri kalan verinin tamamı alınacaktır. Mid(Range("c" & i), 5) şeklinde deneyebilirsiniz.
Alternatif olarak Replace komutu ya da Excel Bul-değiştir yerleşik işlevi kullanılarak 2022'nin silinmesi sağlanabilir.
İyi çalışmalar...

Bilgilendirme için çok teşekkür ederim @ÖmerBey