kaydet makrosu

[pardus03]

slm arkadaşlar excell de makro konusunda çok iyi degilim hatta bilmiyorum:frown:. formüller konusunda biraz bilgim var. ekli dosyamda yaptıgım işlemleri daha sonra kullanmak için kayıt etmem lazım. bu formdan bulduğum bi makroyu kullandım ve veri butonuyla istedigimi yaptım. kayıt2 butonu ilede "araziveri" sayfasına kayıt yapmak istiyorum. ama kayıt butonu ile hh sayfasındaki b sütunundaki verileri veri sayfasına satır olarak kayıt yapıyor. benim istedigim arazi veri sayfasına sütunları yine sütun olarak kayıt yapması. yardım ederseniz sevinirim.

 

[pardus03]

cevap gelecek diye umutla bekliyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kaydet()
Set s1 = Sheets("arazi veri")
For a = 10 To [e24].End(3).Row
son = s1.[a65536].End(3).Row + 1
s1.Range("a" & son & ":d" & son) = Range("b" & a & ":e" & a).Value
Next
End Sub

 

[pardus03]

ilginize teşekkürler. deneyecegim.

 

[pardus03]

çok teşekkürler. müthişsin