Bul ve Değiştir Makrosu

[Antepliislam]

Merhabalar,

Elimde 20.000 satırdan oluşan bir excel sayfam var, burada B sütununda bulunan hücrelerin içiresinde örneğin;

08 M MAF. CIRCIR KOM. ANAH.DHT

böyle bir veri var, bunu 08 M MAFSALLI CIRCIR KOM. ANAH. DHT

Yapmak istiyorum.

Elimde bir makro var fakat altına yeni halini yazıyor ben ise sütunun içindeki mevcudu degiştirmek istiyorum, elimdeki makro aşagıda, bunun üzerinde değişiklikte yapabilirsiniz ben yapamadım..

Sub Bul_Degistir()

Dim c As Range, Adr As String, kelime As String
Dim bul As Integer, Wf As WorksheetFunction, yeni As Variant

Set Wf = WorksheetFunction

Application.ScreenUpdating = False
On Error Resume Next

kelime = Application.InputBox("Aranacak Kelime", "Bul")
yeni = Application.InputBox("Yeni Kelime", "Değiştir")

If kelime = "" Then Exit Sub

With Range("B:B")
.WrapText = False
.Font.Name = "Arial"
.EntireColumn.AutoFit
Set c = .Find(kelime)
If Not c Is Nothing Then
Adr = c.Address
Do
With Cells(c.Row, c.Column)
bul = Wf.Search(kelime, .Value) - 1
.Value = .Value & Chr(10) & Wf.Rept(" ", bul) & yeni
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
End With

End Sub

 

[Emir Hüseyin Çoban]

. . .

B sütununu seçip CTRL H (Değiştir)
Aranan Değer: MAF.
Yeni Değer: MAFSALLI
Tümünü Değiştir...

. . .

 

[vardar07]

Aşağıdaki kodu denermisiniz. Kırmızı yer sizin sayfa adı olacak

Sub Bul_Degistir()
Dim Wf As WorksheetFunction, kelime As String, yeni As Variant,s1 As Worksheet
Set s1 = Sheets("[COLOR="Red"][B]Sayfa1[/B][/COLOR]")
Set Wf = WorksheetFunction
kelime = Application.InputBox("Aranacak Kelime (ÖRNEK : MAF )Gibi", "Bul")
yeni = Application.InputBox("Yeni Kelime(ÖRNEK : MAFSALLI )Gibi", "Değiştir")
Son = s1.Range("B65536").End(3).Row
For i = 1 To Son
a = Wf.Find(kelime, s1.Cells(i, 2), 3)
s1.Cells(i, 2) = Wf.Replace(s1.Cells(i, 2), a, 3, yeni)
Next i
End Sub