Good Morning! Working from home has found me building a master excel sheet for data collection. Im very new to a fair amount of the less than obvious features but heres what I have going on.
First:
I have a datapicker VBA running and its doing well OTHER THAN when I select the columns or rows I get an error " Run-time error '440': Invalid property value". When I click Debug, I see .LinkedCell = Target.Address highlighted in my code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheet1.DTPicker1
.Height = 20
.Width = 20
If Not Intersect(Target, Range("C:C")) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.LinkedCell = Target.Address
Else
.Visible = False
End If
End With
With Sheet1.DTPicker2
.Height = 20
.Width = 20
If Not Intersect(Target, Range("I:N")) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.LinkedCell = Target.Address
Else
.Visible = False
End If
End With
Any help with this would be AMAZING! ill have a second post up asking about prioritizing here shortly...
First:
I have a datapicker VBA running and its doing well OTHER THAN when I select the columns or rows I get an error " Run-time error '440': Invalid property value". When I click Debug, I see .LinkedCell = Target.Address highlighted in my code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheet1.DTPicker1
.Height = 20
.Width = 20
If Not Intersect(Target, Range("C:C")) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.LinkedCell = Target.Address
Else
.Visible = False
End If
End With
With Sheet1.DTPicker2
.Height = 20
.Width = 20
If Not Intersect(Target, Range("I:N")) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.LinkedCell = Target.Address
Else
.Visible = False
End If
End With
Any help with this would be AMAZING! ill have a second post up asking about prioritizing here shortly...