Buton ile veri ekleme

[blackened]

Merhabalar,

Şöyle bir çalışma yapmak istiyorum. "RCT" isimli çalışma sayfamda bir form oluşturuyorum ve bu sayfaya bir de buton eklemek istiyorum. Butona basıldığında "RCT2" isimli çalışma sayfamda, "RCT" 'de belirlediğim bazı hücrelerin tek bir satıra girişi yapılsın istiyorum. Örneğin "RCT" 'de A1, B1, C1 hücrelerinin içeriği direkt olarak "RCT2" 'de C2, C3, C4 'e aktarılacak. Bir de bu işlemden sonra butona tekrar basıldığında aynı işlemi alt satıra uygulamasını istiyorum ve bu şekilde hep bir satır aşağı inerek devam edecek...

Teşekkür ederim

 

[algil]

merhaba
sadece aynı satırdaki ardışık verileri aktarabilirsiniz. Üzerinde değişiklikler yapıp kendinize uyarlayabilirsiniz.

Sub ekle()
Set s1 = Sheets("RCT")
Set s2 = Sheets("RCT2")
f = s2.[C65536].End(3).Row + 1
d = ActiveCell.Row
s2.Cells(f, "c") = s1.Cells(d, "b")
s2.Cells(f, "d") = s1.Cells(d, "c")
s2.Cells(f, "e") = s1.Cells(d, "d")
End Sub

 

[blackened]

hocam çok teşekkürler, benim istediğime çok yakın olmuş. mantığı kavradım zaten, tekrar teşekkürler...