koricka
23.11.16,10:50
Ahojte,
chcela by som Vás poprosiť, mám xls subor s počtom listov, koľko je v danom mesiaci dní. Napr. novembri mám 30 listov. Ako môžem napr. do bunky A5 vložiť do každého listu dátum prisluchajúci k danému dátumu,
teda napr. v liste 1, v bunke A5,bude 1.11.2016,
v liste 2, v bunke A5, bude dátuma 2.11.2016
....atď
Ďakujem Vám za rady
chcela by som Vás poprosiť, mám xls subor s počtom listov, koľko je v danom mesiaci dní. Napr. novembri mám 30 listov. Ako môžem napr. do bunky A5 vložiť do každého listu dátum prisluchajúci k danému dátumu,
teda napr. v liste 1, v bunke A5,bude 1.11.2016,
v liste 2, v bunke A5, bude dátuma 2.11.2016
....atď
Ďakujem Vám za rady
ivka70
23.11.16,11:28
Rucne alebo si na to napisat makro.
koricka
23.11.16,12:00
Rucne mi je jasne
koricka
23.11.16,12:02
Vedeli by ste mi poradit s makrom?
vicktor
23.11.16,12:28
A co takto: v prvom harku/sheete bude datum natvrdo 1.11.2016, v kazdom dalsom odkaz na A5 z predchadzajuceho harku plus 1.
koricka
23.11.16,12:38
Toto poznam, myslela som ci existuje sposob ako to urobit automaticky :-D
ivka70
23.11.16,20:56
Sorry, ale to rychlejsie zapise rucne, ak ma kazde makro rucne prepisovat.
Kabaka123
24.11.16,05:04
ja netvrdím, že toto makro má prepisovať... len som ukázal prvý krok...
koricka
24.11.16,06:58
Mám takéto makro...ale to tiež nie je OK, pretože to bude prepisovať aktuálny deň :(
Sub Dátum()
Cells(5, 1).Value = Format$(Now, "dd/mm/yyyy")
End Sub
Sub Dátum()
Cells(5, 1).Value = Format$(Now, "dd/mm/yyyy")
End Sub
PaloPa
26.11.16,15:02
Ak to má byť pre každý list inkrement podľa poradového čísla listu,
potom by som navrhoval takéto makro:
Sub Date_to_A5_cells()
Dim i As Byte
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Range("A5").Value = _
CDate(i & "." & Month(Now) & "." & Year(Now))
ActiveWorkbook.Worksheets(i).Range("A5").NumberFormat = "dd/mm/yyyy"
Next i
End Sub
30-11-2016
Myslím, že na problém došiel Jano (marjankaj (http://www.porada.sk/member.php?u=19337)), ktorý mi nechal v profile nasledovný odkaz: "Pali, dal som tam lomítka namiesto bodky a funguje. Excel 2007."
To znamená, že je to vec regionálnych nastavení príslušného počítača.
Takže treba nahradiť:
CDate(i & "." & Month(Now) & "." & Year(Now))
za
CDate(Year(Now) & "/" & Month(Now) & "/" & i )
P.
potom by som navrhoval takéto makro:
Sub Date_to_A5_cells()
Dim i As Byte
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Range("A5").Value = _
CDate(i & "." & Month(Now) & "." & Year(Now))
ActiveWorkbook.Worksheets(i).Range("A5").NumberFormat = "dd/mm/yyyy"
Next i
End Sub
30-11-2016
Myslím, že na problém došiel Jano (marjankaj (http://www.porada.sk/member.php?u=19337)), ktorý mi nechal v profile nasledovný odkaz: "Pali, dal som tam lomítka namiesto bodky a funguje. Excel 2007."
To znamená, že je to vec regionálnych nastavení príslušného počítača.
Takže treba nahradiť:
CDate(i & "." & Month(Now) & "." & Year(Now))
za
CDate(Year(Now) & "/" & Month(Now) & "/" & i )
P.
koricka
29.11.16,11:59
veľmi pekne ďakujem... ;)
pozrela som si to v tvojom súbore, ale nespustí mi makro :(
Zvýraznilo "chybu" v makre, konkrétne zvýraznilo túto časť:
ActiveWorkbook.Worksheets(i).Range("A5").Value = _
CDate(i & "." & Month(Now) & "." & Year(Now))
pozrela som si to v tvojom súbore, ale nespustí mi makro :(
Zvýraznilo "chybu" v makre, konkrétne zvýraznilo túto časť:
ActiveWorkbook.Worksheets(i).Range("A5").Value = _
CDate(i & "." & Month(Now) & "." & Year(Now))
PaloPa
29.11.16,15:29
Skúšam v Exceli 2003 i 2013 a všetko funguje OK. V akej verzii Excelu to je spúšťané a akú konkrétnu chybu to napíše ? Je spúšťaný ten môj vzorový, alebo je to prekopírované do tvojho. Ak do tvojho, nie je bunka A5 v niektorom liste zamknutá ?
Kabaka123
30.11.16,17:47
mne to v 2003 funguje, funguje aj keď som pridala ďalšie listy
PaloPa
30.11.16,21:01
lomka miesto bodky
koricka
01.12.16,05:11
Už to fungujéééé :)
ĎAKUJEEEM
ĎAKUJEEEM
vicktor
01.12.16,08:50
Riesenie je to elegantne, ale kolko % z casu/roboty to usetri z celkoveho casu/roboty vpisovania, prepisovania, triedenia, spracovania,... udajov v 31 harkoch?