Zavrieť

Porady

Dátumy do každého listu

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
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Ak to má byť pre každý list inkrement podľa poradového čísla listu,
    potom by som navrhoval takéto makro:

    Code:
    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), 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.
    Naposledy upravil PaloPa : 30.11.16 at 23:15 Dôvod: oprava
    6 komentáre - rozbaľ     zbaliť
    koricka 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))
    PaloPa 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 mne to v 2003 funguje, funguje aj keď som pridala ďalšie listy
    PaloPa lomka miesto bodky
    koricka Už to fungujéééé

    ĎAKUJEEEM
    vicktor Riesenie je to elegantne, ale kolko % z casu/roboty to usetri z celkoveho casu/roboty vpisovania, prepisovania, triedenia, spracovania,... udajov v 31 harkoch?
      zbaliť

    ivka70 je offline (nepripojený) ivka70

    ivka70
    Rucne alebo si na to napisat makro.
    koricka Rucne mi je jasne
    koricka Vedeli by ste mi poradit s makrom?

    vicktor je offline (nepripojený) vicktor

    ja si myslim, ze normalny clovek (moja manzelka nie celkom suhlasi) ...viac vicktor
    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 Toto poznam, myslela som ci existuje sposob ako to urobit automaticky :-D

    Dátumy do každého listu

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.