Başka dosyaya kayıt

[GUERRA]

Selamlar,
Aşağıdaki konuda yardıma ihtiyacım var. Umarım yardımcı olabilirsiniz.

Bİr excel sayfasındaki verilerden, diğer kitaptaki tabloda, alt alta gelecek şekilde aktarma yapmam gerekiyor.

Yani;


Kitap1 Kitap2
O8 B2
O9 C2
O5 D2
O4 E2
O22 F2
O11 G2

fakat, bunu alt alta yapacak, yani b2 doluysa, b3 ten itibaren yapacak, b3 doluysa b4 gibi, yani böylece alt alta gelecek.

 

[GUERRA]

yardımcı olabilecek yok mu?

 

[nafi42]

hepsi için bir yordam yazalım..
Sub aktar(buradan As Range, suraya As Range)
ii = suraya.Row
Do Until Cells(ii, suraya.Column) = ""
ii = ii + 1
Loop
Cells(ii, suraya.Column) = buradan.Value
End Sub

bu yordamı bir commanbutton la cagirabilisin

Call aktar(Range("O8"), Range("B2"))
Call aktar(Range("O9"), Range("C2"))
.
.
.

 

[GUERRA]

bu aynı kitaptaki veriler için mi yapıyor bu işlemi?