Zdravím všechny,
prosím o radu s kterou si lámu hlavu.
v sešitu mám dva listy-každý list obsahuje jinou databázi,tedy mám dvě databáze jediný rozdíl bude v tom,že druhá databáze bude skryta.
V obou databázích mám shodný pouze první sloupec - sloupec A.
Nyní můj problém - potřeboval bych načíst do userformu řádek který mám v druhé databázi(ve skryté databázi).
Načíst hodnoty z řádku v aktivním listu dokážu,ale nevím jak si poradit s načítáním z jiného listu.
Nevěděl by někdo jak na to?
Předem děkuji za rady a pomoc.
načítání řádku z jiného než aktivního listu
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: načítání řádku z jiného než aktivního listu
Pro načítání dat z neaktivního listu je potřeba se odkazovat přímo na název listu (nebo na jeho index). Potom už lze snadno číst z buněk, zapisovat takhle přímo nejde.
Kód: Vybrat vše
promenna = Worksheets("List1").Range("A1")
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: načítání řádku z jiného než aktivního listu
Zdravím,
snažím se porozumět kódu který mi byl nabídnut,ale vůbec jsem ho nepochopil.
Do jiného než aktivního listu dokážu zapsat,ale nevím jen jak načíst potřebný řádek.
Jak jsem již psal - společné budou jen sloupce "A" ale nebudou úplně stejně seřazeny proto nevím jak načítat hodnoty z jiného listu - nikdy nebudu vědět na kterém řádku se hledanýřádek nachází.
Děkuji za rady
snažím se porozumět kódu který mi byl nabídnut,ale vůbec jsem ho nepochopil.
Do jiného než aktivního listu dokážu zapsat,ale nevím jen jak načíst potřebný řádek.
Jak jsem již psal - společné budou jen sloupce "A" ale nebudou úplně stejně seřazeny proto nevím jak načítat hodnoty z jiného listu - nikdy nebudu vědět na kterém řádku se hledanýřádek nachází.
Děkuji za rady
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: načítání řádku z jiného než aktivního listu
Nabízený kód udělá to, že do proměnné "promenna" vloží hodnotu z listu1 buňky A1.
Pokud se chce hledat určitá hodnota tak lze použít toto a upravit pro své potřeby.
Pokud se chce hledat určitá hodnota tak lze použít toto a upravit pro své potřeby.
Kód: Vybrat vše
Private Sub Find()
Dim FBlk As Range, FCll As Range, Response As Byte
Dim What As Variant
What = Range("k3").Value 'co se bude hledat
With Worksheets("List1") 'na jakem listu
Set FBlk = .Range("A:A") 'kde se bude hledat
Set FCll = FBlk.Find(What, LookIn:=xlValues, LookAt:=xlWhole)
If Not FCll Is Nothing Then
Response = MsgBox("Hledana hodnota je na " & FCll.Row & "radku.", vbInformation)
Else
Response = MsgBox("Hledana hodnota nebyla nalezena", vbInformation)
End If
End With
Set FCll = Nothing
Set FBlk = Nothing
End Sub
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: načítání řádku z jiného než aktivního listu
Jo takhle, no, cmuch už byl o něco rychlejší, takže nemá smysl abych sem dávala totéž.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: načítání řádku z jiného než aktivního listu
Zdravím,
děkuji za bleskovou reakci,ale pokud jsem pochopil správně napsaný kód,pak se mi zobrazí do msgboxu pouze číslo řádku a neřeší to můj problém s tím,že bych to potřeboval načíst do userform.
Přesto děkuji za radu a pokusím se o úpravu kódu podle mých potřeb.
Ještě jednou děkuji,jsem rád,že existuje takovéhle fórum kde dokážou poradit.
děkuji za bleskovou reakci,ale pokud jsem pochopil správně napsaný kód,pak se mi zobrazí do msgboxu pouze číslo řádku a neřeší to můj problém s tím,že bych to potřeboval načíst do userform.
Přesto děkuji za radu a pokusím se o úpravu kódu podle mých potřeb.
Ještě jednou děkuji,jsem rád,že existuje takovéhle fórum kde dokážou poradit.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: načítání řádku z jiného než aktivního listu
O userformu nebyla nikde zmínka, neva.
Jinak tento kód si dej do userformu a místo msgboxu si dej třeba TextBox1.text
Jinak tento kód si dej do userformu a místo msgboxu si dej třeba TextBox1.text
Re: načítání řádku z jiného než aktivního listu
Přesně takhle přemýšlím,že bych se to pokusil upravit.
Děkuji za reakci a radu.
O userformu jsem se zmínil ihned při založení tématu
"Nyní můj problém - potřeboval bych načíst do userformu řádek který mám v druhé databázi(ve skryté databázi)."
Přesto děkuji za pomoc a rady.
Děkuji za reakci a radu.
O userformu jsem se zmínil ihned při založení tématu
"Nyní můj problém - potřeboval bych načíst do userformu řádek který mám v druhé databázi(ve skryté databázi)."
Přesto děkuji za pomoc a rady.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
com.android.documentsui - jak přenést z jiného zařízení
od MK_Vs » 06 pro 2023 11:49 » v Mobily, tablety a jiná přenosná zařízení - 0
- 2854
-
od MK_Vs
Zobrazit poslední příspěvek
06 pro 2023 11:49
-
-
- 3
- 3059
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Ukotvení prvního a posledního řádku v tabulce.
od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky - 2
- 2386
-
od Kopusek
Zobrazit poslední příspěvek
14 pro 2023 08:55
-
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 1952
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 3247
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 18 hostů