• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Hezký Printscreen.

Zase máš pravdu elninoslov, zkoušel jsem to na MS Office 2016 a nejde to. Tak raději ještě maticově pro starší verze.

Může být?

Nevím jestli je to dobře, tak to zkontrolujte.

Co třeba použít

ZNAK(10)

Range("A2").Formula = "=IF(OR(D2="""",ISBLANK(E2)),"""",D2*E2)"

Přenos by fungoval, jen mě zatím nenapadá jak to číslovat.

Pořád to nejde stáhnout.

Příloha?

Jestli to máte formátovanou tabulku, tak je to standard.

Tak mi to pošlete na mail.

Musíte se zaregistrovat a pokud je příloha s makrem tak ji vložit v ZIP nebo RAR.

Něco jsem vyplodil, ale jelikož nemáte přílohu, tak si to musíte napasovat na Váš soubor sama.

Našel jsem makro, které by mohlo vyřešit problém.

Sub nahradit()

Dim OriginalText As String
Dim CorrectedText As String
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

RADEK = wsDATA.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To RADEK
OriginalText = wsDATA.Cells(i, 1).Value
CorrectedText = Replace(OriginalText, ".", ".")
wsDATA.Cells(i, 1).Value = CorrectedText

Next i

End Sub

Tak potom by se to asi muselo řešit nějakým makrem nebo něco, ale to takhle dáme asi těžko dohromady.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje