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

• #50704 Delila_1 veterán huan #50702

  Új Válasz 2023-03-12 06:33:12 #50704

  Ú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 huan #50702 üzenetére

  Makróval lehet csak megoldani, hogy az eddigi lista végére beírja az új értéket.

  A beviteli cella C3, az eddigi sorozatszámok az F oszlopban vannak.
  A makrót a laphoz kell rendelned (lásd a Téma összefoglalót).

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long
If Target.Address = "$C$3" Then
Application.EnableEvents = False
If Application.WorksheetFunction.CountIf(Range("F:F"), Target.Value) = 1 Then
Cells(3, 4) = "NOK": Cells(3, 4).Interior.Color = RGB(255, 0, 0)
Else
Cells(3, 4) = "OK": Cells(3, 4).Interior.Color = RGB(0, 176, 80)
ide = Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(ide, 6) = Target: Cells(ide, 7) = Format(Now, "yyyy.mm.dd")
End If
Application.EnableEvents = True
End If
End Sub

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