yichuansancun
Board Regular
- Joined
- Feb 7, 2011
- Messages
- 123
Sub GSDDropDown()
Dim i As Integer
i = 4
Do While i < 23
If Range("F" & i).Value = Range("A1") Then
Range("Z" & i).Validation.Add Type:=xlValidateList, Formula1:="=GSD_Sub_DropDown"
Else
Range("Z" & i).Value = "N/A"
End If
i = (i + 1)
Loop
End Sub
Dim i As Integer
i = 4
Do While i < 23
If Range("F" & i).Value = Range("A1") Then
Range("Z" & i).Validation.Add Type:=xlValidateList, Formula1:="=GSD_Sub_DropDown"
Else
Range("Z" & i).Value = "N/A"
End If
i = (i + 1)
Loop
End Sub