< návrat zpět

MS Excel


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

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  « předchozí  1 2
#056240
avatar
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. 1 ).citovat
#056243
avatar

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vyhledání buněk a kopírování do druhého listu

matusup • 15.5. 10:13

Relativní cesta - zdroje Power Query

elninoslov • 15.5. 9:44

Relativní cesta - zdroje Power Query

Alfan • 15.5. 8:46

Přidat dny

Baja • 15.5. 8:17

Vyhledání buněk a kopírování do druhého listu

elninoslov • 15.5. 8:15

Přidat dny

elninoslov • 15.5. 8:11

Vyhledání buněk a kopírování do druhého listu

matusup • 15.5. 7:25