< návrat zpět

MS Excel


Téma: Jednoduchý katalog v excelu rss

Zaslal/a 1.7.2014 10:51

Dobrý den,

potřeboval bych pomocí VBA vytvořit jednoduchý katalog v excelu, kde bych v 1 listě měl vyplnovací pole (Jméno, příjmení aj...) a po kliknutí by se tyto údaje ukládaly do řádků pod sebe na nové listě a současně by se pole smazala pro nový záznam, také bych potřeboval automatické generování ID čísla podle pořadí záznamu. Pomohl by mi někdo prosím s makrem? Děkuji moc, posílám soubor

Příloha: zip20274_katalog.zip (8kB, staženo 39x)
Zaslat odpověď >

icon #020275
avatar
Sub Zapis()
Dim cell As Range, srcSh As Worksheet
Set srcSh = Sheets("Zdroj")
Set cell = Sheets("cíl").[a1].End(xlDown).Offset(1, 0)
With cell
.Value = Format(cell.Row - 1, "000")
.NumberFormat = "@"
End With
With srcSh
cell.Offset(0, 1) = .[B1]
cell.Offset(0, 2) = .[B2]
.[B1:B2].ClearContents
End With
Set cell = Nothing
Set srcSh = Nothing
End Sub
Počet záznamov v bunke B9 na liste zdroj vzorcom:=COUNTA(cíl!A:A)-1citovat
#020316
avatar
Paráádní, díky moccitovat
#020334
avatar
ono by stačilo myslím

http://wall.cz/excel-navod/formular-pro-zadavani-dat

a šlo by to i bez maker nesplňuje sice na jiný list ale to je detailcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21