< návrat zpět

MS Excel

Téma: Jak dodat do makra vzorec rss

Zaslal/a bach1 21.6.2013 11:52

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.

Příloha: zip14037_fazarus.zip (18kB, staženo 24x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3   další »
bach1(21.6.2013 13:36)citovat#014051
avatar
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.
marjankaj(21.6.2013 13:36)citovat#014052
avatar
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. 2

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"
Palooo(21.6.2013 13:39)citovat#014053
avatar
marjankaj to nebude tak jednoduche

... nieco ma napadlo
... ochvilu poslem svoju verziu .)
bach1(21.6.2013 13:41)citovat#014054
avatar
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 text
marjankaj(21.6.2013 13:45)citovat#014055
avatar
Doplnil som.
Neviem, čo si predstavuješ pod slovom HODNOTA, ja som tam dal DÁTUM.
bach1(21.6.2013 13:49)citovat#014056
avatar
převod textu na hodnotu ne formát buňky:

např.
=HODNOTA(S2)

pak je to dobře
Palooo(21.6.2013 14:00)citovat#014057
avatar
ale aj tak tomu nechapu v 14 riadku by si asi potreboval prvy datum

tu je ta moja verzia:
Příloha: zip14057_fazarus.zip (20kB, staženo 14x)
bach1(21.6.2013 14:04)citovat#014058
avatar
to Palooo
ne úplně,
8.1 tam nemá co dělat není tam splněna podmínka, že to musí vzít od zn.10
bach1(21.6.2013 14:12)citovat#014059
avatar
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...
Palooo(21.6.2013 14:15)citovat#014060
avatar
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? :P

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje