Hi, I'm very new to VBA and expecting proper solutions for below
"C7:E8,C9:D11,H7:I11,L7:M8" This range to be filled with some data like name, ref no, date..... etc. what i want is, after filling these all cells with any value active window should scroll to 12, if at least one cell is not filled window should not be scrolled. I'm currently using following codes to desthis page, your solution will be able to add in to this codes. following codes I'm using
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(True, True) = "$H$10" Then
Select Case Target
Case "GYRO"
Call Selection_gyro
Case "SHORE BEARINGS"
Call Selection_other_method
Case "SUN'S AZIMUTH"
Call Selection_other_method
Case Else
'Do nothing
End Select
End If
If Target.Address(True, True) = "$G$29" Then
Select Case Target
Case "Slot"
Call By_slot
Case "****"
Call By_****
Case Else
'Do nothing
End Select
End If
End Sub
Bookmarks