Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
Hi , i want the macro that if i put any value in any cell of coloumns
A , B and C in sheet 1 then it lookup that value in coloumns A , B and C of sheet 2 and if value is different then message should come up that value not found. is there any way to make this kind of macro. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
In sheet 1Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:d1000")) Is Nothing Then If Sheets("sheet2").Columns("b:d") _ .Find(Target) Is Nothing Then MsgBox "Not there" End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... Hi , i want the macro that if i put any value in any cell of coloumns A , B and C in sheet 1 then it lookup that value in coloumns A , B and C of sheet 2 and if value is different then message should come up that value not found. is there any way to make this kind of macro. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
On 15 Dec, 15:54, "Don Guillett" wrote:
In sheet 1Right click sheet tabview codeinsert this Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:d1000")) Is Nothing Then If Sheets("sheet2").Columns("b:d") _ .Find(Target) Is Nothing Then MsgBox "Not there" End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... Hi , i want the macro that if i put any value in any cell of coloumns A , B and C in sheet 1 then it lookup that value in coloumns A , B and C of sheet 2 and if value is different then message should come up that value not found. is there any way to make this kind of macro.- Hide quoted text - - Show quoted text - Hi mate, Please i need macro for which i'll be very thank ful to please do reply I get "Interior.Colorindex = 3" or Red colour in coloumn B cells by conditional formatting. I have put formula in conditional formatting that when if value of cell in coloumn B is True by formula then cell get Red colour. One of my online friend send me the macro (please see below) which work fine but little problem that instead of coping only Red coloured cells by conditional formatting it copies all sheet1 data to sheet2. I want macro to copy only those cells rows which got Red colour by conditional formatting. and i dont want entire row just from cell A to cell F. Sub cpyColr() Dim c As Range lastRw = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row For Each c In Worksheets(1).Range("B2:B" & lastRw) If c.FormatConditions(1).Interior.ColorIndex = 3 Then lstRw2 = Worksheets(2).Range("A65536").End(xlUp).Row cRng = c.Address Worksheets(1).Range("A" & Range(cRng).Row & ":F" & Range(cRng).Row).Copy _ Worksheets(2).Range("A" & lstRw2 + 1) End If Next End Sub Please help. Thanks.......... |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
On 15 Dec, 17:34, "Don Guillett" wrote:
You should start YOUR own thread instead of high jacking another and pls TOP post. I did not test but the code presented appears to do what you want from sheet1 to sheet 2. Adjust if needed. -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... On 15 Dec, 15:54, "Don Guillett" wrote: In sheet 1Right click sheet tabview codeinsert this Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:d1000")) Is Nothing Then If Sheets("sheet2").Columns("b:d") _ .Find(Target) Is Nothing Then MsgBox "Not there" End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... Hi , i want the macro that if i put any value in any cell of coloumns A , B and C in sheet 1 then it lookup that value in coloumns A , B and C of sheet 2 and if value is different then message should come up that value not found. is there any way to make this kind of macro.- Hide quoted text - - Show quoted text - Hi mate, Please i need macro for which i'll be very thank ful to please do reply I get "Interior.Colorindex = 3" or Red colour in coloumn B cells by conditional formatting. I have put formula in conditional formatting that when if value of cell in coloumn B is True by formula then cell get Red colour. One of my online friend send me the macro (please see below) which work fine but little problem that instead of coping only Red coloured cells by conditional formatting it copies all sheet1 data to sheet2. I want macro to copy only those cells rows which got Red colour by conditional formatting. and i dont want entire row just from cell A to cell F. Sub cpyColr() Dim c As Range lastRw = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row For Each c In Worksheets(1).Range("B2:B" & lastRw) If c.FormatConditions(1).Interior.ColorIndex = 3 Then lstRw2 = Worksheets(2).Range("A65536").End(xlUp).Row cRng = c.Address Worksheets(1).Range("A" & Range(cRng).Row & ":F" & Range(cRng).Row).Copy _ Worksheets(2).Range("A" & lstRw2 + 1) End If Next End Sub Please help. Thanks..........- Hide quoted text - - Show quoted text - i am sorry as i am new to this group . please do you know the macro |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
On 15 Dec, 18:05, K wrote:
On 15 Dec, 17:34, "Don Guillett" wrote: You should start YOUR own thread instead of high jacking another and pls TOP post. I did not test but the code presented appears to do what you want from sheet1 to sheet 2. Adjust if needed. -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... On 15 Dec, 15:54, "Don Guillett" wrote: In sheet 1Right click sheet tabview codeinsert this Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:d1000")) Is Nothing Then If Sheets("sheet2").Columns("b:d") _ .Find(Target) Is Nothing Then MsgBox "Not there" End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... Hi , i want the macro that if i put any value in any cell of coloumns A , B and C in sheet 1 then it lookup that value in coloumns A , B and C of sheet 2 and if value is different then message should come up that value not found. is there any way to make this kind of macro.- Hide quoted text - - Show quoted text - Hi mate, Please i need macro for which i'll be very thank ful to please do reply I get "Interior.Colorindex = 3" or Red colour in coloumn B cells by conditional formatting. I have put formula in conditional formatting that when if value of cell in coloumn B is True by formula then cell get Red colour. One of my online friend send me the macro (please see below) which work fine but little problem that instead of coping only Red coloured cells by conditional formatting it copies all sheet1 data to sheet2. I want macro to copy only those cells rows which got Red colour by conditional formatting. and i dont want entire row just from cell A to cell F. Sub cpyColr() Dim c As Range lastRw = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row For Each c In Worksheets(1).Range("B2:B" & lastRw) If c.FormatConditions(1).Interior.ColorIndex = 3 Then lstRw2 = Worksheets(2).Range("A65536").End(xlUp).Row cRng = c.Address Worksheets(1).Range("A" & Range(cRng).Row & ":F" & Range(cRng).Row).Copy _ Worksheets(2).Range("A" & lstRw2 + 1) End If Next End Sub Please help. Thanks..........- Hide quoted text - - Show quoted text - i am sorry as i am new to this group . please do you know the macro- Hide quoted text - - Show quoted text - Thanks for help Don |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
replace VBA run-time error message with custom message | Excel Programming | |||
error message: compile error, argument not optional | Excel Programming | |||
Excel XP error message Run Time Error 91 | Excel Programming | |||
changing the message in an error message | Excel Worksheet Functions | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) |