Ú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

• #26098 cellpeti nagyúr cellpeti #26094

  Új Válasz 2015-03-19 20:47:53 #26098

  Ú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

  

  cellpeti

  nagyúr

  válasz cellpeti #26094 üzenetére

  na megoldottam a kérdést, vagyis a hivatkozásokat. Ez így jó is lenne nekem. DE!

  A következő kérdésem az lenne, hogyan tudom úgy megcsinálni a táblát, hogy mikor megnyitom, mintha egy program futna?

  Tehát se a munkalapok ne látszódjanak, csak a háttér és amiket ki tettem az első munkalapra?

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