Příspěvky uživatele
< návrat zpět
Díky.
Dobrý den, máte prosím někdo nějaký vba kód, který zvládá export do PDF ve vysoké kvalitě? Mám v buňkách obrázek pomocí fce "image" ale když exportuji do PDF, obrázek se "rozteče" a je prakticky nečitelný. Děkuji.
Tak jsem si to vyřešil přes klikání na bezbarvý obrazec, taky to jde. Není to sice profi, ale funguje.
řadím přes tlačítko, ale není to ono...
Sub Serad_uloz()
'
' serad_uloz Makro
'
ActiveWindow.SmallScroll Down:=27
ActiveWorkbook.Worksheets("CELKEM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CELKEM").Sort.SortFields.Add Key:=Range("B3:B41") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CELKEM").Sort
.SetRange Range("B3:AE41")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Save
ActiveSheet.Range("$A$2:$AE$42").AutoFilter Field:=3, Criteria1:="<>"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B3:AE" & lastrow).Sort key1:=Range("B3:AE" & lastrow), _
order1:=xlAscending, Header:=xlNo
End If
End Sub
Omlouvám se, kod přiložen (příloha znovu uploadována).
Za druhé by my stačilo udělat automatický sort dle hlavičky RANK. Ideálně kdyby např při změně buňky AL1 došlo ke srovnání dat dle hlavičky RANK.
Na kliknutí být nemusí, ale líbilo by se mi to řazení dle hlavičky sloupce. Viz toto video:
https://www.youtube.com/watch?v=CgxhIT42qz8&t=384s
Dobrý den, mám tabulku, kterou bych rád řadil skrz VBa na dvojklik hlavičky tabulky. Přiložený kód mi nefunguje, na kliknutí stále jen edituji buňku. Děkuji za radu, něco dělám špatně a nevím co.
Povolená makra mám.
Edit: jedná se mi u jakékoliv automatické řazení dle hlavičky (rank) při jakékoliv změně na listu. Díky moc.
Takhle to funguje parádně, díky moc!
Po úpravě
Private Sub Worksheet_Calculate
zase makro počítá stále a sešit zamrzne...
Dobrý den,
Mé makro funguje a skrývá řádky 101-125 při hodnotě 16 v buňce A2, ale potřebuji, aby se při každém otevření sešitu spouštělo makro automaticky a nemusel bych ho vyvolat nějakým buttonem.
Děkuji za opravu.
Private Sub Skryj_radky()
Application.Calculation = xlAutomatic
'Skryj řádky 101 to 125
If Range("A2").Value = 16 Then
Rows("101:125").EntireRow.Hidden = True
Else
Rows("101:125").EntireRow.Hidden = False
End If
End Sub
Option Explicit
Tak to je krása, přesně jak jsem chtěl, děkuji moc! Hezký den.
Jedná se mi vlastně jen o tom, jestli by šel udělat čistší, konzistentnější vzorec i za pomocí vedlejší tab.
Chápu, bylo to zmatené. Posílám tabulku. Z ní a z toho screenu (byl jen návrh) to snad bude lépe pochopitelné
Ahoj, rád bych získal jeden vzorec(ne VBA), ke kterému bych se nemusel dostávat pomocnou tabulkou ani změnou vzorce samotného, tak abych mohl rozkopírovat celé najednou a nemusel vzorec někde měnit upravovat. Pro libovolný počet řádků.
Viz obrázek. Jde o to, že každá oblast připočítává jiný počet bodů. Z obrázku je to snad patrné. Chtěl bych mít ale jeden vzorec pro celé spektrum. Díky moc.
To je úžasné, jste bůh!
Děkuji moc!
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články