Új hozzászólás Aktív témák

• #33896 poffsoft veterán nordican #33891

  Új Válasz 2017-01-25 23:52:16 #33896

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz nordican #33891 üzenetére

  Én ezt barkácsoltam:

  Sub Makro1()
Dim list() As String
Dim liste As String
Dim i As Integer
Dim c As Range
Dim rng As Range

liste = "Munka1,Munka2,Munka3" 'a munkalapok nevei, ahol keresni kell, vesszővel elválasztva
list() = Split(liste, ",")
For i = 0 To UBound(list)
Set rng = Sheets(list(i)).Range("A1:F100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
Next i
End Sub

• #33895 poffsoft veterán nordican #33891

  Új Válasz 2017-01-25 23:33:35 #33895

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz nordican #33891 üzenetére

  Egy bizonyos lapon lévő rangera a hivatkozás:

  Sheets(1).Range("A1", "F100").Select
  vagy
  Sheets("Munka1").Range("A1", "F100").Select

  a sárga cellák szűrése (feltéve, hogy a colorindex=6 sárgáról van szó):

  With Selection.Interior
If .ColorIndex = 5 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With

Új hozzászólás Aktív témák