istediğin hücreye kaydetme

[sanja2]

arkadaşlar bi sorum olacak yardımcı olursanız çok sevinecem gerçi böyle bişey mümkünmü bilemiyorum ama ben sayfa2 deki lsteye sayfa1 de veri girip güncellemek istiyorum fakat hangi sıra numarasını yazarsam o sıra numarasındaki satırlara kopyalayıp güncellesin örnekte daha açıklayıcı bir şekilde gösteriyor yardımlarınızı bekliyorum şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
sat = s1.[d12] + 3
s2.Range("b" & sat & ":d" & sat) = s1.Range("e12:g12").Value
MsgBox "Veriler aktarıldı."
End Sub

 

[sanja2]

hocam ALLAH razı olsun süper olmuş inan çok işime yaradı sayenizde ufkumuz açılıyor başarılar diliyorum ALLAH gönlünüze göre versin sizin ve sizin gibi forumdaki yardım sever tüm arkadaşların...