Sütundaki karakterlerin değiştirilmesi

[My_Dog]

D sütununda bulunan karakterlerin belirli bir sıradaki karakterinin değişmesini sağlayabilirmiyim. Örnekte sorunu mu daha iyi anlatmaya çalıştım. Yardımlarınız için teşekkür ederim.

 

[Necdet]

Merhaba,

=EĞER(PARÇAAL(D2;4;1)="2";DEĞİŞTİR(D2;4;1;8);D2)

 

[My_Dog]

tamam bu işimi görüyor hocam ama şimdi bunu tüm sayfaya uygulamak istiyorum ayrı bir sütun açmadan mevcut sütunun üzerindekini nasıl değiştirebilirim?

 

[Necdet]

tamam bu işimi görüyor hocam ama şimdi bunu tüm sayfaya uygulamak istiyorum ayrı bir sütun açmadan mevcut sütunun üzerindekini nasıl değiştirebilirim?

Merhaba,

İlk mesajımda yanlışlık yapmıştım, çünkü 4. karakter 2 olanları değiştir diyordunuz, 2 olmadığı durumlarda yanlış çalışırdı.

Eğer sorunuz 4. karakterin mutlaka 2 olduğu durumda çalışmasını istersanız ilk mesajımı düzelttim, onu deneyiniz.

 

[My_Dog]

hocam demek istediğim şimdi bende D sütununu komple değiştirmek istiyorum bunun için makromu olması lazım? Yani D sütunundan ayrı bir sütun açmak istemiyorum.

 

[Necdet]

Merhaba,

Evet makro gerekli, üzerinde çalışıyorum, sonucu bekleyiniz.

 

[My_Dog]

tamam necdet bey sağolun dört gözle bekliyorum...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modülle ilişkilendirin.
İlgili parametreleri InputBox ile alırsanız genel amaçlı bir değişim programı hazırlamış olursunuz.

Sub Degistir()
Dim Kacinci     As Integer
Dim Secim       As Range
Dim Hucre       As Range
Dim DegKarakter As String
Dim YerKarakter As String
Kacinci = 4
DegKarakter = "2"
YerKarakter = "8"
Set Secim = Application.InputBox("Değişiklik Yapacağınız Hücreleri Seçiniz", "Hücrede Karakter Değişimi", Type:=8)
If Secim Is Nothing Then Exit Sub
For Each Hucre In Secim
    If Mid(Hucre, Kacinci, 1) = DegKarakter Then
        Hucre.Value = Application.WorksheetFunction.Replace(Hucre, Kacinci, 1, YerKarakter)
    End If
Next Hucre
End Sub

 

[My_Dog]

sağolasın kardeş emeğine sağlık.

 

[Necdet]

İş bitene kadar bey, iş bittikten sonra kardeş oluyoruz.
Ne diyebilirim ki?