Příspěvky uživatele
< návrat zpět
mosquito791 napsal/a:
co tohle viz přílohuPříloha: 20547_serad.zip
Jo tak to je luxus, díky
Ano, ale jak to seřadit, aby se to vypsalo do těch 2 sloupců? Mám několik listů kde bych tohle rád aplikoval
Zdravím, chtěl bych se zeptat, jakým způsobem by bylo nejlepší seřadit hodnoty od největší po nejmenší s tím, že by se vypsaly do sloupců A59 a dolů(Nadpisy) a B59 a dolů(Hodnoty). Momentálně jsou ta data A4:M4 (nadpisy) A5:M5 (hodnoty). Chtěl bych to ideálně nahrát záznamníkem do VBA a hodit to na tlačítko. Díky
Dingo napsal/a:
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.Příloha: 20525_sample35.zip
Ahoj, už sem na to přišel proč to tak dělá. Ve sloupci M nebyly žádné jedničky, tak se ten program ukončil :).
Každopádně díky, moc si mi pomohl a zároveň o dost vše usnadnil
Dingo napsal/a:
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.Příloha: 20511_sample35.zip
Jo, máš pravdu, funguje to dobře, díky :)
Chtěl bych se zeptat. Když bych potřeboval změnit rozsahy pro jiný soubor, tak jak to udělat? Změnil jsem co sem mohl, ale vypisuje to jen po sloupec M.
Přikládám kód zde:
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("A4:A2098").Value
Numbers = .Range(Cells(4, k), Cells(2098, k)).Value2
CountNumbers = WorksheetFunction.CountIf(ActiveSheet _
.Range(Cells(4, k), Cells(2098, 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(2100, k).Resize(CountNumbers, 1).Value = List
Next k
End With
TheEND:
End Sub
Soubor zde
Vidím, že sem asi nebyl přesně pochopen. V těch sloupcích nejsou samé jedničky.
Posílám ten soubor, to bude asi nejlepší.
Prostě a jednoduše. Potřebuju aby ten výpis, který je napsaný ve VBA a vypisuje jen ve sloupci E1748, tak aby byl stejným způsobem udělaný pro všechny zbývající sloupce.
Uživatelské menu
\nMenu
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.
RSS nejnovější články