PK sorar:
Bazı değerleri girdiğim bir çalışma sayfam var. Bir makro düğmesini tıkladıktan sonra, değerlerin veya hesaplanan sonuçlarının farklı bir sayfaya veya dosyaya eklenmesini istiyorum.
İyi soru. Değerlerin Sayfa1'in C10 ve E12 hücrelerinde olduğunu ve bunların Sayfa2'deki sonraki satıra eklenmesini istediğinizi varsayalım.
Buradaki gerçek numara, Sayfa2'de bir sonraki satırı bulmanın kodudur. Sayfa2'deki (A65536) son satırdan başlayarak ve sonra .End (xlup) kullanarak A sütunundaki verilere sahip son satırı bulacaktır. Bu satıra 1 eklemek, sizi Sayfa2'deki veriler için sonraki satıra yönlendirecektir. Bu kodu kullanın:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
