Hücredeki verilerin ortasından harf yada rakam silme yada ekleme

[simetri.]

Merhabalar

Arama yaparak eğer formülü buldum lakin satırlar

kayık fayizette olduğu için kullanamadım.

Aşağıdaki işlevi yapacak bir kod yazılırsa çok sevinirim. Teşekkürler.

Sondan saymaya başlayacak ve 5. karakteri silecek.

("B3:S65530") aralığındaki tüm hücrelerde çalışacak.

Örnek ;

1234567 rakamında 1234567 3 silinecek

İstanbul metninde ise İstanbul a silinecek

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degistir()
 
    Dim b As Range
 
    For Each b In Range("B3:S65530")
        If Len(b) > 4 Then
            b = Application.Replace(b, Len(b) - 4, 1, "")
        End If
    Next b
 
 
End Sub

.

 

[simetri.]

Çok teşekkür ederim Ömer hocam. Ellerinize sağlık. Çok faydalı oldu vallahi.

Sayın hocam.

Aynı format ile sondan sayarak 4. karakterden sonra bir harf yada rakam ekleyebilirmiyiz peki?

"x" yada "8" gibi örneğin. Eğer mümkünatı var ise çok makbule geçecek.

Yetkiniz var ise eğer, başlığın ismini de

Hücredeki verilerin ortasından harf yada rakam silme yada ekleme

gibi yapabilirseniz tam olur. Saygılar hocam.

 

[Ömer]

Başlığı değiştirdim.

Sorunuzu biraz daha açarmısınız.

Önce silip sonra ekleyecek mi yoksa bu kod diğerinde ayrı mı olacak.

123456 olan veri . 1234X56 gibi mi olacak.

 

[simetri.]

Ayrı olacak Ömer hocam.

 

[Ömer]

Bu şekilde deneyin.

Sub Ekle()
 
    Dim b As Range, deg As String, a As String, c As String
 
    deg = "[COLOR=red]X[/COLOR]" [COLOR=darkgreen]'araya ilave edilecek değer.
[/COLOR]    
    For Each b In Range("a1:a3")
        If Len(b) > 3 Then
            a = Left(b, 4)
            c = Right(b, Len(b) - 4)
            b = a & deg & c
        End If
    Next b
 
End Sub

.

 

[simetri.]

Tekrardan teşekkür ederim saygıdeğer hocam.

Elleriniz dert görmesin.