https://www.helpmij.nl/forum/showthread.php/968875-Vba-code-voor-maken-van-een-map-in-verkenner?p=6362469#post6362469
Hallo in het bovenstaande draadje heeft @HSV mij geholpen met code voor een werkblad met 3 kolommen. de code werkte perfect. nu heb ik echter twee kolommen ingevoegd en nu krijg ik een foutmelding fout 91. onderstaande code werkte perfect voor het bestand met 3 kolommen
doordat ik ecter 2 kolommen ingevoegd heb heb ik van de columns 3 een 5 gemaakt. als de code dan loopt geeft hij bij
de foutmelding.
uw hulp is welkom.
dit is de huidige code bij het bestand vba1
Hallo in het bovenstaande draadje heeft @HSV mij geholpen met code voor een werkblad met 3 kolommen. de code werkte perfect. nu heb ik echter twee kolommen ingevoegd en nu krijg ik een foutmelding fout 91. onderstaande code werkte perfect voor het bestand met 3 kolommen
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing Then
If LCase(Target.Value) = "voltooid" And Application.CountA(Target.Offset(, -2).Resize(, 2)) = 2 Then
With CreateObject("shell.application").Namespace(Range("g1") & "\")
.newfolder Target.Offset(, -2) & "\Formulieren"
.newfolder Target.Offset(, -2) & "\Bestanden"
End With
End If
End If
End Subdoordat ik ecter 2 kolommen ingevoegd heb heb ik van de columns 3 een 5 gemaakt. als de code dan loopt geeft hij bij
Code:
.newfolder Target.Offset(, -2) & "\Formulieren"uw hulp is welkom.
dit is de huidige code bij het bestand vba1
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
If LCase(Target.Value) = "voltooid" And Application.CountA(Target.Offset(, -2).Resize(, 2)) = 2 Then
With CreateObject("shell.application").Namespace(Range("g1") & "\")
.newfolder Target.Offset(, -2) & "\Formulieren"
.newfolder Target.Offset(, -2) & "\Bestanden"
End With
End If
End If
End Sub
