• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse