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.