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

Příspěvky uživatele

For i = 1 To 100 Step 2
With Sheets("List1")
.Range("B1").Value = i
.PrintOut
End With
Next i
Pri testovaní zameň 100 za 3 alebo 5.
Prípadne .PrintOut za .PrintPreview

No neskúšal som všetky možnosti. AAA prevedie aj číslo 1,6 na 1,6

A ďakujem za sľúbenú prílohu od GeorgeK. Aspoň sme sa pocvičili na prílohe od xlnc.

Na vyskúšanie
Selection.Value = "1.76"
Selection.Offset(1, 0).Value = "1,76"

No podarilo sa mi to takto. Ale nadšený z toho nie som. A ani tomu nerozumiem.

With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))

.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

.Value = .Value
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")

Dokonca stačí aj takto:
With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.Replace What:=",", Replacement:="."
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")

A čo keby si tak dal prílohu.

Tú prílohu si sám vytvoril? Pekná práca.

No zbytočne sa navážaš do xlnc. Keby si sa vedel zrozumiteľnejšie vyjadrovať( nie ako škôlkár) tak by ti xlnc dal celkom zrozumiteľné riešenie) To od Havrana ti je aj tak k ničomu(keďže makrám nerozumieš).
V prílohe to máš riešené automatickým filtrom(google ti pomôže ako to funguje).
Ak by si to ty nepochopil, tak sa opýtaj detí, tí to možno skôr pochopia.

V bunke D3 je vzorec upravený.
Inak treba si pozorne prečítať čo napísal eLCHa.
Inak to tvoje vyjadrenie je o ničom.

No neviem. mne to zabralo 7006 Bytov Že by som niečo robil špatne?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje