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

• #23758 Delila_1 veterán plaschil #23757

  Új Válasz 2014-10-16 16:50:31 #23758

  Ú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 plaschil #23757 üzenetére

  Függvénnyel nem, de egy rövid kis makróval megoldható.

  Sub Hiba()
  Dim ter As Range, CV As Range, usor As Long
  
  Sheets("A").Activate
  usor = Cells(1).End(xlDown).Row
  Set ter = Range("A1:A" & usor)
  
  For Each CV In ter
  If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
  Next
  End Sub

  A Sheets("A").Activate, és az
  If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
  sorokban írd be az "A" és "B" helyére a lapjaid igazi nevét, idézőjelek között.

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