Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel Macro na pridanie apostrofu pred datum

Zdravim,

Prosim o pomoc pri vytvoreni macra v exceli. Potrebujem by som dat pred datumy ktore su v kolonkach znamienko '

Napr.: 05.11.2012

Macro funkcia:

'05.11.2012

Moje vedomosti v zostavovanie macro su velmi slabe a bol som schopni zostavit len primitivne macro pomocou Record funkcie, ktore vyzera takto:

Range("N8").Select
ActiveCell.FormulaR1C1 = "'05.11.2012"
Range("N9").Select
ActiveCell.FormulaR1C1 = "'06.11.2012"
Range("N10").Select
ActiveCell.FormulaR1C1 = "'06.11.2012"
Range("N11").Select
ActiveCell.FormulaR1C1 = "'06.11.2012"

Problem je, ze tie datumy su tam na pevno preto, ked otvorim novy subor kde su datumy napr. 11.11.2012, 12.11.2012, tak ich macro zmeni na '05.11.2012, '06.11.2012, atd. nie na '11.11.2012 a '12.11.2012

Ako prosim nastavim macro aby povodne datumy zostali zachovane?

Dakujem

Změna předmětu, původně: Excel Macro (host)

Předmět Autor Datum
Proč makro? Nestačí spojit jako dva řetězce ="'"&A1 nebo použít funkci CONCATENATE?
host 05.11.2012 11:44
host
Moc nerozumím tomu co děláš a proč chceš dělat nějaké makro. "ked otvorim novy subor kde su datumy"…
JoDiK 05.11.2012 12:07
JoDiK
Prepacte, asi som sa nevyjadril celkom jasne. Ano, Jodik to vystihol. Dostavam subor od klienta, kde…
Miso14 05.11.2012 14:19
Miso14
Datum se samo od sebe při otevření souboru nezmění. Buď tam máš funkci, nebo nějaké automaticky spou…
JoDiK 05.11.2012 15:53
JoDiK
Asi to stale vysvetlujem zle. Datum sa sam nemeni. Ten menim ja, spustenim nespravne nastaveneho mak…
Miso14 05.11.2012 16:57
Miso14
Jelikož si nenapsal přesné informace, vycházel sem z Tvého prvního dotazu. Datumy jsou ve sloupci N…
Siki83 05.11.2012 17:33
Siki83
Super, funguje to! Velmi si mi pomohol. poslední
Miso14 06.11.2012 11:44
Miso14

Moc nerozumím tomu co děláš a proč chceš dělat nějaké makro.
"ked otvorim novy subor kde su datumy" - v novém souboru něco je? Já myslel, že nový soubor je vždy prázdný (Soubor - Nový).
Jestli myslíš nový soubor ve smyslu - dodavatel dat mi poslal další (pro mě nový) soubor a když ho otevřu změní se mi datumy - tak se koukni co v těch buňkách skutečně je - není tam někde třeba funkce pro aktuální datum - která po každém otevření zobrazuje aktuální datum a další políčka k této hodnotě přičítají jedničku???

Asi to stale vysvetlujem zle. Datum sa sam nemeni. Ten menim ja, spustenim nespravne nastaveneho makra.

V sktratke, potrebujem nastroj (makro alebo iny), pomocou ktoreho by som zmenil datumy v danej kolonke z:

05.11.2012
06.11.2012
06.11.2012
06.11.2012
06.11.2012
07.11.2012

Na:

'05.11.2012
'06.11.2012
'06.11.2012
'06.11.2012
'06.11.2012
'07.11.2012

Tak, aby som to nemusel robit manualne na kazdy datum. Datumy su v kazdom subore ktory mi pride ine, aj ich pocet. Takze nabuduce mozem dostat subor takto:

15.11.2012
20.11.2012

V tomto pripade by som potreboval, aby vysledok bol takyto:

'15.11.2012
'20.11.2012

Dakujem za odpovede.

Jelikož si nenapsal přesné informace, vycházel sem z Tvého prvního dotazu.
Datumy jsou ve sloupci N a začínají na řádku 8, makro pokračuje dokud nenarazí na prázdnou buňku.

Případně si to uprav

Sub apostrof()
sloupec = "N"
radek = 8

Do While Cells(radek, sloupec) <> ""
    Cells(radek, sloupec) = "'" & Cells(radek, sloupec)
    radek = radek + 1
Loop
End Sub

Zpět do poradny Odpovědět na původní otázku Nahoru