Tarih eşit değilse makro çalışsın

[designer41]

Merhaba aşağıdaki kodlar ile web sayfasındaki data.php dosyasındaki verileri
fiyat sayfama yazabiliyorum,
webdeki data.php dosyasının a1 hücresinde tarih yazılı,
benim fiyat sayfamdaki a1 hücresinde de tarih yazılı, eğer her iki hücredeki tarihler eşit ise verileri yazmasın, eğer tarihler eşit değilse verileri yazsın .
aşağıdaki makroya bu if i nasıl yazabiliriz bilen varmı acaba?

Sub Macro1()
'
Application.ScreenUpdating = False
Sheets("fiyat").Select
Range("$A:E").Select
Selection.Clear
Sheets("fiyat").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimsitem.com/data.php", Destination:=Range("$A$1"))
.SaveData = True
.Refresh BackgroundQuery:=False
End With
Range("A1").Select

Application.ScreenUpdating = True

End Sub

 

[designer41]

Yardım edebilecek kimse yokmu acaba?

 

[chngrcn]

örnek dosya eklerseniz daha kolay yardımcı olabiliriz..
yinede şöyle bir deneyin, dosyayi göremediğim için mantık yürütmeniz için fikir vereyim. belki size fikir verir..

if sheets("data").cells ( 1,1).value = sheets("fiyat").cells (1,1).value then
exit sub

else

Application.ScreenUpdating = False
Sheets("fiyat").Select
Range("$A:E").Select
Selection.Clear
Sheets("fiyat").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimsitem.com/data.php", Destination:=Range("$A$1"))
.SaveData = True
.Refresh BackgroundQuery:=False
End With
Range("A1").Select

Application.ScreenUpdating = True

end if

End Sub