This snippet will check the value of the selected cell and if that value =
214 then it will check cell R1 and if it is equal to or less than zero, a
message will pop up to notifty the user. If the selected cell does not equal
214, or if the cell does equal 214 but R1 is greater than zero, the user
will not receive a notice.
If Selection.Value = 214 Then
If Range("R1").Value <= 0 Then
MsgBox "Cell R1 is zero or less"
End If
Emd Of
"oldjay" <(E-Mail Removed)> wrote in message
news:992F6248-D8D3-4783-927E-(E-Mail Removed)...
> Thanks
>
> That runs so well I thought I might ask you
> for the code that will be inside a macro. If the selected cell =214 then
> check to be sure there is a value greater than zero in cell R1 if not
> error
> message
>
> "JLGWhiz" wrote:
>
>> The code should have been put in the worksheet code module if the title
>> line
>> of Private Sub Worksheet_SelectionChange() is used. Then when you select
>> a
>> cell on the worksheet, if it is in column C it will trigger the
>> procedure.
>> If you want to use a command button to run the procedure, you will need
>> it
>> written differently and the procedure to check the cells should be put in
>> the public module.
>>
>> For the command button:
>>
>> Private Sub CommandButton1_Click()
>> Call ChkColC
>> End Sub
>>
>> For the public Module1
>>
>> Sub ChkColC()
>> If ActiveCell.Column = 3 Then
>> If Not IsEmpty(ActiveCell) And ActiveCell <> "" Then
>> MsgBox "Has Data"
>> Else
>> MsgBox "No Data"
>> End If
>> End If
>> End Sub
>>
>>
>>
>>
>>
>> "oldjay" <(E-Mail Removed)> wrote in message
>> news:5DAE4BD5-081B-4E56-A476-(E-Mail Removed)...
>> >I inserted Call Worksheet_SelectionChange and Call
>> > Worksheet_SelectionChange(ByVal Target As Range) as the first line of
>> > my
>> > Command Button to check for a proper selection but get an error message
>> > "Argument not Optional"
>> >
>> > "JLGWhiz" wrote:
>> >
>> >> Give this a shot.
>> >>
>> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> If Target.Column = 3 And Target.Cells.Count = 1Then
>> >> If Not IsEmpty(Target) And Target <> "" Then
>> >> MsgBox "Has Data"
>> >> Else
>> >> MsgBox "No Data"
>> >> End If
>> >> End If
>> >> End Sub
>> >>
>> >>
>> >>
>> >> "oldjay" <(E-Mail Removed)> wrote in message
>> >> news:021EA369-6EF5-4787-AF5E-(E-Mail Removed)...
>> >> > This code must be inserted in a sub routine so that the code doesn't
>> >> > continue
>> >> > if a empty cell has been selected. as written it gives an error 424
>> >> > 'Object
>> >> > required"
>> >> >
>> >> > "Wouter HM" wrote:
>> >> >
>> >> >> Hi oldjay
>> >> >>
>> >> >> You can use the worksheet event shown below:
>> >> >>
>> >> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> >> ' Be sure to look at a single cell
>> >> >> If Target.Cells.Count = 1 Then
>> >> >> ' Check if a cell iu column C is selected
>> >> >> If Target.Column = 3 Then
>> >> >> ' Check id the selected cell is empty
>> >> >> If IsEmpty(Target) Then
>> >> >> MsgBox "On empty cell"
>> >> >> End If
>> >> >> End If
>> >> >> End If
>> >> >> End Sub
>> >> >>
>> >> >>
>> >> >> HTH,
>> >> >>
>> >> >> Wouter
>> >> >> .
>> >> >>
>> >>
>> >>
>> >> .
>> >>
>>
>>
>> .
>>
|
Similar Threads
