MS Excel

Téma: automatické vytvoření složky na základě hodnot

Zaslal/a zEjnik 30.12.2015 14:54

Ahoj,

chtěl bych vás poprosit o vytvoření makra.

Mám přehled, kde ve sloupci "A" je číslo (číselná řada, čísla se mění) např. 160001 a ve sloupci "B" je název (např. Petr).

Potřeboval bych, aby při změně buňky ve sloupci "B" se založila složka na určeném místě. (vždy stejná adresa, například "C:\" musí fungovat na celý sloupec B).

Finální složka by tedy vypadala "160001" - "Petr" (C:\160001 - Petr)

Děkuji za ochotu.

Zaslat odpověď >

Pavlus(30.12.2015 16:20)#028903

Já bych to řešil asi nějak takto, přes událost listu.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim posledni_obsazeny_radek As Long
Dim cesta_ke_slozce As String
Dim i As Long

posledni_obsazeny_radek = Sheets(List1.Name).Range("A100000").End(xlUp).Row

For i = 1 To posledni_obsazeny_radek
If Sheets(List1.Name).Range("A" & i).Value <> "" And Sheets(List1.Name).Range("B" & i).Value <> "" Then
cesta_ke_slozce = "C:\" & Sheets(List1.Name).Range("A" & i).Value & " - " & Sheets(List1.Name).Range("B" & i).Value
If Len(Dir(cesta_ke_slozce, vbDirectory)) = 0 Then
MkDir cesta_ke_slozce
End If
End If
Next i

End Subcitovat

zEjnik(30.12.2015 19:40)#028912

Funguje skvěle, děkuji moc Pavlusi.citovat

Téma: automatické vytvoření složky na základě hodnot

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje