< návrat zpět
MS Excel
Téma: Jednoduchý katalog v excelu ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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![avatar](./pictures/avatars/no-avatar.jpg)
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
![avatar](./pictures/avatars/no-avatar.jpg)
Paráádní, díky moc
citovat
![avatar](./pictures/avatars/no-avatar.jpg)
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