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 26x)
28800_pokus96.rar (10kB, staženo 26x)Jeden pokus.
Příloha: 28803_pokus96.zip (17kB, staženo 47x)
citovat28803_pokus96.zip (17kB, staženo 47x)
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
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Makro smyčka
elninoslov • 18.4. 0:18
Makro smyčka
MilanKop • 17.4. 21:33
Automatické generování souborů
Majki • 17.4. 13:48
Automatické generování souborů
elninoslov • 17.4. 13:27
Automatické generování souborů
Majki • 17.4. 13:25
Automatické generování souborů
elninoslov • 17.4. 13:11
Makro smyčka
elninoslov • 17.4. 13:09
RSS nejnovější články