De o to kdyz zmacknu zapis data tak aby se radka skopirovala vlozila na dalsi list na posledni volnou pozici, pak se kurzor vratil a radku smazal, a bylo by pripraveno na dalsi zaznam..citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makro - ukládání dat
MS Excel
Téma: Makro - ukládání dat 
Zaslal/a Merlin99 23.12.2015 16:17
Zdravím všechny bojuji s jednim problemem ohledne makra ktery ma skopirovat danou radku a ulozit ji do dalsiho listu na posledni volny misto, kdyz makro nahraju kalsicky hrozne se to pak seka chtelo byto neco elegantniho... viz priloha Děkuji za kazdý nápad 
Příloha: 
28800_pokus96.rar (10kB, staženo 27x)
28800_pokus96.rar (10kB, staženo 27x)Jeden pokus.
Příloha: 28803_pokus96.zip (17kB, staženo 48x)
citovat28803_pokus96.zip (17kB, staženo 48x)
Chci se jeste zeptat bylo by mozny program upravit aby jak kopiruje a vklada data aby je vlozil jenom jako hodnoty, mam tam vzorce a delato neplechu... děkuji
Sub kopiruj()
Dim Radek As Long
Dim wsData As Worksheet
Dim wsHist As Worksheet
Set wsData = Worksheets("Data")
Set wsHist = Worksheets("Historie dat")
Radek = wsHist.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsData.Range(Cells(2, 1), Cells(2, 8)).Copy Destination:=wsHist.Cells(Radek, 1)
wsData.Range(Cells(2, 2), Cells(2, 8)).ClearContents
End Subcitovat
Sub kopiruj()
Dim Radek As Long
Dim wsData As Worksheet
Dim wsHist As Worksheet
Set wsData = Worksheets("Data")
Set wsHist = Worksheets("Historie dat")
Radek = wsHist.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsData.Range(Cells(2, 1), Cells(2, 8)).Copy Destination:=wsHist.Cells(Radek, 1)
wsData.Range(Cells(2, 2), Cells(2, 8)).ClearContents
End Subcitovat
...takto
Sub kopiruj()
Dim Radek As Long
Dim wsData As Worksheet
Dim wsHist As Worksheet
Set wsData = Worksheets("Data")
Set wsHist = Worksheets("Historie dat")
Radek = wsHist.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsData.Range(Cells(2, 1), Cells(2, 8)).Copy
wsHist.Cells(Radek, 1).PasteSpecial Paste:=xlPasteValues
wsData.Range(Cells(2, 1), Cells(2, 8)).ClearContents
End Subcitovat
Sub kopiruj()
Dim Radek As Long
Dim wsData As Worksheet
Dim wsHist As Worksheet
Set wsData = Worksheets("Data")
Set wsHist = Worksheets("Historie dat")
Radek = wsHist.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsData.Range(Cells(2, 1), Cells(2, 8)).Copy
wsHist.Cells(Radek, 1).PasteSpecial Paste:=xlPasteValues
wsData.Range(Cells(2, 1), Cells(2, 8)).ClearContents
End Subcitovat
Děkuji za návrh ale pořád mi to nekopiruje hodnoty hazi mito chybu nechce mi to uznat cislo....citovat
Chyba bude niekde inde. Obe kúsky kódu robia presne to čo ste požadoval. Jeden kopíruje všetko a druhy len hodnoty. (xlPasteValues)
Bude to chcieť lepšiu prílohu, tato je pravdepodobne nedostatočná.citovat
Bude to chcieť lepšiu prílohu, tato je pravdepodobne nedostatočná.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články