Příspěvky uživatele

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.

edit: Asi vyřešeno.

Dík za snahu. Tak to bude buď verzí excelu nebo něco v mém systému. S tím těžko něco udělám.

Ahoj, pokouším se makrem skrýt sloupec, ve kterém mám checkbox. Po opětovném zobrazení sloupce tento checkbox nefunguje, nedá se stisknout, je jakoby "vedle", teprve po přesunu jinam začne zase fungovat. Excel 2013.
Co mám kde špatně? Víc v příloze.

Smazat obsah řádek výběru:
Selection.EntireRow.ClearContents

Tedy ve sloupci, kde se má nahradit 1 za 2 jsou vzorce? Pak by snad šlo upravit ten vzorec, aby nyní spočítanou hodnotu zrovna nahradil. Ale bez přílohy už to nepůjde.

Dám sem dvě možnosti:
1) vybrat sloupec D (nebo jen jeho část) a pomocí nahrazení (ctrl+h) nahradit znak 1 za 2. Nejlíp v Možnostech zaškrtnout "pouze celé buňky"
2) vzorcem v každém řádku nějakého jiného sloupce.
=KDYŽ(D1=1;2;D1) kopírovat do řádků. Výsledek z toho sloupce pak třeba zkopírovat "jako hodnoty" na původní místo

Něco jsem zkusil sestavit. Excel 2010.

Zase byl někdo rychlejší, ale chtěl jsem si to zkusit, jestli to dokážu, nakonec je to celkem jednoduché.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje