Příspěvky uživatele
< návrat zpět
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.
Ještě pro představu na celý měsíc. Nevím jaký je originální rozsah a umístění tabulky.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články