Afkorting landcode bij landkeuze en opslag.

[sirpatje]

Vrienden,

Het lukt me niet er een code achter te zetten.
Ik stuur het bestand mee.

Mvg

 

[HSV]

Verwijder:

Sub exporteren_als_pdf4()

en

End Sub

 

[sirpatje]

Vrienden,

Dit heeft het gedaan alles werkt perfect. Vriendelijke bedankt aan allen.

 

[sirpatje]

Oeps, juist nog een probleempje gezien.
Vak G5 past zich aan naar de landcode maar vakken G6 tot G24 doen dat niet. Als ik de cellen kopieer van G5 naar G24 werkt de omzetting niet meer.
Weet iemand wat er verkeerd is?

Grtz

 

[JEC.]

Als je G5 naar beneden trekt moet het bij de rest ook werken.

 

[sirpatje]

Jveer,

Klopt, maar als ik op delete duw om geen invoer te hebben (blanco) werkt het nadien niet meer.

mvg

 

[JEC.]

Met de IsNumeric gaat het goed.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Column = 7 And Target.Count = 1 Then
  c00 = Application.Match(Target, Sheets(2).Range("E1:E213"), 0)
  If IsNumeric(c00) Then Target = Sheets(2).Cells(c00, 6).Value
 End If
Application.EnableEvents = True
End Sub

 

[sirpatje]

Jveer,

Bedankt werkt perfect, nu kan ik met een gerust hart gaan slapen.

Mvg

 

[JEC.]

Ik ken het gevoel