Příspěvky uživatele

Set Oblast = Union(Range("B" & a), Range("C4"), Range("F4"), Range("G4"))
Len z mobilu, snad som sa nepomylil. Kazdopadne ale myslim, ze viacnasobna oblast sa kopirovat tusim neda. Bude mozno treba po jednej podoblasti Area. Skuste, pripadne ked budem pri PC...

Edit: Kym som to ja natukal, us to tu mate

Možno to pôjde aj jednoduchšie, no raz za 2 roky tú jednu minútu obetujete nie ? Popis v prílohe.

...nájsť a vypísať... :
Taký vyhľadávací formulár, kde vidíte hneď výsledok po každom znaku, som tu už dával niekoľkokrát, len ktorá besná sviňa to nájde ...

...ukázať slová... :
Ak myslíte ako v internetovom prehliadači, všetky zvýraznené, tak to si neviem v Exceli predstaviť. Môžete označiť všetky bunky, ale slová nie.

...rovnaké ako Ctrl+F... :
To som písal v príspevku nad Vašim. Toto makro priraďte tlačítku:
Sub ShowFindReplace()
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

Príkladov je veľa ...

OT: Ovládam len zlomok toho, čo miestni fachmani, o tom ani reči, ale prečo som si vyslúžil úvodzovky aj na "ochotný" ?

Staršie Office už nemám ani vo virtuálkach (okrem XP+Off2003), nemám na čom testovať. Na Office 2016 fungujú obe spomínané verzie (Recipients aj To).

PF - samozrejme že nefunguje, veď ho máte urobené tak, že sa odkazuje na hodnoty z listu Dochazka. Teda nový súbor u niekoho v maile nemá ani páru o takom liste u Vás v PC. Teda navrhujem, aby ste víkend zisťoval rovno v PF (nie odkazom na bunku), a sviatky si dajte vyrátavať rovno niekde v tej kopírovanej oblasti, napr. v skrytom stĺpci A:A, a potom kopírujte o jeden stĺpec posunutú tabuľku (oblasť). Potom bude fungovať PF aj u adresáta.

Hádať sa nebudem, Solver nepoužívam, len tam nikde nevidím príklad, ani zmienku o tom, že sa má uvádzať textová adresa oblasti/bunky či vzorec. Všade vidím Range. "B2*$B$1+C2*$C$1" , "=B2*$B$1+C2*$C$1", teda aj obsah premenných prom a prom2 aj keď sú Varianty, tak sú automaticky interpretované ako String, nie sú Range. Sú to všetko Stringy.

Ak je napriek tomuto nedorozumeniu takéto použitie Solveru správne, spĺňa výsledok "=B2*$B$1+C2*$C$1" podmienku Integer ?

Prípadne sa zaregistrujte, aby ste mohol priložiť nejakú prílohu s príkladom toho čo máte, a výsledku ktorý chcete dosiahnuť. Možno sa tu odborníci na Solver nájdu.

A nemá byť náhodou CellRef typu Range ? Nie String. Lebo keď si pozriem nejaké príklady na MSDN, tak všade sa uvádza príklad s Range.

"Zastaví sa" znamená že Outlook čaká na potvrdenie (to je normálne), alebo že vyhodí nejakú chybu (ak áno akú?) ?

Ak je presne daná štruktúra, že sú spájané bloky od seba oddelené pravidlom "prázdny/neprázdny/prázdny" a zároveň majú veľkosť od 3 do 6 riadkov, tak do C3:
=IF(AND(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&IF(AND(A6<>"";A5<>"");"#"&A6;"")&IF(AND(A7<>"";A6<>"");"#"&A7;"")&IF(AND(A8<>"";A7<>"");"#"&A8;"");"")

=KDYŽ(A(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&KDYŽ(A(A6<>"";A5<>"");"#"&A6;"")&KDYŽ(A(A7<>"";A6<>"");"#"&A7;"")&KDYŽ(A(A8<>"";A7<>"");"#"&A8;"");"")
a potiahnuť dole.

No, bude záležať na tom, či sa bude tá zdrojová tbl meniť, či bude obsahovať viacero rovnakých riadkov spĺňajúcich tie 3 kritériá, či sa bude meniť počet/mená časopisov, počty nákladov, a počty strán. A samozrejme na rozsahu údajov. Ak totiž bude rozsah údajov napr. v 100-kách riadkov, môže sa na jedinečné hodnoty použiť počítaná tabuľka s maticovými vzorcami. Ak je táto tabuľka cien pevná, nebude treba tie 3 pomocné KT (tá najväčšia určo nie), a pod...
Tie KT som proste použil na získanie jedinečných hodnôt z tej tabuľky cien, pre potreby výberových zoznamov, ktoré sú ďalej riešené v Definovaných názvoch.
PF upozorňuje na nesprávne údaje.

??? Kedy ? Koho ? Koľko ? S kým ???

Ani z textu ani z prílohy žiaľ nerozumiem čo potrebujete.

V tej prílohe máte listy (Bydlení, Bydlení1, Bydlení2, Bydlení3), ktoré tam nechcete mať ?
Chcete mať iba nejaké združené údaje do jedného listu ? No tak ich ukladajte iba do jedného listu, nie do viacerých. Potom môžeme skúmať, čo ďalej potrebujete.
Tie spomínané listy sa štruktúrou nepodobajú, majú rozdielne členenie typu dát aj počtu stĺpcov.

Skúste ešte raz poslať inú prílohu, kde bude len to čo chcete mať (nie to čo máte a už tam nechcete). Pridajte tam aj hlavičky pre dáta, aby bolo jasné, čo je čo. Tam kde chcete mať nejaký výsledok (suma, počet, rozbaľovací zoznam) pridajte komentár, s tým čo tam požadujete.

Skúste, lebo skutočne nerozumiem...

Cez druhú inštanciu Excelu to pôjde isto, len to pár sekúnd trvá. Nedešifroval som, čo v tom makre robíte (neznáme premenné), tak som si podobné vymyslel.

Máte tam desatinné miesta, tak by som sa iba na jednu desatinu nespoliehal, ale pridajte tam x,000000000001.

EDIT: Prípadne ak ich máte takto zoradené:
=COUNTIF($B$2:$B$8;"<"&A14)

Pr.:
Sub VymazBunkyObsahujuce(Co As String, Stlpec As Long)
Dim Riadkov, Data(), i As Long, RNG As Range
With ActiveSheet
Riadkov = .Cells(Rows.Count, Stlpec).End(xlUp).Row
ReDim Data(1 To Riadkov, 1 To 1)
If Riadkov = 1 Then Data(1, 1) = .Cells(1, Stlpec).Value2 Else Data = .Cells(1, Stlpec).Resize(Riadkov).Value2
For i = 1 To Riadkov
If InStr(1, Data(i, 1), Co, vbTextCompare) > 0 Then
If RNG Is Nothing Then Set RNG = .Cells(i, Stlpec) Else Set RNG = Union(RNG, .Cells(i, Stlpec))
End If
Next i
If Not RNG Is Nothing Then RNG.Delete Shift:=xlUp: Set RNG = Nothing
End With
End Sub

Sub Pokus()
Call VymazBunkyObsahujuce("bla", 1)
Call VymazBunkyObsahujuce("s.r.o", 2)
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje