< návrat zpět
MS Excel
Téma: vyhledavani vice shod
Zaslal/a nife75 10.2.2013 1:28
Vazeni pratele, jsem v koncich a potrebuji pomoc.
Mam na liste1 tabulku o nekolika sloupcich a nekolikaset radcich. touzim po funkci ktera mi na liste2 po zadani hodnoty ze sloupce Enid vygeneruje odpovidajici hodnoty ze sloupcu Note a Comment. Kazda hodnta ze sloupce enid muze mit ruzny pocet radku.
Funkce SVYHLEDAT mi najde pouze prvni shodu, ale potrebuji vsechny shody.
Taky jsem to zkousel pres funkci Index, ale zamotal jsem se v to tak ze vas volam na pomoc .
Mate nejaky napad jak bych to mohl rozvazat?
Diky!!!
Příloha: 11562_vyhledavani_pomoc.zip (102kB, staženo 23x)
Uzamčeno - nelze přidávat nové příspěvky.
Jeza.m(10.2.2013 8:42)#011565 Pomocí funkce to nikdy nebude univerzální, šel bych na to raději makrem:
Public Sub najdi()
List2.Range("A6:J" & List2.UsedRange.Rows.Count + 5).ClearContents
Dim rd1 As Single
Dim rd2 As Single
Dim enid As String
rd2 = 6
enid = List2.Cells(2, 2)
For rd1 = 2 To List1.UsedRange.Rows.Count
If List1.Cells(rd1, 3) = enid Then
List2.Cells(rd2, 1) = List1.Cells(rd1, 2)
List2.Cells(rd2, 6) = List1.Cells(rd1, 1)
rd2 = rd2 + 1
End If
Next
End Sub
M@
citovat
eLCHa(12.2.2013 5:00)#011608 Lze snadno vyuzit kontingenční tabulky a není třeba programovat
Jen pokud máte list s databází, doporučuji nevynechávat řádky.
Příloha: 11608_vyhledavani_pomoc.zip (121kB, staženo 24x) citovat
nife75(12.2.2013 22:41)#011626 Diky moc, s kontingencni tabulkou jsem rozhodne vetsi kamos nez s programovanim, ale slibuji na pionyrskou cest ze se polepsim a naucim se I ty makra
citovat