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ů
Dosazení hodnot
-
- nováček
- Příspěvky: 2
- Registrován: duben 11
- Pohlaví:
- Stav:
Offline
Dosazení hodnot
- Přílohy
-
- Cyklostatistika.xlsx
- (88.11 KiB) Staženo 27 x
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Dosazení hodnot
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š.
Viz přiložený soubor.
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.
- Přílohy
-
- Cyklostatistika.xlsm
- (70.22 KiB) Staženo 41 x
-
- nováček
- Příspěvky: 2
- Registrován: duben 11
- Pohlaví:
- Stav:
Offline
Re: Dosazení hodnot
moc děkuju
jaký je prosim postup na to, jak udělat to tlačítko?
jaký je prosim postup na to, jak udělat to tlačítko?
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Dosazení hodnot
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.
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.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 1797
-
od luko02420
Zobrazit poslední příspěvek
02 srp 2023 14:12
-
-
Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky - 7
- 2199
-
od elninoslov
Zobrazit poslední příspěvek
23 kvě 2023 22:38
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů