< návrat zpět

MS Excel


Téma: Range -Select rss

Zaslal/a 31.8.2016 14:58

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:  1 2 3   další »
#032522
avatar
Co tam je teď, když ne číslo?citovat
#032523
avatar
formát: Obecný
vloženo 6
poznámka Excelu: "číslo v této buňce je formátováno jako text..." "Převést na číslo"
Tohle ručně provedeno pomůže. Potřebuji to provést pro celý sloupec
Jde mi spíše o první řádek kodu... (tam je chyba - application-defined or object-definet error)citovat
#032524
avatar
Méně elegantní řešení (pomocná bunka, aktivace listu):

Sub MakroPrenasobeni()

With Worksheets("ListM")

'aktivace listu
.Activate

'provizorní obětovaná buňka s hodnotou 1
.Range("J1").Copy

'přenásobení
.Range(Range("H2"), Range("H2").End(xlDown)).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, _
Transpose:=False

End With

End Sub
citovat
icon #032525
eLCHa
Nepotřebujete kód - dejte převést text na číslo (zelený čtvereček
Já používám v immediateSelection.Value = Selection.Valuecitovat
#032526
avatar
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...citovat
#032527
avatar
Jinak (od boku) před Selectem oblasti nejspíš pouze chybí aktivace listu...
...ActiveWorkbook.Sheets - tohle nestačí?citovat
#032528
avatar
eLCHa - potřebuji to provést "na pozadí - list !ListM! nemůže být zobrazen", kodem - ne ručně. Chybu mám někde ve výběru oblasti sloupce.citovat
#032529
avatar
A čo keby si tak dal prílohu.citovat
#032530
avatar
Poslal jsem, kód, pak jsem viděl to od eLCHa a chtěl jsem se tlouct do čela, že jak jsem starej, tak jsem hloupej.. jenže jsem si zkusil simulaci a nefunguje za jistých okolností ani moje, ani jeho. Potřebujeme vzorový sešit...citovat
#032531
avatar
Fajn, beru v potaz, že tedy nelze přenásobovat (operace musí proběhnout na pozadí při neaktivním listu). Nad výběrem oblasti není moc co dumat:

Dim rngOblast As Range

With Worksheets("ListM")
Set rngOblast = .Range(.Range("H2"), .Range("H2").End(xlDown))
End With

Ale pak je to horší a na to bych rád viděl skutečný sešit.citovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35

Filtrování dat

Lader • 11.6. 23:22

Filtrování dat

Imh0tep • 11.6. 21:15

Zjištění směny dle data a času

Ontik • 11.6. 14:23