[Resolved] Táblázatból váloogatás

Szia!

Sub Valogatas()
    Dim CV, sor As Integer
    sor = 3
    For Each CV In Range("C3:F7")
        If CV.Value > "" Then
            Range("H" & sor) = CV
            sor = sor + 1
        End If
    Next
End Sub

Sziasztok!

Nem tudom, hogy Mavimi mennyire használ makrókat.
Delila megoldása annyit csinál, hogy a C3:F3 tartomány celláit egy oszlopba másolja egymás alá.
Soronként halad.

Én úgy értettem, hogy az eredménynek az ismétlődéseket ki kellene zárnia.
Ezt makróval már jóval bonyolultabb, bár egy ilyen pici tartományon még megugorható.

Ha jól emlékszem Mavimi nem 365 Excel-t használsz, amivel egy összetett formulával ez simán megoldható lenne.
Melyik verzióval is dolgozol?

Korábbi Excelben ez makró nélkül csak manuálisan menne.
Azaz először a tartomány oszlopait egyesével egymás alá kell másolni, így kapsz egy oszlopot, amit pl. Delila makrója is megcsinált.

Ezek után alkalmazni kell az Adatok->Ismétlődések eltávolítása parancsot.

Ez a megoldás természetesen statikus, azaz nem követi le a tartomány adatainak változását.

Imre

Szuper!
Ha ez neked már megfelel, akkor mindenki örül újra.
🙂