< návrat zpět
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: 52005_filtr.xls (17kB, staženo 22x)
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