Dosazení hodnot
Napsal: 07 dub 2011 22:06
od Jame Stitel
Potřebuji pomoct s přiloženým souborem.
Chtěl bych aby excel dosadil hodnoty které se napíší do ohraničené tabulky, do tabulky žlutě zvýrazněné, kde by to vždy nalezlo volný řádek, a tam ty hodnoty dosadil.
Takže bych poprví napsal do ohraničené tabulky třeba 1,2,3,4,5,6,7; tak aby to dosadil excel do volného řádku ve žluté tabulce. Pak bych do ohraničené tabulky napsal jiné hodnoty, a ty by se dosadily do dalšího volného řádku žluté tabulky.
žlutá tabulka - od žlutého zvýraznění dolů
Re: Dosazení hodnot
Napsal: 11 dub 2011 17:53
od cmuch
Takto by to stačilo?
V tomto případě to bude data ukládat na List2 z Listu1. Tak si uprav vzorce na Listu1.
Listy můžeš přejmenovat jak chceš.
Kód: Vybrat vše
Sub VlozitUdaje()
'Tichy rezim
Application.ScreenUpdating = False
'Najít první volný øádek na listu
'Pokud je kdekoli na radku neco tak ho to preskoci
Sheets(2).Activate
radek = Range("B1").CurrentRegion.Rows.Count + 1
'kontroly
If Sheets(1).Range("I4") = "" Or Sheets(1).Range("J4") = "" Or _
Sheets(1).Range("K4") = "" Or Sheets(1).Range("L4") = "" Or _
Sheets(1).Range("M4") = "" Or Sheets(1).Range("N4") = "" Or _
Sheets(1).Range("O4") = "" Then
MsgBox "Není zadán nìjaký údaj. Nelze pokraèovat!"
GoTo konec
End If
'Vložit položky do tabulky
Cells(radek, "A") = radek - 1
Cells(radek, "B") = Sheets(1).Range("I4")
Cells(radek, "C") = Sheets(1).Range("J4")
Cells(radek, "D") = Sheets(1).Range("K4")
Cells(radek, "E") = Sheets(1).Range("L4")
Cells(radek, "F") = Sheets(1).Range("M4")
Cells(radek, "G") = Sheets(1).Range("N4")
Cells(radek, "H") = Sheets(1).Range("O4")
'vymazat položky
Sheets(1).Range("I4") = ""
Sheets(1).Range("J4") = ""
Sheets(1).Range("K4") = ""
Sheets(1).Range("L4") = ""
Sheets(1).Range("M4") = ""
Sheets(1).Range("N4") = ""
Sheets(1).Range("O4") = ""
konec:
'Zpet na list
Sheets(1).Activate
'Tichy rezim vypnout
Application.ScreenUpdating = True
End SubViz přiložený soubor.
Re: Dosazení hodnot
Napsal: 11 dub 2011 21:58
od Jame Stitel
moc děkuju
jaký je prosim postup na to, jak udělat to tlačítko?
Re: Dosazení hodnot
Napsal: 12 dub 2011 15:18
od cmuch
Není zač.
To tlačítko uděláš tak, že si vytvoříš jakýkoli tvar nebo i obrázek a pak přes pravé tlačítko přiřadíš makro.