I have 2 worksheet_change commands on the same worksheet right now which is not working. I’m assuming I need to combine them into one but I’m having trouble doing so on my own.
Here is my current code:
If someone could help me set this up properly I would appreciate it!
Also another side question, as you can see in the first part of the code I’ve got a range from E81 to E90, but this is just a small section, I cut out the rest but I need the range to go from E81 to E220. I tried with E81:E220 but to no avail. I also have a module opened for this where I would also need to modify the range. Here is the section in question:
'CellRanges below, change to suit.
ar= Array("E81", "E82", "E83", "E84","E85", "E86", "E87", "E88","E89", "E90")
For i = 1 To UBound(ar)
(Sorry, was not able to properly put this one in code text for some reason)
How could I word that to have it range from E81 to E90 ?
Thank you
Here is my current code:
Rich (BB code):
Option Explicit
Private Sub Worksheet_Change(ByVal Target AsRange)
If Not Intersect(Target, Range("E81, E82,E83, E84, E85, E86, E87, E88, E89, E90")) Is Nothing Then
FixMerge
End If
End Sub
Private Sub Worksheet_Change(ByVal Target AsRange)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target,Range("C3,C31,C40,C44,C54,A63")) Is Nothing Then
If Target.Value = "" Then
Cells(Target.Row,"I").Value = ""
Else
Range("I" &Target.Row).Value = Application.UserName
End If
End If
EndSub
If someone could help me set this up properly I would appreciate it!
Also another side question, as you can see in the first part of the code I’ve got a range from E81 to E90, but this is just a small section, I cut out the rest but I need the range to go from E81 to E220. I tried with E81:E220 but to no avail. I also have a module opened for this where I would also need to modify the range. Here is the section in question:
'CellRanges below, change to suit.
ar= Array("E81", "E82", "E83", "E84","E85", "E86", "E87", "E88","E89", "E90")
For i = 1 To UBound(ar)
(Sorry, was not able to properly put this one in code text for some reason)
How could I word that to have it range from E81 to E90 ?
Thank you
Last edited: