Příspěvky uživatele
< návrat zpět
Dobry den potrebujem pomoct mam vytvoreny excel na odpracovane hodiny a stoho mi vytvorit fakturu len mam taky problem pomohlo mi tomu Gemini ale mam casto problem ze bud vyhadzuje dake chyby alebo ked zadam cislo tyzdna tak mi nespravne vygeneruje datumy od pondelka do soboty.
Bod A:
Na liste Hodiny tu zadavam cislo tyzdna do buniek F2,F16 a F30 pre kazde meno zvlast a do buniek datum potrebujem vzdy vygenerovat spravny datum podla cisla tyzdna s tym ze sa pracuje len pon-sob. Po odkliknuty makra vytvorit+ulozit fakturu urobi zmeny na faktúrach podla kriterii.
Nikede do buniek M,N,O,P:1 by chcem vlozit vzorec kde bude ukazovat datum, den a cislo tyzdna.
Do kalendara by chcel sparovat odp.čas + mesto len s buniek E5:10 + G5:10 a priaradit podla datumov do kalendara vp formate OČ-Mesto. (Ak by tento kalendar robil problem kludne sa moze vymenit za podobny)
Teraz prejdeme na faktury podla osob do bunky E14 vlozit cislo tyzdna s harka hodin.
Bunky L6,L7 a L25 vlozit aktualny dátum.
Do bunky D15 vlozi mesto s harka Hodiny stlpec G s podmienkou ze zada len jedno mesto ktore je rovne alebo viac. (napr ked je 3xmesto a 3xmesto tak vybrat hociktore)
Cislo faktury bunky L6 a L26 (cislo Fa.+rok) tu potrebujem zadat viacero podmienok číslo faktúry zvyšovat iba vtedy, ak sa zmení číslo týždňa + dátumy na liste "Hodiny. Ked sa na liste Hodiny zvysy cislo tyzdna ale odpr. hod(F5:10) a mesta (G5:10) ostanu prázdne vtedy nenavysovat cislo faktury. Pri dakej uprave okrem dátumu a cisla tyzdna faktura sa len aktualizuje aby nedoslo pri ukladany zbytocne navysovanie cisla Fa..
Bod B:
Faktury ukladat do pdf samostatne alebo hromadne + zvlast hodiny kde bude uvedena takato cesta pre kazdu osobu zvlast: CESTA = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & "\MEGA\Faktúry\". Faktura ma rozsah A1:M50 a tu ukladat v tomto formate (Meno Fa.042025 W-12.pdf) takze bude brat udaje (bunka L31) fa.(bunka L6) W-(bunka D14).pdf .Hodiny rozsah C1:H45 tie ukladat vo formate (Hodiny W-12.pdf)
Zdravim vie mi niekto poradiť ako vytvoriť QR kód pre platbu faktúry kde bude dátum,číslo faktúry,Ivan,variabilný symbol a dáke údaje.
Dakujem za ochotu a vas cas
Posielam Vam cely zosit. Musi to fungovat len vzdy s posledneho ciselneho harka. Potrebujem to zmenit na nakupnu cenu stlpec P predtym to bola predajna cena
Dobry den potreboval by poradit potrebujem potrebujem zmenit stlpec len sa mi nedary ktora hodnota to. S posledneho ciselneho harka mi zratava hodnotu stlpec G a vynasobi sa s zo stlpcom J a vysledok vlozi na harok inventar. Ja potrebujem aby vyratalo hodnotu G a vynasoby stlpec P
Sub Inventar()
Dim dic As Object
Dim list As Worksheet
Dim Oblast As Range, Bunka As Range
Dim Citac As Integer
Dim Klic As Variant
Set dic = CreateObject("Scripting.Dictionary")
Set list = ThisWorkbook.Worksheets(Worksheets.Count)
'Debug.Print list.Name
If Not IsNumeric(list.Name) Then GoTo Chyba
Select Case CInt(list.Name)
Case 1 To 31
Set Oblast = Union(list.Range("C13").Resize(51), list.Range("C76").Resize(52))
For Each Bunka In Oblast
If Bunka.Value <> "" Then
If Not dic.Exists(Join(Array(Bunka.Value, Bunka.Offset(, 7).Value, Bunka.Offset(, 9).Value), "•")) Then
dic.Add Join(Array(Bunka.Value, Bunka.Offset(, 7).Value, Bunka.Offset(, 9).Value), "•"), Bunka.Offset(, 4).Value
Else
dic(Join(Array(Bunka.Value, Bunka.Offset(, 7).Value, Bunka.Offset(, 9).Value), "•")) = dic(Join(Array(Bunka.Value, Bunka.Offset(, 7).Value, Bunka.Offset(, 9).Value), "•")) + Bunka.Offset(, 4).Value
End If
End If
Next Bunka
Application.ScreenUpdating = False
With Worksheets("Inventár")
For Each Klic In dic
.Range("C5").Offset(Citac).Value = Split(Klic, "•")(0)
.Range("C5").Offset(Citac, 1).Value = dic(Klic)
.Range("C5").Offset(Citac, 2).Value = Split(Klic, "•")(2)
.Range("C5").Offset(Citac, 3).Value = dic(Klic) * Split(Klic, "•")(1)
Citac = Citac + 1
Next Klic
.Range("C5").Offset(Citac + 2, 3).Formula = "=SUM(" & .Range("C5").Offset(, 3).Address & ":" & .Range("C5").Offset(Citac, 3).Address & ")"
.Range("C5").Offset(Citac + 1, 3).Value = .Range("C5").Offset(Citac + 1, 3).Value
.Range("C5").Offset(Citac + 2, 2).Value = "Celkom:"
End With
Application.ScreenUpdating = True
Case Else
Chyba:
MsgBox "Nesprávný název listu", vbCritical, "CHYBA !!!"
End Select
Set Oblast = Nothing
Set list = Nothing
Set dic = Nothing
End Sub
Este raz za vsetko Dakujem funguje ako ma
Velmi pekne Ďakujem ak som fakt nenapisal dakujem tak sa 100x ospravedlnujem .
Len este malicka oprava kedze to mam ako cloud ktory je spolocne na 3 pc len vsade je iny pouzivatel tak som stym mam velakrat problem tak elnino mi vytvoril takuto cestu ktory uz potom funoval vies mi ho upravit a doplnit?
Cesta = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & "\MEGA\Vyučtovanie\"
cesta je vzdy rovnaka len uzivatel je iny
Zdravim potrebujem poradit ako zalohovat zosit pri kazdom zmacknuty ulozit. Chcel by som to ukladat do jedneho zdielaneho priecinka MEGA cloud. Moje povodne zošity su vzdy ukladane vo formate vyuctovanie mesiac rok.xlsm.
Zalozne zosity ukladat do adresa tak aby sa nikdy neprepisal povodny zosit mozu byt ukladane ako Záloha 1 - Vyuctovanie Marec 2025.xlsm ked dam znova ulozit ulozi sa ako Zaloha 2 .....
Pripadne si necham poradit rozne zalohy. Vela krat sa mi stalo ze som prepisal povodny zosit a uz nebolo cesty spat.
Zdravim na liste Print mam dve rozne tabulky v rozsahu B134:M266 a R80:AD127.
Potrebujem vytvorit dake makro kde si vyberiem jednu alebo druhu tabulku s poctom kopii pre tlac a dam odsoslat pre tlaciaren.
Dobrý deň mám uzamknuty celý zošit kde mám niektoré bunky povolené na úpravu. A môj problém je taký keď chcem často robiť upraví tak zakaždým musí označovat bunky ktoré chcem zamknuté.Ako to docieliť lepšie prípadne šlo by to urobiť makrom aj že budem mať hlavný list a natom si budem môcť voliť odomykat určity hárok ktorý treba.
Dakujem elnino za rychlu odpoved len vies mi este raz poslat update lebo text zobrazuje divoko
.Range("G5").Resize(Citac).Address & ")" 'vlož vzorec pod výsledok
Pan elnino viete mi pomoct ci sa bude dat doriesit moj problem.dakujem
preposielam môj zošit a jedná sa o hárok report a bunky N2 a N3 ktoré potrebujem aby mi fungovalo.Dakujem
loksik.lubos napsal/a:
Chcel by som poradit s tymto makrom na porovnavanie hodnot. Podarilo sa mi ho spojazdnit a funguje mi len mi nefunguje vyfarbovanie ktoré je stále vydarené na cerveno. Elnino poradis mi co mam urobit aky postup. Dakujem
Chcel by som poradit s tymto makrom na porovnavanie hodnot. Podarilo sa mi ho spojazdnit a funguje mi len mi nefunguje vyfarbovanie mam to nastavene aj v podmienenom formatovani. Elnino poradis mi co mam urobit aky postup. Dakujem
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