Makro na uložení dat ve druhém listu

[Palino]

Zdravím,

mohl bych poprosit, aby mi někdo řekl, jak udělám, aby mi při kliknuti na tlačítko spustilo makro, které do druhého listu do slopuce A vypíše dnešní datum a do sloupce B zkopíruje hodnotu z buňky na prvním listu s tím, aby mi po každém kliknutí na tlačítko tu hodnotu přidalo (na další řádek) a ne přepsalo?

Dík
Pavel

[d1amond]

Do listu 1 si přidej tlačítko a přiřaď mu následující proceduru

Kód: Vybrat vše

Sub Kopiruj()
Dim hodnota As Variant
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet
Dim r As Integer 'poslední řádek v B

Set wsh1 = ThisWorkbook.Worksheets(1)
Set wsh2 = ThisWorkbook.Worksheets(2)

'hodnota z listu 1, buňka A1
hodnota = wsh1.Cells(1, 1).Value

'první řádek v B
r = wsh2.Cells(Rows.Count, 2).End(xlUp).Row

'kopírování hodnot
wsh2.Cells(1, 1).Value = Date

If wsh2.Cells(r, 2).Value = "" Then
wsh2.Cells(r, 2).Value = hodnota
Else: wsh2.Cells(r + 1, 2).Value = hodnota
End If

End Sub

[Palino]

Díky, ale potřeboval bych to ještě upřesnit, v příloze mám soubor. Z toho to snad bude patrnější, jsem to nevysvětlil zrovna nejlépe.
Takže Výrobek se vybere ze seznamu, zadají se hodnoty a klikne se na tlačítko Uložit. Makro by mělo na druhý sešit (po každém zmáčknutí tlačítka uložit data na nový řádek) uložit datum (kdy se na tlačítko zmáčklo), výrobek který byl vybrán a hodnota která je spočtená v posledním poli.

Takto se soubor otevře a jsem tam se změní vstupní hodnoty (typ, hodnoty) a poté po zmáčknutí tlačítka by se mělo opět uloži na další řádek.
Doufám že jsem to napsal aspoň trochu srozumitelně.

Dík
Pavel

[d1amond]

Kopie.xlsm

(20.76 KiB) Staženo 104 x

Snad je to správně.

//mačkat se to může, kolikrát je třeba.