2e map aanmaken

[pvag]

Beste experts,

Ik heb vorige week een bericht geplaatst waarin ik vroeg om in ee sheet automatisch een maap aan te maken wanneer er in een bepaalde kolom een naam werd ingevoerd. Nu ben ik bezig om in de map die de naam van de ingevoerde persoon een submap te maken met de naam Beoordeling docent. Het lukt me niet. De mapnaam "Beoordeling docent" moet dus als submap in elke aangemaakte map verschijnen. Edmoor heeft de eerste aanzet gegeven. Alvast mijn dank.

 

[JEC.]

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Map
 If Target.Column = 2 And Target.Row > 1 Then
    If Target = "" Then Exit Sub
    Map = "D:\Verslagen\" & Target.Value
    If Dir(Map, 16) = "" Then
        MkDir Map
        MkDir Map & "\Beoordeling docent"
    End If
 End If
End Sub

 

[edmoor]

Zie net pas dat JEC me voor was.

Dat lijkt me toch niet zo moeilijk:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then
        If Target <> "" Then
            Map = "D:\Verslagen\" & Target.Value
            If Dir(Map, vbDirectory) = "" Then
                MkDir Map
                MkDir Map & "\Beoordeling docent"
            End If
        End If
    End If
End Sub

 

[HSV]

Kan ook.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 And Target.Row > 1 Then
    If Target <> "" Then CreateObject("shell.application").Namespace("D:").newfolder "verslagen\" & Target.Value & "\beoordeling docent"
 End If
End Sub

 

[pvag]

bedankt

Hallo experts,

Bedankt voor jullie inzet. het werkt perfect.