MS Excel

Zdravím
určitě to bude nějaká pitomost, ale... Neseje to :-)
Na jinem listu (než z kterého spouštím makro) potřebuji ve vybrané oblasti (H2 - poslední řádek H) k obsahu každé buňky přičíst 0 (=udělat z obsahu buňky číslo).

Sub Vyber()
ActiveWorkbook.Sheets("ListM").Range(Range("H2"), Range("H2").End(xlDown)).Select
For Each cell In Selection
cell.Value = cell.Value + 0
Next
End Sub

Zaslat odpověď >

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

GeorgeK(31.8.2016 15:28)#032532

teď už musím pryč, zítra dodám.. Zatím díkycitovat

xlnc(31.8.2016 15:37)#032534

Vesměs pro eLCHa: V příloze zkušební data. U mě v Excelu 2010 ten pacholek pochopí čárku jako oddělovač tisíců a korektně proběhne jen ruční oprava po výzvě smarttagu (zelený trojúhelníček).

Příloha: zip

32534_data.zip (15kB, staženo 23x)

citovat

eLCHa(31.8.2016 15:39)#032535

Taková blbost a více než 10 postů ;))) With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.Value = .Value
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")citovat

xlnc(31.8.2016 15:45)#032537

No jo, jenže ono mi to nefunguje, mám to rozbitý :-) Alespoň na tom demu, co jsem si stvořil. Taky jsem myslel, že už to nikdy nebudu muset řešit...citovat

eLCHa(31.8.2016 15:47)#032538

@xlnc
Pravda - no beru zpět
ani .FormulaLocal=.FormulaLocalnefunguje
6.5 mění na 6.5.2016 - potvora excel ;)))citovat

xlnc(31.8.2016 15:50)#032539

A nefunguje bohužel ani to přenásobení.. Takže zasedá vědecká rada :-) (do pytle ten web snad je umístěný na serveru PC 386, ta odezva je bez pardonu debilní!)citovat

xlnc(31.8.2016 15:51)#032540

No do prkýnka.. přenásobení provedené ručně funguje, pod makrem ne.citovat

eLCHa(31.8.2016 15:59)#032541

Mno - už musím jít, ale zkuste With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.TextToColumns Destination:=.Cells, DecimalSeparator:=",", ThousandsSeparator:=" "
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")citovat

elninoslov(31.8.2016 16:39)#032543

A EVALUATE si s tým tiež neporadí ?
Dim RNG As Range
With Worksheets("ListM")
Set RNG = .Range(Range("H2"), Range("H2").End(xlDown))
RNG.Value = Evaluate("=1*" & RNG.Address)
End With
Set RNG = Nothing

EDIT: Nie, neporadí, nevracia totiž pole, ani správnu interpretáciu.citovat

marjankaj(31.8.2016 16:41)#032544

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")citovat

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

Téma: Range -Select

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje