PK pyta:
Mam arkusz roboczy, w którym wprowadzam pewne wartości. Po kliknięciu przycisku makra chcę, aby wartości lub obliczone wyniki zostały dołączone do innego arkusza lub pliku.
Dobre pytanie. Powiedzmy, że wartości znajdują się w komórkach C10 i E12 arkusza Sheet1 i chcesz, aby zostały dołączone do następnego wiersza w arkuszu Sheet2.
Prawdziwa sztuczka polega na tym, że kod umożliwiający znalezienie następnego wiersza w arkuszu Sheet2. Rozpoczynając od ostatniego wiersza w arkuszu Sheet2 (A65536), a następnie za pomocą .End (xlup) znajdziemy ostatni wiersz z danymi w kolumnie A. Dodanie 1 do tego wiersza spowoduje przejście do następnego wiersza danych w arkuszu 2. Użyj tego kodu:
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
