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

Příspěvky uživatele

Napis, co nevim, a ja se pokusim to nejak popsat (kdyz to budu vedet :))
Kdyz budu mit cas, pomuzu...

neco jsem splodil, ale moc jsem to netestoval...

Tak tomu vubec nerozumim.
Jake radky se maji kam kopirovat?
Chapu jeste, ze se maji zapisovat data z formulare, ale to je asi tak vsechno - jsem mozna natvrdlej, ale slo by to nejak presneji popsat?
dik

Zdravim,
na konci makra spusteneho pomoci nektereho tlacitka na useformu, ktere zapisuje data do listu odberatel, uvedte nasledujici prikaz: worksheets("faktura").activate

Si to muzes upravit, jak budes chtit, aby ti to vyhovovalo :)

StatusBar je klasickej Bar, co mas zobrazeny dole - ta lista - hodil jsem tam prubeh prochazeni radku, aby bylo videt, kolik jeste zbyva.
Statusbar = false pak vraci moc nad timto prostorem Excelu.

Cells(i-1,6) tam je proto, aby vzdycky aspon jeden radek u produktu nebyl skryty...

Tady je muj vytvor, snad je to to, cos potreboval.
Nechtelo se mi to ale testovat, tak si to zkontroluj :)

Nemam dneska uplne nejlepsi mozkovou kondici, takze jsem to nepochopil :D.
Zkus prilozit soubor, co ted mas, podivam se na to...

a nebylo by lepsi skryt makrem jen ty radky, ktere maji byt skryte? Treba takto: Sub hide_rows()
For i = 2 To 31
If IsEmpty(Cells(i, 3)) = True And IsEmpty(Cells(i - 1, 3)) = True Then
Cells(i, 3).EntireRow.Hidden = True
End If
Next
End Sub

Zdravím,
přijde mi to zvláštní, že by jedno makro způsobilo problém s pamětí. Buď je to opravdu velmi naročný kod se spooooustou proměnných nebo Vám "žere" paměť něco jiného.
Každopádne náročnost procedury na paměť ovlivňují především datové typy proměnných, doporučuji deklarovat proměnné tak, aby odpovídaly jejich obsahu, pokud proměnné nedeklarujete, jsou všechny typu Variant, který zabírá nejvíce...

Takhle procedura se spousti pri kazde zmene v prislusnem listu (po stiknuti ENTER).
Target oznacuje bunku, ktera se zmenila.
Intersect je funkce, ktera urcite prunik argumentu (v nasem pripade Target a oblast c3:i31).

Procedura se tedy spusti jen tehdy, kdyz je Target uvnitr urcene oblasti.
Kontroluje se, zda je radek, ktery je pod Targetem, je skryty, pokud ano, tak se zobrazi, pokud ne, nic se nestane.

taky zdravim,
zkus tenhle kod vlozit do modulu prislusneho listu: Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("c3:i31")) Is Nothing Then

If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If

End If

End Sub

V kodu je nastavna oblast, ktere se skryvani tyka: range("c3:i31") - ta se musi shodovat s oblasti, kde budou data.

Zdravim,
tohle bude problem, protoze pokud budou uzivatele editovat stejnou bunku, vzdy dojde ke kolizi, ktera resit nelze (krome moznosti vybrat pouze jednu editaci, coz nevyhovuje).
Reseni bych videl v tom, ze kazdy uzivatel bude mit svuj list, kam se budou zapisovat jeho editace a nejaky 'spravce' si pak pretahne data od vsech uzivatelu na nejaky souhrnny list - nic jineho me momentalne nenapada.

Myslim, ze to funguje.
K tomu sdilenemu sesitu - to asi vyresit nepujde, protoze pri zapisovani do bunek bude dochazet u vice uzivatelu k upravovani identicke bunky, coz bude znamenat kolizi. Ta bohuzel nelze resit...

Zdravim - tezko se to takhle nasucho testuje, ale co pouzit zapis do bunky takto:Sheets(combobox3.value).Cells(rd_start, 2) = "cokoliv"

a takhle: Cells.EntireColumn.Hidden = True
Range(Selection.Address).EntireColumn.Hidden = False

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje