Ú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

• #41354 Delila_1 veterán bteebi #41351

  Új Válasz 2019-07-11 19:39:39 #41354

  Ú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

  Nem a hibára válaszolok, hanem a keretezést egyszerűsítem.

  With rng
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
End With

• #41352 Fferi50 Topikgazda bteebi #41351

  Új Válasz 2019-07-11 19:27:46 #41352

  Ú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

  

  Fferi50

  Topikgazda

  válasz bteebi #41351 üzenetére

  Szia!
  Szerintem ott a gond, hogy nem kapcsolod ki közben az eseménykezelést.
  Az elejére Application.EnableEvents=False a kikapcsolás.
  A végére Application.EnableEvents=True a visszakapcsolás.
  Eseménykezelésnél erre mindig figyelni kell, hogy ne következzen be nem kívánt eredmény (az esemény ugyanis bekövetkezik, ha egy cellának változtatod az értékét akár makróból is).
  (Mondjuk a hiba rendezése után a keretet sem ártana eltörölni... )

  Üdv.

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