Bul değiştir makrosu

[yasartomurcuk]

merhaba

bul değiştir makrosu örneklerini çok inceledim ancak hücredeki veriyi değiştirebiliyor onda sorun yok örneğin C sutununda ='C:\Users\neon\Desktop\İCMALLER\EYLÜL 2016\[01.09.2016.xlsm]EFT POS Z'!$D11 farklı dosyandan aldığım hücreler var
burda 01.09.2016 yazan tarihi değiştirmeye çalışıyorum ancak aşağıdaki makro kodu ile bunu yapamıyorum

Sub BulDegistir2()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add [Z2], [Z3]

For Each p In pDict
Columns("c").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    On Error Resume Next
    Application.DisplayAlerts = False
    
    Tarih1 = Range("Z2").Text
    Tarih2 = Range("Z3").Text
    
    Range("C:C").Replace What:=Tarih1, Replacement:=Tarih2, LookAt _
    :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    On Error GoTo 0
    Application.DisplayAlerts = True
End Sub