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

• #26107 Delila_1 veterán cellpeti #26094

  Új Válasz 2015-03-20 08:50:34 #26107

  Ú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

  

  Delila_1

  veterán

  válasz cellpeti #26094 üzenetére

  A lenti makró bekéri a keresendő szöveget, és az összes lapon kipirosítja ezeknek a hátterét.

  Sub Piros()
  Dim lap As Integer, ter As Range, keres As String
  Dim CV As Object
  
  keres = Application.InputBox(prompt:="Kérem a keresendő szöveget", Type:=2)
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Activate
  Set ter = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, _
  ActiveSheet.UsedRange.Columns.Count))
  For Each CV In ter
  If CV = keres Then Range(CV.Address).Interior.ColorIndex = 3
  Next
  Next
  End Sub

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