Lopslag fungere ikke i VBA kode i UserForm.Activate

Jeg er ikke helt klar over, hvor du vil have formlen sat ind. Er txtNavn navnet på en celle, eller er det navnet på etr felt ui Userformen? Hvis det sidste er tilfældet, så prøv med

Prøv med

txtNavn = Application.WorksheetFunction.VLOOKUP(R[-1]C[-4],Kundeliste!R[-19]C[-4]:R[-17]C[5],2,FALSE)

Hej jkrons

Jeg får følgende fejlmelding
Compile error:
Expected: list seperator or )

txtNavn = Application.WorksheetFunction.VLOOKUP(R[-1]C[-4],Kundeliste!R[-19]C[-4]:R[-17]C[5],2,FALSE)

VBA markere (R[-1]

Det er navnet på et felt i UserForm (txtNavn) og der skal kun hentes oplysninger ind, når det er en eksisterende kunde. UserForm starter med et spørgsmål om, der er tale om en eksisterende kunde? Ja eller nej. Trykkes på nej skal oplysninger skrives ind manuelt, trykkes ja, skal felte txtNavn automatisk hente oplysninger via et Lopslag.
Det felt hvor den skal skal læse oplysningen om det eksisterende kundenummer hedder "lstEksisterendeKunde", her er markeret kundenummer. Håber dette kan hjælpe
MVH
Ups

Prøv at "oversætte" til almindelige referencer i stedet´for R1C1 referencerne.

With Navn
If lstKundeNummer.Value > 1 Then
txtNavn = Application.WorksheetFunction.VLookup(lstKundeNummer.Text, Kundeliste![A1;J3], 2, False)

End If
End With
Når jeg skriver koden således, får jeg ingen fejlmelding, men det virker stadig ikke

prøv :

txtNavn = Evaluate("VLookup(" & Me.lstKundeNummer.Text & ",Kundeliste!A1;J3,2,False)")

Prøv med

Kundeliste!A1:J3 i stedet for Kundeliste![A1;J3]

Hej
Jeg har nu prøvet excelent forslag, det ser ud som nedenstående. Jeg kan ikke få VBA til at acceptere uden [ ] i den anden kode (kommentar 10:40:44)

Desværre sker der ingen ting andet end feltet "txtNavn" nu er aktivt når jeg starter programmet.
Som tidligere beskrevet er der to muligheder når brugeren åbner UserForm. Der kan svares ja/nej til om det er en eksisterende kunde. Svares der ja, markeres chkEksisterendeKunde, og det er muligt at hente kundenummer ind fra en liste (lstKundeNummer), svares der nej, markeres chkNyKunde og alle felter vedr. navn og adresse bliver tilgængelige. Jeg har sikret mig at felte Navn er sat til .Enabled = True i begge scenarier, aligevel virker det ikke.
Jeg kan bare ikke gennemskue hvad jeg gør forkert.


Private Sub UserForm_Activate()

With Navn
If lstKundeNummer.Value > 1 Then
txtNavn = Evaluate("VLookup(" & Me.lstKundeNummer.Text & ",Kundeliste!A1;J3,2,False)")
End If
End With

Private Sub txtNavn_Change()
If lstKundeNummer.Value > 1 Then
txtNavn = Evaluate("VLookup(" & Me.lstKundeNummer.Text & ",Kundeliste!A1;J3,2,False)")
End If
End Sub

kan du ikke sende en kopi af filen
pm@madsen.tdcadsl.dk

Der er en megefil påvej ;-)

ok fil retur

løsning :

Private Sub lstKundeNummer_Change()
If lstKundeNummer.Value > 1 Then
On Error Resume Next
txtNavn.Text = Evaluate("VLookup(" & Me.lstKundeNummer.Text & ",Kundeliste!A1:J3,2,False)")
End If
End Sub

Hej Excelent
Tusind tak for hjælpen, det fungere fint i alle celler
MVH
Ups

velbekom