PK azt kérdezi:
Van egy munkalapom, ahol megadok néhány értéket. A makró gombra kattintva azt akarom, hogy az értékeket vagy annak kiszámított eredményeit csatolják egy másik laphoz vagy fájlhoz.
Jó kérdés. Tegyük fel, hogy az értékek az 1. lap C10 és E12 celláiban találhatók, és azt szeretné, hogy azok a 2. lap következő sorához kerüljenek.
Az igazi trükk itt az a kód, amellyel megtalálja a következő sort a Sheet2-n. A 2. munkalap utolsó sorától kezdve (A65536), majd az .End (xlup) használatával megtalálja az A oszlop utolsó adatait tartalmazó sort. Ha ehhez a sorhoz 1 ad hozzá, akkor a 2. lap következő sorára mutat. Használja ezt a kódot:
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
