Příspěvky uživatele
< návrat zpět
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 BAT
Nemá někdo prosím tip , jak adresovat název SUB složky dle buňky , která je ve sloupci na konci tabulky, přičemž kurzorem je označen sloupec druhý např?
Pokud označím ve sloupci B 10 posledních buňek tak dle sloupce B se založí 10 složek (1334F, 0120F adpod... a v každé té složce ty dvě SUB složky, a nakopírované PDF s názvem posledního sloupce.
Soubor zde
Zdravím všechny milovníky excelu,
Chtěl bych požádat o pomoc s makrem, které mi pomůže výrazně zrychlit tvorbu složek pro jednotlivé stavby. Makro je již v sešitu připravené a dokáže vytvořit do zadané cesty z označených buněk složku , nesoucí název dle buněk. ... zde bohužel mé zkušenosti končí.
Makro by mělo tedy umět vytvořit složky dle označeného seznamu ze sloupce B. V každé takto založené složce by měly být dvě sub složky nesoucí název dle sloupců K a L.
Dále v hlavní složce vytvořené dle sloupce B nakopírovaný PDF soubor z pevně dané cesty , přejmenovaný dle sloupce M.
Děkuji za případnou pomoc
Ahoj,
možná pomůže přidat Váš server mezi důveryhodné.
Měl jsem obdobný trouble dnes, že makra v sešitech co máme na serveru excel hlásil že Microsoft blokuje. Po tét vyjímce již zase běží.
Soubory
Ahoj všem,
chtěl bych poprosit zda by se našel někdo ochotný kdo by dokázal vytvořit makro které by mělo dělat následující.
Z databázové tabulky na základě označeného řádku vytvořit druhý excelový sobor , který je pevně uložen (šablona) na jednom místě a doplní do něj data z databáze. (hlavičku formuláře)
1)do šablony do buňky C8 vložit hodnoty ze sloupce A
2 do šablony do buňky C9 vložit hodnoty ze sloupce Q
3)do šablony do buňky sjednocené D-E;9-11 vložit hodnoty ze sloupce C
4)do šablony do buňky C15 vložit hodnoty ze sloupce F
5)do šablony do buňky C16 vložit hodnoty ze sloupce B
Excel poté uložit do pevně daného umístění s názvem ze sloupce C z databáze
Zjednodušeně na základě označeného řádku, případně více najednou vzít šablonu vyplnit hlavičku a uložit pod svým názvem do dané složky.
za případnou pomoc děkuji. Soubory přikládám
K plné spokojenosti ošetřeno následujícím kodem :
Sub VyvorSlozku_SUNSET_LIKEMA()
Dim xdir As String
Dim lstrow As Long
Dim i As Long
Dim cell As Range
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
For Each cell In Selection
xdir = "E:\TEST\AMI\LIKEMA\" & cell.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ěkuji za pomoc
JoKe napsal/a:
For i = 3 To lstrow
if not rows(i).hidden then
xdir = ...
OK, takto tunkční.
Nicméně po testu neosvědčilo se takto.
Lze nějak tedy ošetřit , aby pracovalo pouze s myší označenými buňkami .... tedy např. 5 ( nově přidaných do databáze) ze všech 150 co ve sloupci jsou?
Díky za pomoc
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
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články