Excel VBA til postnummer fil

det vil nok være lige så interessant at vide, hvordan din makro ser ud pt.

Jeg har aldrig kunnet forstå denne tilbøjelighed til at foretrække VBA til noget der så let som ingenting lader sig løse med formler.

Hans

Tænker du på lopslag Hans?

LOPSLAG er et godt bud, INDEKS, SAMMENLIGN kunne være et alternativ.

Hans

Inden du åbner filen fra post-danmark, så skal du have kopieret det postnr. ind i en variable, så det er nemmere at søge efter det i post/by filen.

Forudsat, at du står i den celle, hvor postnr. er, så kan det hedde:

dim post as string
post = activecell.value

når du så har åbnet post/by filen, så kan du bruge følgende for at søge:

Range("A1").select
While Not ActiveCell.Value = post And Not ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
Wend
If ActiveCell.Value = post Then
    Dim by As String
    by = ActiveCell.Offset(0, 1).Value
Else
    MsgBox "Postnummeret kunne ikke findes", vbCritical, "Søgning af postnr."
End If

når du så skal sætte byen over i dit ark, så luk post/by filen, og gør dit ark aktivt, og du kan bruge følgende:

Activecell.offset(0,1).value = by

#1 her er min søge macro

Variabler er difineret

' Application.ScreenUpdating = False

  Set pRange = Worksheets("postnr").Range("a3:a1440")
city = Application.WorksheetFunction.VLookup(Me.TextBoxZipCode.Value, pRange, 2, "false")

' Application.ScreenUpdating = True
  Set pRange = Nothing

Jeg afslutter den her og  tak , har fundet en anden løsning