Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - VBA rada
hlavní kategorie | zpět | + odpovědět na toto téma| VBA rada - diskuze na toto téma |
| Zdravím,
chtěl bych udělat asi tohle:
1)mám nějaký Excel do kterého napíšu nějaké ČÍSLO ZAKÁZKY a různé výrobky a poté ho uložím do určité složky podle různých kritérií = název bude podle čísla tj. ČÍSLO ZAKÁZKY.xlsx - toto vše udělám ručně => mám několik složek a v nich soubory se zakázkama
2)chtěl bych aby se to ČÍSLO ZAKÁZKY ze souboru čislo zakazky.xlsx po uložení do určité složky samo připsalo do druhého souboru souhrn.xlsx pod sebe do sloupečků
...nebo
když otevřu soubor souhrn.xlsx tak to zkontroluje všechny soubory v jednom adresáři s různými podadresáři a vypíše podle datumu přidání ČÍSLA ZAKÁZEK do sloupců pod sebe
==> výsledek bude:
budu mít v různých složkách soubory zakazka1.xlsx až zakázka5.xlsx a jeden soubor souhrn.xlsx, ve kterém bude napsané pod sebou zakazka1 zakazka2 ..... zakazka5, když se podaří tak i s datem přidání
Je tu nějaký ochotný VBA programátor, který mě pomůže? Díky Pri otvorení súboru Souhrn.xlsm (obsahujúci makrá je xlsm, nemôže byť xlsx) je treba ošetriť udalosť Open a dať napríklad spustiť takúto procedúru. Vypíše obsah DIRu, ktorý chceš na list, ktorý je aktuálny.
Private Sub Workbook_Open()
Dim BookName As String, PathName As String, i As Integer
PathName = "F:\Excelland\oblasti\SYSTEM_DIR\"
BookName = Dir(PathName)
Do Until BookName = ""
i = i + 1
Cells(i, 1) = BookName
BookName = Dir()
Loop
End Sub Odpověď |
