kak dobavit' dannye v konec spiska?

[NathaliE]

Zdrasti! Pomogite, kto mojet!
Ya uje golovu slomala...nichego ne vyxodit
Zadacha takova: est' programma v VBA Excel, v UserForm est' tablica s dannymi, pri najatii na knopku dannye perenosyatsya na list Excel.Mne nujno chtob kajdyi raz kogda user budet ponovoy zaxodit' v UserForm i soxranyat' dannye tablicy, chtob eti dannye soxranyalis v konec uje suschestvueschego spiska na liste Excelya...
To chto u menya poluchilos - eto perenesti dannye v Excel, no kogda ya soxranyayu novye dannye, starye stirayutsya...
vot kod:
Private Sub GK_SaveDB_Click()
Dim n As Integer
n = 1
For n = 1 To 1000
ActiveWorkbook.Sheets("DataBase").R ange("A" & n + 2).Value = GettingKit.Spreadsheet1.Range("A" & n)
ActiveWorkbook.Sheets("DataBase").R ange("B" & n + 2).Value = GettingKit.Spreadsheet1.Range("B" & n)
Next
End Sub
Zaranee spasibo.

[IgorGO]

Так попробуйте:

Private Sub GK_SaveDB_Click()
Dim n As Integer, LR as Long
n = 1  ' а эта строка зачем???
LR = ActiveWorkbook.Sheets("DataBase").Range("B1").SpecialCells(xlLastCell).Row
For n = 1 To 1000
ActiveWorkbook.Sheets("DataBase").Range("A" & n + LR).Value = GettingKit.Spreadsheet1.Range("A" & n)
ActiveWorkbook.Sheets("DataBase").Range("B" & n + LR).Value = GettingKit.Spreadsheet1.Range("B" & n)
Next
End Sub

[NathaliE]

Pytalas, nichego ne vyxodit komp. vidit LR kak samuyu poslednuyu strochku - nomer 65574...

[IgorGO]

значит колонка В заполнена до последней строки. кончилась ваша база данных, больше писать некуда. надо переходить на 2007 офис, там в экселе 1 или 2 млн. строк в таблице.

[NathaliE]

Da v tom to i delo chto stroki pustye, baza dannyx esche ne zakonchilas....