Stránka 1 z 1
Makro na uložení dat ve druhém listu
Napsal: 28 bře 2012 10:12
od 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
Re: Makro na uložení dat ve druhém listu
Napsal: 28 bře 2012 10:36
od 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
Re: Makro na uložení dat ve druhém listu
Napsal: 28 bře 2012 12:47
od 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
Re: Makro na uložení dat ve druhém listu
Napsal: 28 bře 2012 13:53
od d1amond
Snad je to správně.
//mačkat se to může, kolikrát je třeba.