Warme bakkertje
Meubilair
- Lid geworden
- 13 apr 2008
- Berichten
- 8.040
- Besturingssysteem
- Windows 10
- Office versie
- MO Home and Business 2024
Zelfde principe als vorige
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Offset(, -1) <> "" Then
MkDir ThisWorkbook.Path & "\" & Target.Offset(, -1) & "-" & Target
End If
End If
End Sub