načítání řádku z jiného než aktivního listu

[crgo77]

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.

[Reklama]

[Azuzula]

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")

[crgo77]

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

[cmuch]

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.

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

[Azuzula]

Jo takhle, no, cmuch už byl o něco rychlejší, takže nemá smysl abych sem dávala totéž.

[crgo77]

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.

[cmuch]

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

[crgo77]

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.