Oprette folders i flere niveauer i henhold til Liste i ark

Public Sub LaVBib()
    Dim Sti As String, I As Integer, X As Integer, A As Variant
    A = Range("A1").CurrentRegion
    For I = 1 To UBound(A)
        If A(I, 1) = Empty Then
            A(I, 1) = A(I - 1, 1)
            If A(I, 2) = Empty Then
                A(I, 2) = A(I - 1, 2)
                If A(I, 3) = Empty Then
                    A(I, 3) = A(I - 1, 3)
                End If
            End If
        End If
    Next
    For I = 1 To UBound(A, 1)
        For X = 1 To UBound(A, 2)
            If A(I, X) <> Empty Then
                Sti = Sti & A(I, X) & "\"
            End If
        Next
MkDir ("C:\" & Left(Sti, Len(Sti) - 1)) ' husk at rette drev
Sti = ""
    Next
End Sub

Hej Kabbak

Det virker perfekt, men kunne du forklare, hvad der sker. Jeg er lidt skæv på Ubound og currentregion.

Så en forklaring og et svar så er jeg lykkelig

/Carsten

Public Sub LaVBib()
    Dim Sti As String, I As Integer, X As Integer, A As Variant
    A = Range("A1").CurrentRegion' finder det område omkring A1 der er data i
    For I = 1 To UBound(A)'UBound(A) fortæller mig hvor mange rækker der er
        If A(I, 1) = Empty Then
            A(I, 1) = A(I - 1, 1)' hvis A2 er tom, tages værdien fra A1
            If A(I, 2) = Empty Then
                A(I, 2) = A(I - 1, 2)' hvis B2 er tom og A2 var tom, tages værdien fra B1
                If A(I, 3) = Empty Then
                    A(I, 3) = A(I - 1, 3) ' hvis C2 er tom og B2 og A2 var tom tages værdien fra C1

                End If
            End If
        End If
    Next
    For I = 1 To UBound(A, 1)' Hvor mange rækker
        For X = 1 To UBound(A, 2)' Hvor mange kolonner
            If A(I, X) <> Empty Then
                Sti = Sti & A(I, X) & "\" ' putter dem i en streng
            End If
        Next
' opretter biblioteket
MkDir ("C:\" & Left(Sti, Len(Sti) - 1)) ' husk at rette drev
Sti = ""' tømmer strengen, så den er klar til næste række
    Next
End Sub

et svar ;-))