Merge two Private Worksheets_Change in VBA

**d.franc299** · 09-23-2019, 05:04 AM

I'd like to merge two Private Worksheets_Change in VBA. Is any solution of this problem?

Thank you for answer

David

First code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To 100
If Cells(i, "D").Value <> "" And Cells(i, "B").Value = "" Then
Cells(i, "B").Value = Date
Cells(i, "B").NumberFormat = "dd.mm.yyyy"
End If
Next
Range("B:B").EntireColumn.AutoFit

End Sub

Second code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="123456"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 1))
If Cells(xRow, 1) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="123456"
End Sub

**Olly** · 09-23-2019, 05:11 AM

Try:

Please Login or Register  to view this content.

**d.franc299** · 09-23-2019, 05:18 AM

Unfortunately it does not work.

Neither macro is running. But at the same time there is no error message in VBA.

**Olly** · 09-23-2019, 05:22 AM

Make sure events are enabled.

In the VBE immediates window, enter:

Please Login or Register  to view this content.

Thinking about it, you will need to disable events, within the routine - so try this:

Please Login or Register  to view this content.

**d.franc299** · 09-23-2019, 05:31 AM

I'm new to this forum. How do i attach it please?

**Olly** · 09-23-2019, 05:51 AM

1. See my post edit above
2. To attach a workbook, click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

**d.franc299** · 09-23-2019, 06:37 AM

I hope I have attached this correctly.

I noticed that I have number one in the original formula, even though the date is in the second column, my mistake. (see code)

code
Do Until IsEmpty(Cells(xRow, 1))
If Cells(xRow, 1) < Date Then