Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2
Seřazení a vypsání hodnot (16.7.2014 18:25)

mosquito791 napsal/a:

co tohle viz přílohuPříloha: 20547_serad.zip


Jo tak to je luxus, díky 1 1

Seřazení a vypsání hodnot (16.7.2014 15:33)

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

Seřazení a vypsání hodnot (16.7.2014 14:33)

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

Pomoc se vzorcem VBA (15.7.2014 11:10)

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 10

Pomoc se vzorcem VBA (14.7.2014 14:57)

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

Pomoc se vzorcem VBA (14.7.2014 10:17)

Soubor zde

Pomoc se vzorcem VBA (14.7.2014 10:13)

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.


Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

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.

On-line nástroje