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

Příspěvky uživatele

Zdravím,
dokaze nekdo vysvetli technicky proc vestavena funkcionalita excelu převést na číslo je diametralne pomalijsi nez kdyz oblast cisel ve formatu textu jen prenasobim cislem 1. Vyledek vyjde nastejno ale casova vypocetni kapacita je extremne rozdilna. Dokaze to nekdo vysvetlit cim to je?

Díky za zajimavost

Naprostá pravda, super nápad na zjednodušení
DĚKUJI MOC

elninoslov
omlouvam se ze jsem nedodal lepsi priklad, ale vy jste to pochopil uplne presne. Z vaseho prikladu jsem si uz vse odvodil a vse funguje jak ma.
DĚKUJI MNOHOKRÁÁÁT

*Milan-158
ja potrubuji neco jineho potrebuji dostat promenou do te oblasti OBLAST1_paste1.Value:

Potreboval bych to udelat nejak takto ale nefunguje to...
OBLAST & X & _paste1.Value

X je ma promena kde budu podhazovat cisla ve smicce a potrebuji vzdy odkazat na jinou oblast.

Zdravim vsechny,
mam problem ze se mi nedari zadefinovat promenou v oblasti range

Dim OBLAST1_paste1 As Range
Set OBLAST1_paste1 = List16.Range("C8:C19")

Zde potrebuju vlozit promenou X ale zaboha se mi to nijak nedari...
OBLAST & X & _paste1.Value

Poradi nekdo prosim..
Děkuji

Stalker
jooo to je onooo DÍKY moc

Zdarvim vsechny,
chci se zeptat jestli nekdo poradi jak skloubit kolekci a select case viz prikald. Kolekce vyzaduje pouzit nekde like ale to se mi nedari nijak nastavit...
Problem je ze select nerozezna zadani ktere jsem mu zadal "*x*"
____________________________________
Sub KOLEKCE()
Dim myCol As Collection
Set myCol = New Collection
Dim Cell As Range
Dim Oblast_FAST As Range
Dim MaxRadek As Long
Dim i As Long
Dim X_X As Long

'Tvorba KOLEKCE
MaxRadek = List1.Cells(Rows.Count, "I").End(xlUp).Row
Set Oblast_FAST = List1.Range("I9:I" & MaxRadek)

For Each Cell In Oblast_FAST
myCol.Add Cell
Next Cell

'Vypsání KOLEKCE
i = 9
For Each Item In myCol

Select Case Item
Case "*A*": X_X = 10
Case "*B*": X_X = 11
Case Else: X_X = 12
End Select

List1.Cells(i, X_X).Value = Item
i = i + 1

Next Item
End Sub

Stalker
Perfektní, DĚKUJI moc

Zdravim vsechny
chci se zeptat jestli nekdo poradi jak sloucit tyto dve podminky podmineneho formatovani do jedne, nijak se mi to nepodarilo.. viz příloha

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Font.ColorIndex = 33

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Interior.ColorIndex = 6

elninoslov
OU to jsem si docela nabehl, ale vami doporucene EN preklady funkci funguje suprove. Dale bych to nekomplikoval takto je to skvely. Preberu vase makro jako vzor a ted uz si poradim snad se vsim.
DĚKUJI MNOHOKRÁT za pomoc a vysvětlení

Dobré ráno,
nerozumím proč mi nyní makro křičí "Compile error.. Object required"

Viz příloha.. nechapu zkousel sem vsemozne upravovat ale uz me nic nenapada porad to nefunguje...

elninoslov
OMLOUVÁM se za nekompletní zadání ale i tak jste to pochopil excelentně! Funkčnost jsem si převzal a jsem plně spokojen.

Děkujuuuuu
skvělá práce !

elninoslov
Funguje jako vždy dokonale DÍKY MOC
hezký víkend

Zdravim vsechny,
chci se zeptat zda nekdo dokaze za pomoci VBA ovladat podminene formatovani. potreboval bych se naučit nasledujici:
Makro spusteno po spusteni sešitu =
1) Vymazat veškeré formátování z celého listu
2) Vložit toto podmíněné formátování A(DÉLKA($B2)<>4;$B2<>"") pro obast =$B$2:$B$99

Příklad v příloze.
Děkuji za rady

veny
elninoslov

Pecka funguje dokonale perfektní DĚKUJI MOOOOC

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje