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

Příspěvky uživatele

to Petrden:
Tak jsem si s tím pohrál a bohužel bez uspěchu....metoda pokus omyl selhala:-)

už se nedivím , ten kod nefunguje tak, jak by měl.
A jelikož píšeš, že Ti to nějak furt nejde , tak přikládám tvůj upravený a doplněný o skrytí nevyužité části tabulky.

Jelikož jsi měl v ověření dat vžd jen dvě písmena, řešil jsem to tak, že jich nezapíše excel více než dvě a to velká, i když píšeš malými. Je to obdoba toho co poslal eLCHa
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Target.Value = UCase(Left(Target.Value, 2))
Application.EnableEvents = True
End If
End Sub

napíše bylo odesláno Email 6x - nevím proč

protože je tam chyba, vyhodnotil jsem počet řádků a ne počet "ano" ve sloupci příznak.

To není problém, mám opraveno. Problém je v tom, že neznám prg. LotusNotes, ale mrknu na to.

Tak to zkus ještě jednou. První musíš zjistit ten řádek (číslo), dřív než začne cyklus for-next. Jediné místo kam ho vložit je před něj - takže nový řádek 4 (Mezi Dim a For). Tento kod ti vyhodí nějaké číslo - tedy tvůj poslední obsazený řádek a s tím číslem má pracovat cyklus for-next a ne s číslem 373. Tož místo čísla 373 do kodu napiš proměnnou posledni_obsazeny_radek.
Takže For I = posledni_obsazeny_radek To .... atd.
Když to rozchodíš sám, budeš mít větší radost , než když ti to někdo napíše a ty to jen zkopíruješ

to Marjankaj:
věděl jsem o tom, přesto děkuji za upozornění, ale nenapadlo mě, že by se mohla čísla opakovat. Uvažoval jsem tak, že to bude nějaký seznam s jedinečnýma hodnotama, třeba sklad, či co, kde by se položky neměly opakovat. Už jsem to nechal s tím formátováním s obdobným vzorcem co psal eLCHa nebo Ty.

Pokud to může být makrem. Doplněno o výpis pomocí filtru.

Nešlo by to třeba takhle, podmín. form a pak pracovat dál s vybranými ?????

Jak teď, běží furt ?
Asi ho to baví. Něco mi říká, že rozhodující nebude cena ale vybavení počítadla. A kafe ušlo ?

Jedná se o jednorázové vygenerování

tak v tom byl ten můj omyl, beru zpět

to M@ to nějak nesčítá, jen přepisuje

Pro případ, že se má jednat i o textové hledání, mělo by fungovat:
{=POSUN(B1;SUMA(KDYŽ(B1:B200=F2;1)*(ŘÁDEK(B1:B200)))-1;-1;1;1)}

kde hledaná hodnota je v F2, vyhledává se v B1:B200 a zobrazí se hodnota z A1:A200

Za určitých podmínek může fungovat fce VYHLEDAT (list1), ale lepší řešení je na listu 2, což je fce SVYHLEDAT, jak píše Pavlus s tím, že jako levý sloupec je druhý (B) a první se kopíruje na C(nebo jiný napravo) a je skrytý. Takže je splněna podmínka SVYHLEDAT, hledá se v levém.

Nepoužívám Lotus Notes. Něco jsem vygooglil, ale musíš vyzkoušet, jestli to funguje. L-Notes startuje pomalu, tak nevím jestli nebude nutné mít ho spuštěný předem. Do tabulky jsem přidal sloupec, který vyhodnocuje zda mailovat či ne. V kodu je nutné ještě upravit mailovou adresu odesílatele. Podívej se na to, třeba se něco z toho bude hodit.

Posílám ještě jinou variantu bez obrázků, připadá mi to složité. Ale nevím jaké mají být finální obrázky.

Makro pro mazání obrázků si přepiš, původní není spolehlivé a může smazat i něco jiného.

Sub vymazatObrazek()
Rem vymaže existující obrázek
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje