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

• #27357 Delila_1 veterán sedyke #27356

  Új Válasz 2015-06-15 16:44:31 #27357

  Ú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 sedyke #27356 üzenetére

  A leírásodból arra következtetek, hogy a keresett termék 1-1 egyszer fordul elő. Ehhez itt a makró.

  Sub In_Use()
  Dim lap As Integer, sor As Long
  
  For lap = 1 To Sheets.Count
  sor = Application.Match("keresett_termék", Sheets(lap).Columns(1), 0)
  If Not VarType(sor) = vbError Then Sheets(lap).Cells(sor, "W") = "in use"
  Next
  End Sub

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