Já vyzkoušel všech 12 měsíců a bez chyby
Příloha: 
21864_lisdd.zip (13kB, staženo 23x)
citovat21864_lisdd.zip (13kB, staženo 23x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Automatické generování Worksheets
p.s. list1 v range("B7") ti nechybí datum?
zkus nahradit řadek:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Range("B7"), "yy")
timto:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Now, "yy")citovat
MS Excel
Téma: Automatické generování Worksheets 
Zaslal/a Johan-Kraczmar 11.10.2014 12:35
Zdravím,
rád bych věděl, zda je možné generovat worksheety automaticky podle počtu pracovních dní v zadaném měsíci.Tzn. Do sheetu 1 buňka A1 zadám aktuální měsíc, třeba 10 a na základě toho se mi vygenerují worksheety 01 - 31.10
Děkuji předem
Strana: « předchozí 1
2
mosquito791 napsal/a:
Já vyzkoušel všech 12 měsíců a bez chybyPříloha: 21864_lisdd.zip
p.s. list1 v range("B7") ti nechybí datum?
zkus nahradit řadek:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Range("B7"), "yy")
timto:
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Now, "yy")citovat
@mosquito791
p.s. list1 v range("B7") ti nechybí datum?
A mal by tam byť?????
Ja by som dal
If Weekday(DateSerial(Year(Now), Range("B2"), i), 2)<>5 Thencitovat
p.s. list1 v range("B7") ti nechybí datum?
A mal by tam byť?????
Ja by som dal
If Weekday(DateSerial(Year(Now), Range("B2"), i), 2)<>5 Thencitovat
To: mosquito791
Zkousel jsem tvou prilohu a hele co mi to napsalo
Zkousel jsem tvou prilohu a hele co mi to napsalo
Příloha: 21867_test.zip (197kB, staženo 20x)
citovat21867_test.zip (197kB, staženo 20x)Nahradil jsem jak jsi napsal a uz to ficiiiii!!!!!!
citovat
marjankaj napsal/a:
@mosquito791
p.s. list1 v range("B7") ti nechybí datum?
A mal by tam byť?????
Ja by som dal
If Weekday(DateSerial(Year(Now), Range("B2"), i), 2)<>5 Then
Mno jo no, to je tak když někomu vezmeš práci a vpíchneš tam něco svoje 
Nevím jak jsem se dostal k tomu, že mám tahat datum z "B7".
Ale naštěstí jsou tady borci, kteří to napraví
citovat
Nevím jak jsem se dostal k tomu, že mám tahat datum z "B7".
Ale naštěstí jsou tady borci, kteří to napraví
citovat(13.10.2014 19:27)#021870
Datum v B7 sem bral z krze rok. Bral jsem, že tazatel si vždy předvyplní zdrojový list a makro následně vygeneruje další.
Nechtěl jsem dávat aktuální rok, co kdyby to chtěl dělat do budoucna (v prosinci na leden)
Takže tolik k datumu v B7.citovat
Nechtěl jsem dávat aktuální rok, co kdyby to chtěl dělat do budoucna (v prosinci na leden)
Takže tolik k datumu v B7.citovat
@cmuch1
Veď v pohode. Malo by to ísť aj tak. Ale pre deň v týždni radšej použijem DATESERIAL. To nie je tak závislé na formáte dátumu ako CDATE. (anglický alebo náš) Zadávateľ má asi iné nastavenia ako mosquito.citovat
Veď v pohode. Malo by to ísť aj tak. Ale pre deň v týždni radšej použijem DATESERIAL. To nie je tak závislé na formáte dátumu ako CDATE. (anglický alebo náš) Zadávateľ má asi iné nastavenia ako mosquito.citovat
Kluci, moc Vám všem děkuji,vytrhli jste mi trn z paty a to hodně velkej.Ušetřím tímto spoustu času,který můžu využít třeba právě učením se programovat v excelu.Máte všichni můj velký obdiv a respekt !!!citovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\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