MS Excel

Téma: Makro_kopírování hodnot podle podmínky

Zaslal/a Marekh 28.1.2022 9:10

Zdravím,
nevěděl by někdo jak vytvořit makro které by zkopírovalo vyplněné hodnoty různé od "nic" ty seřadilo a vložilo do jiného sloupce ?

Příloha: xls

52005_filtr.xls (17kB, staženo 23x)

Zaslat odpověď >

Marekh(28.1.2022 9:13)#052006

jen upřesním, že počet řádků nad "nic" je různýcitovat

Lugr(28.1.2022 10:43)#052007

Třeba

Sub Copy()

Dim POCET As Long
Dim RADEK As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False

RADEK = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row - 1
If RADEK > 0 Then wsDATA.Range("B2").Resize(RADEK, 1).ClearContents

POCET = WorksheetFunction.Match("nic", wsDATA.Range("A:A"), 0) - 2

wsDATA.Range("B2").Resize(POCET, 1).Value = wsDATA.Range("A2").Resize(POCET, 1).Value
wsDATA.Range("B1:B" & POCET + 1).Sort key1:=wsDATA.Range("B1"), order1:=xlAscending, Header:=xlYes

Application.ScreenUpdating = True

End Sub

Ještě úprava, před kopírováním nejprve smazat stará data a odstranění probliknutí.citovat

Marekh(28.1.2022 14:50)#052009

Lugr : Paráda, díky.citovat

Uživatelské menu

Nejste přihlášen(a)

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.