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

• #41351 bteebi veterán

  Új Válasz 2019-07-11 18:18:35 #41351

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Van egy event makróm az adott munkalapban, ami a C oszlopban (3. oszlop) kiválasztott érték ("OK", "Rossz", vagy "N/A") alapján hoz létre a D oszlopban egy listát. De csak akkor, ha a kiválasztott érték a "Rossz". Emellett még rajzol egy keretet.

  Az érdekesség az, hogy a makró önállóan lefuttatva (a célcellára ráállva) teljesen jól működik, de ha event makróként futtatnám (a Dim Target/Set Target sorok nélkül, de akár azokkal is) nem csinál semmit. Mi lehet a baj? Már az is felmerült bennem, hogy a dropdown miatt van, hogy esetleg a cellában az értékváltozást nem tekinti változásnak, de másik makrókban ugyanebben a munkafüzetben meg hibamentesen megy... Valahogy pedig nem triggerelődik az event...

  Sub test()
'Private Sub Worksheet_Change(ByVal Target As Range)

Dim Target As Range
Set Target = ActiveCell

Dim rng As Range

If Target.Column = 3 Then

If Target.Value = "OK" Or Target.Value = "N/A" Then
Sheets("Stat").Cells(Target.Row, "D").ClearContents
Sheets("Stat").Cells(Target.Row, "D").Validation.Delete
End If

If Target.Value = "Rossz" Then

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.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rng.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rng.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rng.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With

End If

End Sub

  Van valami ötletetek, hogy mi lehet a gond? Nagyon köszönöm!

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