As soon as I type Eggs in column B2 and hit tab MsgBox("Do You want to Enter Egg Mode?", vbYesNo + vbQuestion) then it should check in sheet2 for Eggs same goes with B4,B5 and so on I can write any thing from the list it should compare in Sheet2 column A2if found then it should enter the text as non veg against the egg in column J it can be duplicate also in column B like eggs in B3 as well as eggs in B17Also attached the sheet name sample for reff.....thankyou,surya
Find the text in Columns("C:C") and compare the list in next sheet
-
-
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hello Surya,
Something like this?
AdrianB.
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi AdrianB,
Thanks for quick reply we are very close I need to find the below list in
Set Rng = .Range("B" & i).Find(What:="Egg","Apple","GGG","HHH","Food"Also I am running code in getting error message -- Run time error Application-define or object-define error
Private Sub Worksheet_Change(ByVal Target As Range)-----------------------------------> so that as soon as user enter any text like "Egg","Apple" and hits tab it should give message saying its Egg mode or saying veg mode if Yes then it should enter Veg Mod/Egg mod as below
Code
Display MoreFor i = 2 To Sheets("Sheet1").Range("B1048576").End(xlUp).Row With Sheets("Sheet1") Set Rng = .Range("B" & i).Find(What:="Egg", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Rng Is Nothing Then Sheets("Sheet1").Range("C" & i) = "Veg Mod" Else Sheets("Sheet1").Range("C" & i) = "Egg Mod" End If End With Next I End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------------
let me explain you once againI have list consider "Egg","Eggs","AAA & Eggs","Meat","Apple","SoftDrinks","etc".
if user enter any one of the above item in Sheet1.Column"B" then column "J" in sheet1 should have text "Egg Mode" in same row where he has entered Eggs.
likeItems ----- Description
Eggs----------- Egg mod
Egg------------ Egg mod
AAA & Eggs --- Egg mod
Meat ----------- Steak mod
Apple ---------- Veg modThanks a lot for you quick reply I am waiting for this
thanks
AdrianB -
Re: Find the text in Columns("C:C") and compare the list in next sheet
Is this what you want?
Regards,
AdrianB -
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi AdrianB.
Little bit short need to work more, Please find the excel as attachment. With details.
I am waiting for reply
thanks
Surya -
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi shloksurya
Welcome to Ozgrid.
The following formula in cell C2 and copy down.
=LOOKUP(2^15,SEARCH(Sheet1!$B$2:$B$24,$B2),Sheet1!$C$2:$C$24)
Take care
Smallman
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hey Surya & Smallman
Using the above mentioned formula (which is great but please explain to me Smallman what does it means that 2^15 as I am not so good at formulas ) you can put this code in the change event of your Worksheet to automatically update every time a user inserts value:
CodePrivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Range("B1048576").End(xlUp).Offset(0, 1).FormulaR1C1 = "=LOOKUP(2^15,SEARCH(RC[-1],Sheet1!C[-1]),Sheet1!C)" Application.EnableEvents = True End Sub
Regards,
AdrianB. -
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi Smallman,
2^15 --> used-in-lookup-to-find-last-cell-containing-a-specific-value
------------------------------------------------------------------Your Above code is great , just i need the out put that is Egg mod or steak mod result in Column J of Sheet Items.
Thanks waiting for your Reply
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi adygelber,
Using above I get Zero in column J, no luck.
Thanks any ways.
Please help and one can ............
-
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi
The formula picks up the maximim allowable characters in a cell 32768 or 2^15.
I don't think this should be a VBA solution, formulas keeps things simple. The only reason I did not provide a file previously as I thought you would be able to incorporate this formula. Here is a file to show workings.
Take care
Smallman
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi Smallman,
I am using something like below,
Code
Display MorePrivate Sub Worksheet_Change(ByVal Target As Range) With Sheets("Sheet2").Range("B2:B" & Range("B1048576").End(xlUp).Row) Set Rng = .Find(What:=Sheets("Sheet1").Range("B1048576").End(xlUp), _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Application.EnableEvents = False If Rng Is Nothing Then MsgBox "Not found" Else Sheets("Sheet1").Range("B1048576").End(xlUp).Offset(0, 8) = Sheets("Sheet2").Cells(Rng.Row, Rng.Column + 1) End If End With Application.EnableEvents = True End Sub
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi Smallman, & Other Team Members,
Please help, i will explain my problem againI have Sheet1 and Sheet2.
1] I type "AAA" in column A1 of Sheet1.
2] It should go and search the List which contains AAA in sheet 2 and copy the Adjucent column(B) next to the result found in below case if AAA is searched the result is "Veg"
3] It would be great if it give message if its non veg.Thanks Please help
Sheet1
[TABLE="width: 500"]
[tr][td]A - Column
[/td][td]B - Column
[/td][/tr][tr][td]AAA
[/td][td]Veg
[/td][/tr][tr][td]CCC
[/td][td][/td][/tr][tr][td]BBB
[/td][td][/td][/tr][tr][td]DDD
[/td][td][/td][/tr]
[/TABLE]Sheet2
[tr][td]
[TABLE="width: 500"]A - Column
[/td][td]B - Column
[/td][/tr][tr][td]AAA
[/td][td]Veg
[/td][/tr][tr][td]BBB
[/td][td]Non Veg
[/td][/tr][tr][td]CCC
[/td][td]Veg
[/td][/tr][tr][td]AAA
[/td][td]Non Veg
[/td][/tr][tr][td]BBB
[/td][td]Non Veg
[/td][/tr]
[/TABLE] -
Re: Find the text in Columns("C:C") and compare the list in next sheet
I think the formula solution works best for this problem.
Open to others who want to run and play in the VBA world.
Take care
Smallman
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
hello Guies,
Can some one help me here Please
Thanks a lot in advance
-
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
hi,
you can try this.
=IF(IFERROR(FIND("Egg",B2),0)>=1,VLOOKUP("Egg",Sheet1!B:C,2,0),VLOOKUP(B2,Sheet1!B:C,2,0))
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Hi myarshi29,
Thanks for reply i had wrote below code, Please check the output.
In Sheet1
CodePrivate Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:B300")) Is Nothing Then Call CheckAvailability End If End Sub
In Module Form
Code
Display MoreSub CheckAvailability() '---------------------------------------------------------------------------------------------------------------------------------B2 'Egg If Sheet1.Range("B2").Value = "Egg" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Eggs Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo A ActiveCell.Offset(0, 7).Value = "Egg Mod" End If A: 'Eggs If Sheet1.Range("B2").Value = "Eggs" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Eggs Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo B ActiveCell.Offset(0, 7).Value = "Egg Mod" End If B: 'Lamb Steak If Sheet1.Range("B2").Value = "Lamb Steak" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo C ActiveCell.Offset(0, 7).Value = "Steak Mod" End If C: 'Top Sirlon If Sheet1.Range("B2").Value = "Top Sirlon" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo E ActiveCell.Offset(0, 7).Value = "Steak Mod" End If E: 'Filet Mignon If Sheet1.Range("B2").Value = "Filet Mignon" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo F ActiveCell.Offset(0, 7).Value = "Steak Mod" End If F: 'Ribeye If Sheet1.Range("B2").Value = "Ribeye" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo G ActiveCell.Offset(0, 7).Value = "Steak Mod" End If G: 'Tenderlion If Sheet1.Range("B2").Value = "Tenderlion" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo H ActiveCell.Offset(0, 7).Value = "Steak Mod" End If H: 'T -Bone If Sheet1.Range("B2").Value = "T-Bone*" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo I ActiveCell.Offset(0, 7).Value = "Steak Mod" End If I: 'Porterhouse If Sheet1.Range("B2").Value = "Porterhouse" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo j ActiveCell.Offset(0, 7).Value = "Steak Mod" End If j: 'Strip Loin If Sheet1.Range("B2").Value = "Strip Loin" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo k ActiveCell.Offset(0, 7).Value = "Steak Mod" End If k: 'Top Loin If Sheet1.Range("B2").Value = "Top Loin" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo l ActiveCell.Offset(0, 7).Value = "Steak Mod" End If l: 'Club If Sheet1.Range("B2").Value = "Club" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo M ActiveCell.Offset(0, 7).Value = "Steak Mod" End If M: 'Skirt If Sheet1.Range("B2").Value = "Skirt" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo N ActiveCell.Offset(0, 7).Value = "Steak Mod" End If N: 'Sirloin If Sheet1.Range("B2").Value = "Sirloin" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo O ActiveCell.Offset(0, 7).Value = "Steak Mod" End If O: 'Chateaubriand If Sheet1.Range("B2").Value = "Chateaubriand" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo p ActiveCell.Offset(0, 7).Value = "Steak Mod" End If p: 'Delmonico If Sheet1.Range("B2").Value = "Delmonico" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo q ActiveCell.Offset(0, 7).Value = "Steak Mod" End If q: 'Flatiron If Sheet1.Range("B2").Value = "Flatiron" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo r ActiveCell.Offset(0, 7).Value = "Steak Mod" End If r: 'Hanger If Sheet1.Range("B2").Value = "Hanger" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo s ActiveCell.Offset(0, 7).Value = "Steak Mod" End If s: 'London Broil If Sheet1.Range("B2").Value = "London Broil" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo t ActiveCell.Offset(0, 7).Value = "Steak Mod" End If t: 'New York Strip If Sheet1.Range("B2").Value = "New York Strip" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo u ActiveCell.Offset(0, 7).Value = "Steak Mod" End If u: 'Prime Rib If Sheet1.Range("B2").Value = "Prime Rib" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo v ActiveCell.Offset(0, 7).Value = "Steak Mod" End If v: 'Tri -Tip If Sheet1.Range("B2").Value = "Tri -Tip" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo w ActiveCell.Offset(0, 7).Value = "Steak Mod" End If w: 'Steak & Eggs If Sheet1.Range("B2").Value = "Steak & Eggs" And Sheet1.Range("J2").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo X ActiveCell.Offset(0, 7).Value = "Egg Mod" ActiveCell.Offset(1, 7).Value = "Steak Mod" End If X: '---------------------------------------------------------------------------------------------------------------------------------B3 'Egg If Sheet1.Range("B3").Value = "Egg" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Eggs Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo A3 ActiveCell.Offset(0, 7).Value = "Egg Mod" End If A3: 'Eggs If Sheet1.Range("B3").Value = "Eggs" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Eggs Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo B3 ActiveCell.Offset(0, 7).Value = "Egg Mod" End If B3: 'Lamb Steak If Sheet1.Range("B3").Value = "Lamb Steak" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo C311 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If C311: 'Top Sirlon If Sheet1.Range("B3").Value = "Top Sirlon" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo E3 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If E3: 'Filet Mignon If Sheet1.Range("B3").Value = "Filet Mignon" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo F4 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If F4: 'Ribeye If Sheet1.Range("B3").Value = "Ribeye" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo G5 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If G5: 'Tenderlion If Sheet1.Range("B3").Value = "Tenderlion" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo H6 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If H6: 'T -Bone If Sheet1.Range("B3").Value = "T-Bone*" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo I7 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If I7: 'Porterhouse If Sheet1.Range("B3").Value = "Porterhouse" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo j8 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If j8: 'Strip Loin If Sheet1.Range("B3").Value = "Strip Loin" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo k9 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If k9: 'Top Loin If Sheet1.Range("B3").Value = "Top Loin" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo l10 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If l10: 'Club If Sheet1.Range("B3").Value = "Club" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo M11 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If M11: 'Skirt If Sheet1.Range("B3").Value = "Skirt" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo N12 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If N12: 'Sirloin If Sheet1.Range("B3").Value = "Sirloin" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo O13 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If O13: 'Chateaubriand If Sheet1.Range("B3").Value = "Chateaubriand" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo p14 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If p14: 'Delmonico If Sheet1.Range("B3").Value = "Delmonico" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo q161 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If q161: 'Flatiron If Sheet1.Range("B3").Value = "Flatiron" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo r17 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If r17: 'Hanger If Sheet1.Range("B3").Value = "Hanger" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo s18 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If s18: 'London Broil If Sheet1.Range("B3").Value = "London Broil" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo t19 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If t19: 'New York Strip If Sheet1.Range("B3").Value = "New York Strip" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo u20 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If u20: 'Prime Rib If Sheet1.Range("B3").Value = "Prime Rib" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo v21 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If v21: 'Tri -Tip If Sheet1.Range("B3").Value = "Tri -Tip" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo w22 ActiveCell.Offset(0, 7).Value = "Steak Mod" End If w22: 'Steak & Eggs If Sheet1.Range("B3").Value = "Steak & Eggs" And Sheet1.Range("J3").Value = "" Then If MsgBox("Do You want to Enter Steak Mod?", vbYesNo + vbQuestion) = vbNo Then GoTo X23 ActiveCell.Offset(0, 7).Value = "Egg Mod" ActiveCell.Offset(1, 7).Value = "Steak Mod" End If X23: '-------------------------------------------------------------------------------------------------------- 'So on Till Range B300
' Can any one help me to shorten this code.thanks
Suryakant -
Re: Find the text in Columns("C:C") and compare the list in next sheet
shloksurya, you have had a couple of solutions now that should be fine for what you need - if they are not working then please provide constructive feedback as to why they are not working. Smallman has created a very clever and simple formula solution that you don't seem to have acknowledged at all.
I have also added code tags to your last post, please ensure that you do this from now on as per the rules you agreed to when joining. If you have any questions please feel free to ask.
Regards,
S O
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
with all you respect & Smallman,
He had provided me the code was a part and i did reply that which did not help my need, right now i have written the above which i posted few hrs earlier it gave me error Procedure too large then i wrote below code ...
Code
Display MorePrivate Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Surya Dim rngCheck As Range Set rngCheck = Intersect(Target, Range("B2:B100")) If Not rngCheck Is Nothing Then Application.EnableEvents = False Select Case Target.Value Case "Egg" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Egg Mode If MsgBox("Do You want to Enter Egg Mod?", vbYesNo + vbQuestion) = vbNo Then Else ActiveCell.Offset(0, 7).Value = "Egg Mod" End If Case "Eggs" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Eggs Mode If MsgBox("Do You want to Enter Eggs Mod?", vbYesNo + vbQuestion) = vbNo Then Else ActiveCell.Offset(0, 7).Value = "Egg Mod" End If Case "Lamb Steak" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Lamb Steak If MsgBox("Do You want to Enter Lamb Steak Mod?", vbYesNo + vbQuestion) = vbNo Then Else ActiveCell.Offset(0, 7).Value = "Steak Mod" End If Case "Top Sirlon" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Top Sirlon If MsgBox("Do You want to Enter Top Sirlon Mod?", vbYesNo + vbQuestion) = vbNo Then Else ActiveCell.Offset(0, 7).Value = "Steak Mod" End If Application.EnableEvents = True End Select End If Surya: End Sub
-----------------------------------------------------------------------------
But still it doesnot run after the first case.Thanks for all your help and support.
-
Re: Find the text in Columns("C:C") and compare the list in next sheet
Please edit your last post and add code tags around the code listing. Code tags format the code making it easier to read and follow the logic.
If you look at your previous messages containg code these have been edited by others, this has also been mentioned in post #18 - it's time you did it yourself now. To add code tags, edit the message, highlight the code and click the '#' button on the toolbar above the edit window.
-
-
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!