Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
I have a summary sheet which gets data from the other sheets. Cells B17 and C17
gets value of count from the different sources. I was writing a macro that when run along with another macro check the value of both the cell and shows message box accordingly. But it shows error that ===== Else without If ====== Code is given below. Sub final() Dim master As Range Dim ind As Range Set master = Range(B17) Set ind = Range(C17) If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub You can see that the If is already there but compiler cant see it. It seems a silly question but Can any one help please? Regards, |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
Shetty,
Your if statement is set up to be a simple if ... then, if you want to include any elseif's or an else If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If Dan E "Shetty" wrote in message om... I have a summary sheet which gets data from the other sheets. Cells B17 and C17 gets value of count from the different sources. I was writing a macro that when run along with another macro check the value of both the cell and shows message box accordingly. But it shows error that ===== Else without If ====== Code is given below. Sub final() Dim master As Range Dim ind As Range Set master = Range(B17) Set ind = Range(C17) If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub You can see that the If is already there but compiler cant see it. It seems a silly question but Can any one help please? Regards, |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
Thanks for your reply.
I have corrected the code but still it gives the error that range of object worksheet failed. (Run time error 1004) Here is the code. Macro hold at set master line. Private Sub Worksheet_Change(ByVal Target As Range) Dim master As Range Dim ind As Range Set master = Range(B18).Value ====== here macro stops with highlighting this line with yellow colour==== Set ind = Range(C18).Value If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub When I put courser aerrow at this lie on master it shows master=nothing and when put curser on B18 is shows b18=Empty with a small yellow lable. Simmilarly with ind and C18. Can you please point out where I am misteking? Regards, Shetty ----- Dan E wrote: ----- Shetty, Your if statement is set up to be a simple if ... then, if you want to include any elseif's or an else If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If Dan E "Shetty" wrote in message om... I have a summary sheet which gets data from the other sheets. Cells B17 and C17 gets value of count from the different sources. I was writing a macro that when run along with another macro check the value of both the cell and shows message box accordingly. But it shows error that ===== Else without If ====== Code is given below. Sub final() Dim master As Range Dim ind As Range Set master = Range(B17) Set ind = Range(C17) If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub You can see that the If is already there but compiler cant see it. It seems a silly question but Can any one help please? Regards, "Dan E" wrote in message ... Shetty, Your if statement is set up to be a simple if ... then, if you want to include any elseif's or an else If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If Dan E "Shetty" wrote in message om... I have a summary sheet which gets data from the other sheets. Cells B17 and C17 gets value of count from the different sources. I was writing a macro that when run along with another macro check the value of both the cell and shows message box accordingly. But it shows error that ===== Else without If ====== Code is given below. Sub final() Dim master As Range Dim ind As Range Set master = Range(B17) Set ind = Range(C17) If master(cell.Value) = ind(cell.Value) Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub You can see that the If is already there but compiler cant see it. It seems a silly question but Can any one help please? Regards, |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
Shetty,
Your going to run into numerous problems with your code. First your current problem. Your trying to set an object (A range) to be a value Set master = Range(B18).Value <-also missing quotes around range Set ind = Range(C18).Value What you need to do is set the object to an object Set master = Range("B18") Set ind = Range("C18") Your next problem lies in If master(cell.Value) = ind(cell.Value) Then I assume you want the value's of cells B18 and C18. You should use: If master.Value = ind.Value Then Your finished product. Dim master As Range Dim ind As Range Set master = Range("B18") Set ind = Range("D18") If master.Value = ind.Value Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub But unless your refering to master and ind a lot more than this it would be easier (much less code) If Range("D18").Value = Range("C18").Value Then MsgBox "Segregation is OK" Else: MsgBox "Please check the details again, there is an error" End If Dan E |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
CODE SHOULD BE:
Dim master As Range Dim ind As Range Set master = Range("B18") Set ind = Range("C18") If master.Value = ind.Value Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub AND If Range("B18").Value = Range("C18").Value Then MsgBox "Segregation is OK" Else: MsgBox "Please check the details again, there is an error" End If Got the B's and C's a little mixed up... Dan E |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with IF statement ! ! !
Thanks Dan =:)
The second code is exactly what I want to do. Because I failed with this, I have tried to use set range etc which was also wrong. You have explained nicely how and where I made mistakes which lead me to new hights in VBA. You help is very much appreciated. Thanks again. Regards, Shetty. "Dan E" wrote in message ... CODE SHOULD BE: Dim master As Range Dim ind As Range Set master = Range("B18") Set ind = Range("C18") If master.Value = ind.Value Then MsgBox "Sagregation is OKEY" Else: MsgBox "Please check the details again. There is an error" End If End Sub AND If Range("B18").Value = Range("C18").Value Then MsgBox "Segregation is OK" Else: MsgBox "Please check the details again, there is an error" End If Got the B's and C's a little mixed up... Dan E |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF statement inside a SUMIF statement.... or alternative method | Excel Worksheet Functions | |||
Reconcile Bank statement & Credit card statement & accounting data | Excel Worksheet Functions | |||
Embedding an OR statement in an IF statement efficiently | Excel Discussion (Misc queries) | |||
If statement or lookup statement not sure | Excel Worksheet Functions | |||
appending and IF statement to an existing IF statement | Excel Worksheet Functions |