Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Data v Excelu s makry

Dobrý den,
přišel jsem na to aby to vyhledalo podle Města Okres a Kraj.

Jenom že nemohu přijít nato, aby to vyhledalo podle PSČ - Město - Okres a Kraj na to nemůžu přijít.

V příloze zasílám vzor 2

Zkoušel jsem i vynechat v listě data vždy mezeru, aby to bylo odděleně a přehledné, ale když jsem to vynechal tak to nejde vůbec.

Vzory v makru:
Private Sub cobPsc_Change()
On Error GoTo Chyba
Sheets("Seznam").Range("L" & spbPorC + 1) = cobPsc
cobMesto.Value = WorksheetFunction.VLookup(Sheets("Data").Range("B1").Offset(cobPsc.ListIndex + 1, 1), Sheets("Data").Range("A2:B16535"), 2, False)
Exit Sub
Chyba: cobMesto = ""
End Sub

Private Sub cobMesto_Change()
On Error GoTo Chyba
Sheets("Seznam").Range("M" & spbPorC + 1) = cobMesto
cobKraj.Value = WorksheetFunction.VLookup(Sheets("Data").Range("C1").Offset(cobMesto.ListIndex + 1, 1), Sheets("Data").Range("G2:H15"), 2, False)
Exit Sub
Chyba: cobKraj = ""
End Sub

Private Sub cobKraj_Change()
On Error GoTo Chyba
Sheets("Seznam").Range("O" & spbPorC + 1) = cobKraj
cobOkres.Value = WorksheetFunction.VLookup(Sheets("Data").Range("F1").Offset(cobKraj.ListIndex + 1, 1), Sheets("Data").Range("E2:F16535"), 2, False)
Exit Sub
Chyba: cobOkres = ""
End Sub

Moc bych byl rád za Vaši pomoc a předem moc děkuji.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny