Příspěvky uživatele
< návrat zpět
Děkuji.
Ještě drobnost. Zadal jsem si do sešitu, aby se po jeho otevření doplnilo do listu"historie" dnešní datum.
Private Sub Workbook_Open()
Worksheets("historie").Select
Sheets("historie").Cells(1, 4).FormulaLocal = ("=DNES()") 'vloží dnesDatum odeslání obj do "A4"
End Sub
a začlo mi to po otevření vyhazovat error:
Runtime error 57121
Aplication-defined or object -defined error.
Nevíte proč a jak se toho zbavit ?
super, jen, můžete mi prosím vysvětlit řádek:
If Not rng Is Nothing Then
tomu moc nerozumím , k čemu to je?
Dobrý den
..řešili jsme spolu.
Když doplním ten datum,list1,najde to jméno a doplní datum k příslušnému jménu
Potřeboval bych tam ještě doplnit podmínku:
pokud je v list1/sl.A "AA", tak ten datum doplní do list2/k odpovídajícímu jménu ale do sl.F /nov.datum AA
a
pokud je v list1/sl.A "BB", tak ten datum doplní do list2/k odpovídajícímu jmén ale do sl.G /nov.datum BB
Byl by jste tak hodný?
Děkuji
P
Mrknu .Dík.
Dobrý den.
Nedokázal by někdo poradit s makrem?
Jedno makro mi připraví email a potřebuji do něj přidat kod, který po doplnění Komu, Předmět,Text emailu atd,nabídl dialog.okno pro výběr souborů, /adres.struktura disku/, s předvyplněnou cestou,kde soubory hledat. V tomto okně bych si vybral soubory ,najednou více kusů, a ty se zazipovali a přidali do přílohy emailu.
Je to možné , takto volat i tu funkci Zip?
Pokud ne, stačí mi alespoň vybrat ty soubory, a přidat je do emailu.
add 2. V některých případech se názvy souborů nebudou nikdy měnit, vždy se budou jmenovat stejně /třeba text.txt, text2.txt apod .Tak jestli je možné to zakomponovat do makra taky.
Děkuju za každou radu.
strAdresa = "ddp@abc.cz"
'předmět e-mailu
strPredmet = "Žádost"
strBody = "Dobrý den," & vbCrLf 'text e-mailu
strBody = strBody & " S pozdravem"
..PŘÍLOHA ???
OK, už jsem to prošel, funguje, Děkuju !
Hezký večer
Zdravím
vyměnil jste pouze řádek na konci ?
.Cells(3, 6).Resize(UBound(arrA)).Value = Application.Transpose(arrA)
za
.Cells(3, 6).Resize(UBound(arrA)).Value = arrA
jinak nic, žádná změna v kodu ?
Prostuduju, díky za vyčerpávají komentář. Hezký víkend
tak jsem narazil při testování na zádrhel. Když už je nějaká hodnota ve sloupci F,u jmen v listu ICA historie , která jsme nenašli v seznamu VSTUPY , tak se tato hodnota vymaže. To je špatně, mám tam už data a musejí být zachována. Asi to chce jen upravit ,aby vyplněné hodnoty, když jméno nenajde se negumovali , Ale jen se přidalo to "a" co se našlo.
poznámka:
v:
'MaxRadekV = List3.Cells(Rows.Count, 4).End(xlUp).Row 'poslední obsazený řádek v listu Vstupy .... nevím jestli muže být jmeno listu
používáte zde název listu3 jako označení pořadí toho listu jak ho nazval excel?
Můžu ho přejmenovat takto?
MaxRadekV = Worksheets("Vstupy").Cells(Rows.Count, 4).End(xlUp).Row 'poslední obsazený řádek v listu Vstupy
pokud ano, asi to musím nahradit všude v makru, že ? List3 za Worksheets("Vstupy").
jojo,,přehlédl jsem tu RawsA.
Makro běží skvěle jak jsem chtěl.Děkuju
Ještě dotaz , jak jste psal o tom předávání parametrů,při volání jiného makra ...:
cituji: Sub MojeMakro(ByRef Jmeno As String, ByRef Datum As Date)
Které mu předá kód uvedený v modulu prvního listu.
Private Sub Worksheet_Change(ByVal Target As Range).
Pročetl jsem Lasakovi.. ale moc to nechápu.
Obecně: Lze z Makro1 volat Makro2 /Call Makro2(ByRef Jmeno As String), tak,že ,
Makro 2 skončí, dosadí hodnotu do promenné Jmeno a vrátí mi ji k dispozici do Makro1, kde sní mohu dále pracovat?...ona se zapamatuje i po ukončení Makro2?
Při implementaci kodu, jsem narazil na chybu :
Při aktivaci formuláře chci sečíst počet hodnot v listu sešitu a uložit do promenné Z
Z = WorksheetFunction.CountIfs(Worksheets("ICA historie").Range("R3", "R" & RowsA), "Ihned Zpracovat")
ale vyskakuje mi chyba :
Application -defined or object defined error, nevíte kde je chyba? To nejde volat takto z UserForm activated ?
..stejný zápis mi v klasickém makru funguje,takže napsaný je správně, ale když ho takto volám z UserForm/activated, nejde to
Dobrý den.
Chtěl bych v listu Vstupy, vzít po jednom : Jméno a najít ho v listu Icahistorie, pokud tam bude, doplní se tam k němu vedle do sl.F "a". /s podmínkou: /pouze pokud má ve sl.A aktuální rok,protože tam může být vícekrát a chci ho evidovat jen letos.
Toto je asi základní věc, které potřebuju dobře porozumět. Vybrat z nějaké oblasti(která může být různá o různém počtu řádků, začíná od ??) Hodnotu a tu pak hledat v jiném listu/v oblasti co si určím a k ní doplnit něco do zvoleného sloupce.
Děkuji
Super, Děkuji
Dobrý den.
Horko Ťažko jsem to připasoval na jiný sešit, ale povedlo se.
Mám ještě jednu věc.
Chtěl bych v listu Vstupy, vzít po jednom Jméno a najít ho v listu Icahistorie, pokud tam bude, doplní se tam k němu vedle do sl.F "a". /s podmínkou: /pouze pokud má ve sl.A aktuální rok,protože tam může být vícekrát a chci ho evidovat jen letos.
Toto je asi základní věc, které potřebuju dobře porozumět. Vybrat z nějaké oblasti(která může být různá o různém počtu řádků, začíná od ??) Hodnotu a tu pak hledat v jiném listu/v oblasti co si určím a k ní doplnit něco do zvoleného sloupce.
..nemůžu se z toho vymotat, neměl by jste nápad?
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