MS Excel

Dobrý den, mám sešit v příloze a makro jako autoopen.
Potřebuju do listu2 do sloupce S dostat z listu1 ze sloupce S
část textu, já tam zatím cpu text celý z listu1 sloupec S, potřebuji však jen část

vzorec mi funguje a potřeboval, ale bych jej přetavit do makra:
=KDYŽ(ČÁST(List1!S2;11;10)="";"";(HODNOTA(ČÁST(List1!S2;11;10))))

Najde se dobrá duše, která mi to doplní?
Děkuji.

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

bach1(21.6.2013 13:36)#014051

Ne pokud je uvedeno např. 01.01.201202.02.2013
potřebuju 02.02.2013 tj. od zn.11 v délce 10zn.
Mě se exportuje 60zn řetězec kde prvních 10zn je nějaký datum dalších 10zn je jiný datum. tudíž jak píšu se nepotřebuju opírat o hodnotu ale vyloženě o počátek řetězce v nějaké délce.
ty hodnoty jsou tam nyní nasekány ručně, abych sem nedával sešit s 20000 řádky.citovat

marjankaj(21.6.2013 13:36)#014052

Ty jsi to asi nepochopil, já tam nechci obsah S z listu1 ale jen část a to od znaku 11 v délce 10 a to pevést na hodnotu tak jak to mám ve vzorci a pokud na listu1 je prázdno, tak se naplní prázdno i do listu2 na S. proto taky po zkopírování z listu1 do listu2 ten sloupec S na listu2 MAŽU.Potřebuju ten vzorec přepsat do makra.....

Blbosť si napísal ty.

Skús tam dať toto.

For i = 2 To Sheets("List1").Cells(1, 1).CurrentRegion.Rows.Count
Sheets(2).Cells(i, 19) = Mid(Sheets(1).Cells(i, 19), 11, 10)
Next
Sheets("List2").Columns("S:S").NumberFormat = "dd/mm/yyyy"
citovat

Palooo(21.6.2013 13:39)#014053

marjankaj to nebude tak jednoduche

... nieco ma napadlo
... ochvilu poslem svoju verziu .)citovat

bach1(21.6.2013 13:41)#014054

markankaj supeeer funguje, jen ještě potřebuju, aby to byla hodnota a ne text

Sheets("List2").Columns("S:S").NumberFormat = "dd/mm/yyyy;@"

nepomohlo je to furt textcitovat

marjankaj(21.6.2013 13:45)#014055

Doplnil som.
Neviem, čo si predstavuješ pod slovom HODNOTA, ja som tam dal DÁTUM.citovat

bach1(21.6.2013 13:49)#014056

převod textu na hodnotu ne formát buňky:

např.
=HODNOTA(S2)

pak je to dobřecitovat

Palooo(21.6.2013 14:00)#014057

ale aj tak tomu nechapu v 14 riadku by si asi potreboval prvy datum

tu je ta moja verzia:

Příloha: zip

14057_fazarus.zip (20kB, staženo 14x)

citovat

bach1(21.6.2013 14:04)#014058

to Palooo
ne úplně,
8.1 tam nemá co dělat není tam splněna podmínka, že to musí vzít od zn.10citovat

bach1(21.6.2013 14:12)#014059

to markankaj
tvoje řešení funguje jen ještě potřebuju aby ten výsledek nebyl řetězec ale value. Ale i tak už je to použitelné.
Kdyby tě ještě něco napadlo dej prosím vědět, jinak děkuji všem zapojeným...citovat

Palooo(21.6.2013 14:15)#014060

For i = 2 To Sheets("List1").Cells(1, 1).CurrentRegion.Rows.Count
Sheets(2).Cells(i, 19) = Format(Mid(Sheets(1).Cells(i, 19), 11, 10), "dd/mm/yyyy")
Next

myslis aby mal format datum a nie text? :Pcitovat

Strana: « předchozí 1 2 3 další »

Téma: Jak dodat do makra vzorec

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje