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

• #33903 nordican tag poffsoft #33896

  Új Válasz 2017-01-26 08:54:24 #33903

  Ú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

  

  nordican

  tag

  válasz poffsoft #33896 üzenetére

  Köszi, ez az! Szerinted olyat bele lehet építeni, hogy az éppen aktív vagy a kijelölt munkalapokon végezze el a cserét? Próbáltam az ActiveSheet-tel, de ezzel nem működik.

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

  liste = "ActiveSheet" '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("A1100")
  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

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