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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod crgo77 » 18 bře 2015 20:43

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
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

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

Příspěvekod Azuzula » 19 bře 2015 12:26

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.

crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod crgo77 » 24 bře 2015 14:02

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
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod cmuch » 24 bře 2015 16:03

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
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

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

Příspěvekod Azuzula » 24 bře 2015 16:18

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.

crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod crgo77 » 25 bře 2015 19:18

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
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod cmuch » 25 bře 2015 19:49

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
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod crgo77 » 25 bře 2015 20:27

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.


  • 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
    1644
    od MK_Vs Zobrazit poslední příspěvek
    06 pro 2023 11:49
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    3
    1787
    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
    1413
    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
    780
    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
    1827
    od kalosek Zobrazit poslední příspěvek
    29 čer 2023 19:39

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů