talebeyim yazdı:Tarkan VURAL yazdı:Merhaba,
Şu kodları hazırladım, deneyebilirsiniz.
- Kod: Tümünü seç
Sub Guncelle()
With Sheets("Table 2")
son = Sheets("Data").Range("a65536").End(3).Row
.Range("a1").ListObject.QueryTable.Refresh
.Range("a2:f" & .Range("F65536").End(3).Row).Copy
With Sheets("Data")
.Range("c65536").End(3)(2, 1).PasteSpecial xlPasteValues
.Select
.Range("a" & son - 1 & ":a" & son).Select
son2 = .Range("c65536").End(3).Row
Selection.AutoFill Destination:=.Range("a" & son - 1 & ":a" & son2)
.Range("b" & son + 1 & ":b" & son + 2).Value = Date
.Range("b" & son + 1 & ":b" & son + 2).Select
Selection.AutoFill Destination:=.Range("b" & son + 1 & ":b" & son2)
End With
End With
End Sub
Tarkan bey Çok çok teşekkür ederim Yine sizden nokta atışı.
Tarkan bey bir yeri atlamışım. Oda şu eğer dataya aktaracağımız tarih orada var ise,
dış veri ile aldığımız bilgilerin üzerine yazmalı.
Örnek veriyorum.
Hisse senetlerinin fiyatlarını iki kere çekersek "Bu veriler daha önce çekildi, Üzerine yazmak istediğine emin misin gibi diyerek" en son yazdığını üzerine yazmalı.