Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2197
    Az A1:A1000 tartomány szűrt adatait vizsgálja, a látható cellák hátterét pirosra festi.

    Sub Szurt_adatok()
    Dim sor As Long

    For sor = 1 To 1000
    If Rows(sor).Hidden = False Then
    Cells(sor, 1).Interior.Color = vbRed
    End If
    Next
    End Sub