Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2193
    Sub Szures()
    Range("B6:B8").ClearContents
    Range("G9:G69").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("B5"), Unique:=True
    Range("B5:B8").Interior.ColorIndex = -4142
    End Sub

    A makrót egy gombhoz rendelheted.