Funguje skvěle, děkuji moc! ;-)
Zkusím to lépe popsat...
Aktuálně mám toto makro:
Které při otevření souboru, pokud se název účtu na pc jmenuje "Milan" a název sešitu je "cn" zapíše hodnoty do níže definovaných buňek.
Sub Workbook_Open()
If Environ("username") = "Milan" Then
ThisWorkbook.Sheets("cn").Range("G3").Value = "aaa"
ThisWorkbook.Sheets("cn").Range("G4").Value = "bbb"
ThisWorkbook.Sheets("cn").Range("G5").Value = "ccc"
End sub
Aktuálně do souboru přibyl se list, který se jmenuje "DL" (list CN ani DL se nevyskytují v souboru naráz) a já potřebuji do listu "DL" zapsat ty stejné informace na stejné místo jako na listu "cn".
Do makra tedy potřebuji přidat list navíc, aby podmínka byla definována takto: při otevření zkontroluj, zda jméno účtu je Milan, pokud ano zapiš do listu "cn" a nebo "dl" hodnoty definované výše do výše uvedených buněk.
Jde mi tedy pouze o to, do makra přidat podmínku pro list "DL".
Snad jsem to už popsal srozumitelně.
Děkuji.
Problém je i po znovu otevření souboru chyba:
Run-time error "9".
Subscript out of range.
https://uloz.to/!SX2eWouP6/555-zip
Zasílám přílohu.
Vložení hodnoty do buňky musí být podmíněno jménem účtu na PC. viz příloha.
Kdyby ještě něco bylo třeba, rád odpovím.
Děkuji.
První problém mám vyřešen, nyní druhý...
Potřebuji, aby makro zapsalo do sheetu ("cn") nebo ("dl") (podle toho, jaký list bude v souboru k dispozici, nikdy nebudou oba zaráz) hodnotu "aaa" (bbb, ccc)
tzn.
ThisWorkbook.Sheets("cn") nebo ("dl").Range("G3").Value = "aaa"
Sub Workbook_Open()
If Environ("username") = "Milan" Then
ThisWorkbook.Sheets("cn").Range("G3").Value = "aaa"
ThisWorkbook.Sheets("cn").Range("G4").Value = "bbb"
ThisWorkbook.Sheets("cn").Range("G5").Value = "ccc"
End sub
Omlouvám se za mé lajcké vyjadřování a děkuji.
Ahoj,
mám dvě makra, která bych potřeboval následovně upravit:
- když je název souboru "CN" a nebo "DL" then... zkoušel jsem or nebo and a ani jedno nejde...
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.ActiveSheet.Name <> "cn" Then
ActiveSheet.Range("H8").Value = Environ("username")
ActiveSheet.Range("J8").Value = Date
End If
End Sub
Zde bych potřeboval to stejné, ale aby v ThisWorkbook sheet mohlo být "CN" a nebo "DL" případně další... then...
Sub Workbook_Open()
If Environ("username") = "Milan" Then
ThisWorkbook.Sheets("cn").Range("G3").Value = "aaa"
ThisWorkbook.Sheets("cn").Range("G4").Value = "bbb"
ThisWorkbook.Sheets("cn").Range("G5").Value = "ccc"
End sub
Pro někoho asi hrozně jednoduché, ale já se s tím peru. :-)
Děkuji za ochotu.
Vyřešeno, možno smazat.
Nikdo neví, nebo mohu něco upřesnit?
Děkuji moc.
Funguje skvěle, děkuji moc Pavlusi.
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.
Ahoj,
mám makro, které mi vytváří ze soupisu materiálu cenovou nabídku. Do tohoto makra bych potřeboval doplnit Cenu celkem s DPH. (aktuálně pouze cena bez DPH)
V příloze jsem vytvořil vzor, jak bych makro potřeboval upravit.
Nastávají dva stavy:
1. nabídka je bez slevy
2. nabídka je se slevou
Potřebuji tedy, aby makro bylo "chytré" a řádek s celkovou cenou se pohyboval podle toho, zda bude v nabídce sleva nebo ne.
Výše DPH se může lišit (21/15% - buňka F34) tuto výši si budu upravovat nabídku od nabídky. Potřebuji tedy pouze, aby vzoreček v buňce G34 se přepočítával po změně DPH.
Snad jsem vše dobře vysvětlil, kdyby cokoliv, ptejte se prosím.
Děkuji za ochotu a váš čas.
Zdrojové soubory jsou 2.
Kdyby makro bylo pouze na jeden adresář, bylo by to jednodušší?
Udělal bych si soubor, kde bych si dal tři makra (podadresáře jsou tři) na každý adresář zvlášť bych si upravil cestu a spustil makro zvlášť.
Pokud by bylo potřeba ještě něco upřesnit, ptejte se... :-)
Děkuji za váš čas.
Pořadí je jedno, nejsou na sobě závislé.
Aktualizují se ze souboru, který není v tomto adresáři ani podadresáři.
Ahoj,
prosím o radu, potřeboval bych vytvořit makro, které by mi aktualizovalo propojení ve všech souborech ve složce (včetně podsložek).
Složky obsahují pouze soubory *.xlsm.
Adresa složky je pořád stejná.
Tzn. Otevři soubor, aktualizuj všechna propojení, ulož, zavři, další soubor... a takto všechny soubory.
Jednou za čas takto potřebuji aktualizovat hodnoty ve všech sešitech, budu používat tedy poměrně často.
Děkuji za pomoc.
Použij druhou variantu a funkci nahradit
toto: " "
nahraď pouze mezerou
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.