< návrat zpět
MS Excel
Téma: Jednoduchý katalog v excelu
Zaslal/a jablicko85 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: 20274_katalog.zip (8kB, staženo 39x)
AL(1.7.2014 11:23)#020275 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
Paráádní, díky moc
citovat
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 detail
citovat