Soru Excel dosyasından ağdaki excele kayıt

[schlecht]

Merhaba, ekteki form dosyasında sayfa1 de ki bilgileri buton yardımı ile ağda bulunan toplam dosyasının sayfa1 ine kopyalamak istiyorum. form dosyasını bir çok kişi kullanacak kayıt edecek. 1 kişi ekleme yaptıktan sonra diğer kayıt alt satırsan devam edecek, en son dolu satırın altından kayıt devam etmeli.
Yardımlarınızı rica ederim. Teşekkürler.

 

[schlecht]

Araştırırken şöyle bir kod buldum;

Sub Düğme2_Tıklat()
dosya = "toplam.xls"
Workbooks.Open (ThisWorkbook.Path & "\toplam.xls")
Workbooks(dosya).Sheets(1).Cells(2, 1) = "1"
Workbooks(dosya).Sheets(1).Cells(2, 2) = "2"
Workbooks(dosya).Sheets(1).Cells(2, 3) = "3"
Workbooks(dosya).Save
Workbooks(dosya).Close

End Sub

kırmızı yerlere ne yazmalıyım ki sayfadaki c2 değerini toplam sayfasına kopyalasın

 

[schlecht]

Sub Düğme2_Tıklat()
dosya = "toplam.xls"
form = "form.xlsx"
Workbooks.Open (ThisWorkbook.Path & "\toplam.xls")
Workbooks(dosya).Sheets(1).Cells(2, 3) = Workbooks(form).Sheets(4).Cells(2, 3)
Workbooks(dosya).Sheets(1).Cells(2, 4) = Workbooks(form).Sheets(4).Cells(3, 3)
Workbooks(dosya).Sheets(1).Cells(2, 5) = Workbooks(form).Sheets(4).Cells(4, 3)
Workbooks(dosya).Save
Workbooks(dosya).Close

sorunu böyle çözdüm.. Fakat üstüne yazıyor, her kayıdı bir alt satıra nasıl kayıt ederim. son dolu satırdan sonra kayıt yapması gerekiyor.

 

[schlecht]

güncel. yardımıcı olabilecek var mı buraya kadar geldim tıkandım.

 

[schlecht]

Workbooks(dosya).Sheets(1).range("a65536").end(3)(2, 3) = Workbooks(form).Sheets(4).Cells(2, 3)

denedim ama hata verdi. ( kod alıntıdır.)