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

• #41355 Delila_1 veterán bteebi #41351

  Új Válasz 2019-07-12 06:42:59 #41355

  Ú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 bteebi #41351 üzenetére

  Nálam működik a programod.

  FFeri arra az esetre gondolt, hogy eseményvezérelt makróba teszed a módosításokat. Átírtam.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

If Target.Column = 3 Then
Application.EnableEvents = False

Sheets("Stat").Cells(Target.Row, "D").ClearContents

If Target.Value = "OK" Or Target.Value = "N/A" Then
Sheets("Stat").Cells(Target.Row, "D").Validation.Delete
Else
With Sheets("Stat").Cells(Target.Row, "D").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="Hiba 1,Hiba 2,Hiba 3,Hiba 4"
End With
End If

Set rng = Sheets("Stat").Range("D" & Target.Row & ":E" & Target.Row)

With rng
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
End With
Application.EnableEvents = True
End If
End Sub

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