Worksheet_change combineren

[CCuppen]

Dag,

Het lukt me niet om 2 worksheet_change te combineren. 2 plaatsen mag niet, zover ben ik al. Maar hoe kan ik deze 2 combineren?

Het antwoord is belangrijk maar ook de manier hoe je het doet. Zodat ik dit in de toekomst ook vaker kan toepassen.

Hieronder zijn de 2 codes te vinden:

Private Sub Worksheet_Change(ByVal Target As Range)
Irow = Sheets("Ruimtelijke plannen oud").Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not Intersect(Target, Range("bt:bt")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If UCase(Target) = "JA" Then
Target.EntireRow.Copy
Sheets("Ruimtelijke plannen oud").Rows(Irow).Insert shift:=xlDown
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 73 Then
If UCase(Target) = "JA" Then
Cells(Target.Row, 1).Resize(, 90).Font.Strikethrough = True
Else: Cells(Target.Row, 1).Resize(, 90).Font.Strikethrough = False
End If
End If
End Sub



Mijn dank alvast.

gr
Casper

 

[Cobbe]

Alles hangt af van de volgorde dat de bewerkingen moeten plaatsvinden:

Private Sub Worksheet_Change(ByVal Target As Range)
Irow = Sheets("Ruimtelijke plannen oud").Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not Intersect(Target, Range("bt:bt")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If UCase(Target) = "JA" Then
Target.EntireRow.Copy
Sheets("Ruimtelijke plannen oud").Rows(Irow).Insert shift:=xlDown
End If
End If


If Target.Column = 73 Then
If UCase(Target) = "JA" Then
Cells(Target.Row, 1).Resize(, 90).Font.Strikethrough = True
Else: Cells(Target.Row, 1).Resize(, 90).Font.Strikethrough = False
End If
End If
End Sub

Gewoon een End sub en een Private Sub Worksheet_Change(ByVal Target As Range) weghalen.

 

[CCuppen]

helaas

Dag Cobbe,

Allereerst bedankt voor je snelle reactie. Alleen gaat de aanpassing niet helemaal op.
Hij doet het niet.

Ik hed de 2 regels weggehaald maar hij streept de regel niet door. (dus de 2e handeling)

 

[CCuppen]

sorry

Sorry je hebt gelijk. Hij doet het wel!!!

Ik zat gewoon te slapen. EN vulde in de verkeerde kolom ja in.
mijn excuses, en dank je wel.

gr.