Dosazení hodnot

[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ů

[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 Sub

Viz přiložený soubor.

[Jame Stitel]

moc děkuju
jaký je prosim postup na to, jak udělat to tlačítko?

[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.