Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další » ... 17

CTRL+SHIFT+1 neumíte jednou rukou !!?? To snad ne. Tak názorně:
CTRL (levý)= palec
SHIFT (levý) = prsteník
1,2,3 = prostředník, vše na levé ruce

Ano, já to chápu, ale Nováček-Ivan asi ne, tak jsem mu tímto chtěl nabídnout základní, jednoduché řešení, které si zvládne sám poupravit a uvidí (když se mu to podaří), jestli mu to takto stačí, nebo ne.
Mě to na první pokus nefungovalo.
Teď jsem objevil zádrhel v řádku:
WorksheetFunction.Substitute(strS, Chr(32), "")
Když mám v cestě k programu mezeru, odstraní ji to a Shell pak hlásí chybu.
asi by mělo být:
Shell strS & " " & Site, vbNormalFocus

Trochu jsem se na to kouknul. Funguje mi to, poté, co jsem vynechal různé tanečky okolo zjištění cesty k souboru, kterým se má otevírat odkaz.
Vyzkoušej v příloze, je to řešení ala Al, nutné je si přepsat celou cestu na .exe soubor, kterým chceš otevřít odkaz, je to v modulu1 ve VBA. V list1 přepsat na nějaký svůj odkaz.
Ale každý odkaz si otevře svou instanci programu, pro mě nešikovné. To už radši v menu Total Com. mít seznam adresářů, kam chci přistupovat.

Jedna z možností je použít místo odkazů Nepřímé odkazy. Pak se posunem buněk takto definované vzorce nezmění. V příloze jen malý nástin, bez vzorců, jen odkazy přímo na buňky v List1, ale dá se to zapracovat i do složitějších vzorců.

Tak rozšířený filtr názorněji, viz příloha. Excel 2013.
Kurzor na A1, karta DATA, ikona Upřesnit (poblíž Filtr). Nastavit Kopírovat jinam a zadat rozsahy, víc je v příloze.
edit: ta záhlaví tam jsou potřeba zachovat, pojmenovat libovolně.

Marjankaj, nic ve zlém, on už dal přílohu, dostal i odpověď. Tvoje příspěvky jsou značně opožděné a jen matou tazatele. 5

To je divné, mě ten tvůj kód z předchozího příspěvku funguje pro všechny sloupce E:SA, v řádcích 4:2098 a vypisuje do řádku 2100.
Do přílohy jsem to trochu upravil. Makro je v Module1. Tam se obvykle dává, ne do Listu, i když i tam funguje.
Jsou tam extra řádky pro zadání rozsahu. Není to vstupem (Input) po spuštění, ale musíš přepsat přímo v kódu řádky a sloupce, tam, kde je to poznámkou označené. Vyzkoušej.

TAK JEŠTĚ JEDNOU. Se vzorovým souborem jsem udělal JEN toto: smazal původní makro, nakopíroval nové makro z mého příspěvku z 11.7., zeditoval chybu tam, kde je řádek rozdělený podtržítkem a FUNGUJE to.

6000 nešťastníků, co dostanou nějaký spam? Sory, já bych tady nepomáhal.

Co konkrétně na tom mém řešení nefunguje? Mám sestavený mírně testovací soubor a nevšim jsem si, že by to hlásilo chybu, i výsledky to píše, dle mého správně.
Leda tam je špatně zeditováno to rozdělení do dvou řádků tím podrtžítkem !
Viz příloha. Data jsou nesouvislá, sem tam, ale pokryjí rozsah ř /sl.
Na List2 je to řešení Kp57 a to nic nedělá, blíž jsem nezkoumal. Sory.
Vyzkoušej a ozvi se.

To je zajímavý kód, zase jsem se něco přiučil. Mohlo by to fungovat takhle:
Sub Vypis()
Dim Numbers() As Variant
Dim Texts() As Variant
Dim List() As Variant
Dim CountNumbers As Long
Dim i As Long, j As Long, k As Long
With ActiveSheet
For k = 5 To 495
Texts = .Range("A3:A1745").Value
Numbers = .Range(Cells(3, k), Cells(1745, k)).Value2
CountNumbers = WorksheetFunction.CountIf(ActiveSheet _
.Range(Cells(3, k), Cells(1745, k)), "1")
If CountNumbers = 0 Then GoTo TheEND
ReDim List(1 To CountNumbers, 1 To 1)
j = 0
For i = LBound(Numbers) To UBound(Numbers)
If Numbers(i, 1) = 1 Then
j = j + 1
List(j, 1) = Texts(i, 1)
If j = CountNumbers Then Exit For
End If
Next i
.Cells(1748, k).Resize(CountNumbers, 1).Value = List
Next k
End With
TheEND:
End Sub

Dík za navedení. Při ladění mi to při součtu plusem (např. "D" + 30) psalo Type mismatch, proto jsem tam cpal ten převod Str(), ale ono stačí použít "&" a je to. A to & používám běžně, ale někdy to nesepne ...

Ahoj, potřebuju radu. Při otevření souboru chci makrem předělat několik hypert.odkazů, aby směřovaly na řádek s dnešním datem. Sesmolil jsem fungující makro, kde je klíčový řádek:
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=kam2, TextToDisplay:=text_disp
ale mám otázku:
Když sestavuju proměnnou "kam", spojím řetezec písmene (sloupec) s č.řádku (převedeným na text), a uprostřed je pak MEZERA. Tu mezeru tam udělá i holý kód, jako např.:
neco = "D" + Str(30) >> výsledek = "D 30"
Mezeru umím odstranit nahrazením, ale nějak se mi to nezdá, že by to takhle dělali i zkušení programátoři?
Co mi poradíte?
Celkově je to samozřejmě amatérské, přivítám i rady na vylepšení. Dík.

Už jen pro vysvětlení, to je záměrně, makro nakonec nastaví hodnotu checkboxu na False. Mám to do listu s mnoha takovými prvky a chci po zobr.sloupců tím hlavním ovladačem mít všechny ty pomocné sloupce skryté. Večer jsem to udělal v mém ostrém souboru, vše funguje jak jsem si představoval a naštěstí mě nějaká elegantnost kódu netrápí. Dík.

Ano, taky Win7+2013. Vymyslel jsem takovou obezličku, že makro při zobr.skrytých sloupců zároveň posune ten problematický checkbox.
Zjistím si Left a Top buňky, na které leží a dám checkboxu polohu na tyto hodnoty.
A pak už na první kliknutí reaguje. 5
edit: Asi vyřešeno.


Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další » ... 17

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Současné rozplánování více projektů v Excelu.

eLCHa • 2.3. 22:03

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05