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

Příspěvky uživatele

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.

Je to pouze kombinace funkcí Pozvyhledat a Index. Je třeba upravit pouze rozsah vyhledávání. Poblém by mohl nastat, kdyby jste měl duplicitně artikl což asi ne, ale možná doplicitně datum.

Takhle to vyhledává po celém listě, ale nevím jestli nemáte na zdrojovém listě ještě jiná data se kterými by se to mohlo hádat.

Jen si upravíte oblasti vyhledávání.

Nemáte za co.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje