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

Příspěvky uživatele

njn kdyz to nejde tak to nejde, obesel jsem to tak ze celou funkci slozim za pomoci & a pak ji přeberu do VBA. Cekal jsem jen ze by to slo nejak normalneji, nevadí

Díky za snahu

marjankaj:
v tomto případě to takto nezafunguje..
=NEPŘÍMÝ.ODKAZ("DATA!$H"&E10)

Palooo:
ještě jsem narazil na jeden problém:
Potreboval bych danou funkci upravit tak aby když bude roztažena do dalších bunek tak aby se oblast sama měnila jako je tomu ve sloupci K = OK. Aby se dana definovana oblast chovala presne jako kdybych označil bunku..

Pokud to teda půjde..
Děkuji za pomoc

Palooo
SUPEEEER DÍKY MOC. Tvá funkce pomohla.

=NEPŘÍMÝ.ODKAZ("DATA!H"&E10)

Zdravím všechny,
potřeboval jsem v rámci funkce definovat oblast ale daná funkce s oblastí neumí počítat. Poradí někdo co dělám špatně? Určitě to nějak půjde..
Děkuji za rady.. viz příloha

elninoslov:
díky moc za informace

vrtko: jen me zajimalo pro informaci cim je to dany a jak toto cislo odvodit nic vic.

jak rika Pavlus prevedl bych na cislo treba souctem +0

Sub KM()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim PoslRadek As Long
Dim Merlin As Long

fnd = " km"
rplc = ""
Set sht = Sheets("Hárok1")
sht.Columns("E:F").Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False


PoslRadek = Hárok1.Cells(Rows.Count, 4).End(xlUp).Row

For Merlin = 4 To PoslRadek
Hárok1.Cells(Merlin, 5).Value = (Hárok1.Cells(Merlin, 5).Value) + 0
Next Merlin

For Merlin = 4 To PoslRadek
Hárok1.Cells(Merlin, 6).Value = (Hárok1.Cells(Merlin, 6).Value) + 0
Next Merlin


End Sub

Zdravím všechny,
chci se zeptat jestli někdo tuší proč do FormulaLocal můžu ve VBA zadat jen 989 znaků? Náhodou sem nato narazil když mi to úplně nestačilo. Zajímalo by mě jak je toto číslo (989) vypočítáno. Pokud někdo tuší budu rád.
Děkuji
Příklad v příloze:

Sub POKUS1()

Dim OblastA As Range

Set OblastA = List1.Range("E6:E16")

With OblastA
.FormulaLocal ="989_znaku_max_proc?"
.Value = .Value
End With

Set OblastF1 = Nothing

End Sub

elninoslov: DÍKY moc koukam ze ses dotoho pustil opravdu poctive. Vypada to suprove v tydnu jeste poradne otestuju a dam vedet,
zatim moooc děkuji super uprava!!

omlouvám se za přílohu a přidávám. DÍKY

Zdravím všechny,
kdysi pro mě elninoslov vytvořil tuto skvělou funkci SUMIFX která vysčítává dané oblasti, nicméně by se často hodilo kdyby byla trošičku upravená a uměla více: pracovat co se týče krytérií i s textem + K dokonalosti by jí pak chybělo jen aby šlo zadat více vertikálních polí s krytériem. Co se týče horizontálních polí a krytérii to stačí jedno a bylo by to vždy to poslední. Dokázal by někdo?

Public Function SUMIFX(OblastDat As Range, OblastH As Range, Horizontal As Single, OblastV As Range, Vertical As Single)

Dim Hodnota As Single, HOblastDat(), HOblastH(), HOblastV(), x As Integer, y As Long, ub As Integer

Application.Volatile

HOblastDat = OblastDat: HOblastH = OblastH: HOblastV = OblastV

ub = UBound(HOblastH, 2)

For y = 1 To UBound(HOblastV, 1)

For x = 1 To ub

If HOblastH(1, x) = Horizontal And HOblastV(y, 1) = Vertical Then Hodnota = Hodnota + HOblastDat(y, x)

Next x

Next y

SUMIFX = Hodnota

End Function

marjankaj: Výborně funguje dííííkyyy

Zdravím chci se zeptat jestli nekdo netusi jak do dane maticove funkce pridat dane kriterium (L*)?

=SUMA(--(ČETNOSTI(KDYŽ($C$5:$C$29="L*";KDYŽ($D$5:$D$29=F5;POZVYHLEDAT($C$5:$C$29;$C$5:$C$29;0)));ŘÁDEK($C$5:$C$29)-ŘÁDEK($C$5)+1)>0))

kdyby nekdo tusil v prioze je priklad.. zkosel jsem par moznosti a nic.
Díky za rady

Zdravím všechny,
na záložce Vložení - Získat doplňky: listuji doplňkama a snažím si představit jak který by se opravdu hodil do praxe ale nic moc mě zatím nezaujalo a proto se chci zeptat jestli někdo z Vás nějaký doplněk opravdu v praxi využívá.. rád se nechám inspirovat.
Díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse