vyhledavani Vyřešeno

[SeTH]

Zdravim, potreboval bych pomoct s vyhledavanim v celes sesitu.
popis problemu:
sesit o vice listech, v kazdem listu jsou stejne sloupce(asi 8, to neni podstatne) s jinymi daty cca 100 radek. potrebuji udelat fci ktera by mi pri zadani jednoho udaje prohledala urcity sloupec ve vsech listech a vypsala mi list a na jakem radku se ta hodnota nachazi, tech hodnot tam muze byct vic. dokazal jsem to pouze pro jeden list a vypisovalo to jenom pro prvni hodnotu co to naslo.
jeste pokud je to mozne.. tak kdyz zadam jenom podminku pro vyhledani v prvnim sloupci a druha bude prazdna tak aby to vypsalo vysledky hledani to stejne se druhym sloupce.. ale kdyz zadam obe podminky hledani aby to vypsalo jenom pouzice (list a radek) kde se vyskytuji obe hodnoty ve stejnem radku.
Poradi nekdo? asi to nein moc srozumitelne popsane...
posilam ukazku.

[Reklama]

[SeTH]

zkusim to jeste vysvetlit na prikladu:
zadam hodnotu do bunky I3 ktera bude kriteriem pro vyhledani v prvnim sloupci.
kdyz bude hodnota v bunce J3 prazdna bude vyhledávat hodnotu ktera je v bunce I3 ve sloupci c.1 a v tabulce vysledky vypise v jakem se nachazi listu a radku.
kdyz bude bude hodnota v bunce I3 a zaroven i v bunce J3, vyhleda hodnotu bunky I3 ve sloupci 1 a hodnotu bunky J3 ve sloupci 2 a jako vysledky zobrazi pouze pozice tech udaju, ktere obsahuji ve sloupci 1 hodnotu I3 a zaroven ve sloupci 2 hodnotu J3.
Dále bych potřeboval aby zobrazil vysledky kdyz v I3 bude jako kriterium pro vyhledani "AB" aby zobrazil pozice bunek ktere zacinaji na AB nebo AB obsahuji.
Vysledky vyhůledani by meli byt vypsane podsebou v tabulce vysledky. muze jich byt vice.
Doufam ze uz je to vice srozumitelne

[navstevnik]

Uvadis

kdyz bude hodnota v bunce J3 prazdna bude vyhledávat hodnotu ktera je v bunce I3 ve sloupci c.1 a v tabulce vysledky vypise v jakem se nachazi listu a radku.
...
Dále bych potřeboval aby zobrazil vysledky kdyz v I3 bude jako kriterium pro vyhledani "AB" aby zobrazil pozice bunek ktere zacinaji na AB nebo AB obsahuji.

Jak tedy rozlisit podminku v I3 "presne": =abc od podminky v I3 "cast": = "AB" a podle toho nastavit vyhledavani.
Zatim je v priloze vyhledavani dle podminky v I3 nebo v I3 a J3, spustit Ctrl+Shift+v.
Upresni zadani podminky v I3 a zda rozlisovat mala a velka pismena a pak doplnim.

[SeTH]

tim je samozrejme mysleno pripad ze nebudu presne znat hodnotu hledany bunky.
takze napr. chci najit hodnotu abcde..ale abych to nemusel zadavat cely tak zadam v tom vyhledavani jenom abc.. a vypise mi vsechny vysledky ktere obsahuji nebo zacinaji na abcde.. jak pro sloupec 1 tak i pro sloupec 2.
zatim diky :)

[SeTH]

koukal jsme na to a je to presne to co potrebuju.. jeste prosim o upravy ktere jsem psal v predchozi odpovedi.. jeste jestli muzu poprosit aby se pri kazdem hledani predchozi vysledky smazaly. diky

[navstevnik]

takze upravena procedura:

Kód: Vybrat vše

Option Explicit

Sub VyhledatVListech()
  Dim wsht As Worksheet, c As Range, Podminka1 As Variant, Podminka2 As Variant
  Dim PoslRadek As Long, Blok As Range, firstAddress As String, i As Long, ZapsatDo As Range
  Set c = Worksheets("list1").Range("i3")
  Podminka1 = c.Value
  Podminka2 = c.Offset(0, 1).Value
  If Podminka1 = vbNullString Then Exit Sub
  Set ZapsatDo = Worksheets("list1").Range("i8")
  PoslRadek = LastRow("list1", "J")
  ZapsatDo.Resize(PoslRadek - 7, 2).ClearContents
  i = 0
  For Each wsht In ActiveWorkbook.Worksheets
    PoslRadek = LastRow(wsht.Name, "A")
    Set Blok = wsht.Range("a4:a" & PoslRadek)
    With Blok
      Set c = .Find(Podminka1, LookIn:=xlValues, LookAt:=xlPart)
      If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          If Podminka2 = vbNullString Then
            ZapsatDo.Offset(i, 0) = wsht.Name
            ZapsatDo.Offset(i, 1) = c.Row
            i = i + 1
          End If
          If Podminka2 <> vbNullString Then
            If c.Offset(0, 1).Value = Podminka2 Then
              ZapsatDo.Offset(i, 0) = wsht.Name
              ZapsatDo.Offset(i, 1) = c.Row
              i = i + 1
            End If
          End If
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
      End If
    End With
  Next wsht
End Sub
Function LastRow(L As String, Sl As String)
  Dim PosBunka As Range
  Application.Volatile  ' pouzit pro vlastni fci listu
  Sl = Sl & ":" & Sl
  ' nastaveni na posledni radek listu ve sloupci
  Set PosBunka = Worksheets(L).Range(Sl).Cells(Range(Sl).Cells.Count)
  If IsEmpty(PosBunka) Then Set PosBunka = PosBunka.End(xlUp)
  If IsEmpty(PosBunka) Then  ' bunka na 1. radku  je take prazdna
    LastRow = 0  ' nebo End,....
  Else
    LastRow = PosBunka.Row
  End If
End Function

[mike007]

Navstevnik ti vymyslel parádní makro, takže do tohoto problému nebudu zasahovat. Chci ti jen doporučit jedno zajímavé makro, které se ti třeba také bude někdy hodit. Prohledává celý dokument a výsledky včetně odkazů na buňky vypisuje do tabulky. Opravdu moc užitečné. Makro jsem našel v jedné excelové konferenci, v topicu, kde můj jmenovec žádal právě o něco takového. Tady je přímý odkaz na stažení sešitu s makrem : http://pandora.idnes.cz/part/2007/11/15877/3/TurboFind.zip

[SeTH]

klobouk dolu..diky

[navstevnik]

V procedure zustal neosetreny stav po predchozim prohledani bez nalezeneho vyskytu. Osetreno viz priloha.

[SeTH]

2navstevnik: funguje vyborne akorat kdyz to makro chci prehodit na ten muj seznam tak mi porad vyhazuje chybu. koukal jsem jeste na to makro co poslal mike007 a asi ho tady vyuziju spis...akorat bych ho potreboval jeste upravit aby prohledaval jenom sloupec E...a ve vypisu aby ve sloupci A bylo vypsano text z ty bunky co nasel.... dal ve sloupci B leva sousedni bunka ty nalezeny...a v C odkaz na tu bunku...jinka ostatni to dela jak jsem puvodne zamyslel ale nedokazal jsem to zformulovat...

jinak navstevnik diky tvoje makro se mi hodi zase jinam :)

[navstevnik]

to SeTH:
Procedura byla napsana na strukturu testovaciho souboru, pokud se realny soubor svou strukturou odlisuje od testovaciho, muze dochazet k chybe pri behu procedury. Protoze neuvadis k jake chybe doslo, nemohu posoudit.
Jinak pouzij reseni, ktere Ti vice vyhovuje.

[SeTH]

odlisovalo se to akorat jinym poradim sloupcu... ale to uz nevadi pouzil jsem tu co poslal mike007 a metodou pokus omyl sem si ji upravil k obrazu svemu