• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vytváření složek dle označených buněk

Zaslal/a Zemi77 4.5.2022 12:56

Ahoj,

Našel jsem zde a trošku modifkoval pro sebe následující makro. Zjednodušeně mi vytváří složky, které obsahují další dvě stabilní a neměné složky dle seznamu staveb. Ovšem rád bych toto ještě upravil tak, aby makro vytvořilo složky pouze z aktivních buněk. Např. při použití filtru,

Kód:
Sub VyvorSlozku_SUNSET_AMICOM()

Dim xdir As String

Dim lstrow As Long

Dim i As Long

lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row

For i = 3 To lstrow

xdir = "C:\Users\Petr.Zemek\Desktop\Práce\VB\AMICOM\" & Range("B" & i).Value

On Error Resume Next

MkDir xdir

If Err.Number = 0 Then 'když existuje, jde dál

MkDir xdir & "\Podklady"
MkDir xdir & "\Výstavba"

End If

On Error GoTo 0

Next

End Sub

Díky za rady

Zaslat odpověď >

---

Strana:  « předchozí  1 2

lubo(26.2.2024 18:40)#056240

Jde o opakované vytváření struktury adresářů s případnou drobnou modifikací. A k tomu nemusím spouštět Excel (což trvá mnohem déle než 0.01 sec. ).citovat

Zemi77(27.2.2024 7:56)#056243

lubo napsal/a:

Jde o opakované vytváření struktury adresářů s případnou drobnou modifikací. A k tomu nemusím spouštět Excel (což trvá mnohem déle než 0.01 sec. ).

No jde o to , že ten excel slouží jako databáze staveb/ projektů. Tam je asistenti zapisují a následně si projekt manažeři dle potřeby vytváří složky pro své projekty. Tzn že jak je projekt přiřazen dané osobě tak si založí třeba 15 složek pro stavby které s v excelové databázi označí. Proto ta interakce s excelem potřebná je a asi jednoduší než přes BATcitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse