Telefonszámunk: 1-472-0679

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

Kezdőlap › Fórumok › Excel programozás › [Resolved] Táblázatból váloogatás › Hozzászólás: [Resolved] Táblázatból váloogatás

2024-12-29-16:07 #11083
delila
Felhasználó

    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