Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare values and place variable value on sh2
In the following code, I am not understanding how to pass the variable value
to my other sheet (Sh2). =============== '==================== 'Originating author: Joel from "microsoft.public.excel.programming" 10.09.07 'Modified 10.10.07 '==================== 'compare sheet 1 with sheet 2 For Each sh1cell In sh1range Set c = sh2range.Find( _ What:=sh1cell, LookIn:=xlValues, LookAt:=xlWhole)' Added "xlWhole" If c Is Nothing Then sh1cell.Offset(0, 2).Value = "No Match Found!" sh1cell.Offset(0, 2).Font.Color = -16776961 sh1cell.Offset(0, 2).Font.Bold = True Else If sh1cell.Offset(0, 1) < c.Offset(0, 1) Then sh1cell.Offset(0, 2).Font.Italic = True sh1cell.Offset(0, 2).ColumnWidth = 25 sh1cell.Offset(0, 2).Value = "Revision Level Change!" sSh1RevIs = sh1cell.Offset(0, 1) ' Capture Revision level of Sh1 if False MsgBox sSh1RevIs 'for testing...Show Rev from Sh1 End If End If Next sh1cell ==================== The variable "sSh1RevIs" captures the value I want (revision level of "sh1cell.Offset(0, 1)") but I cannot figure out how to place this value on the same row (column D) on Sh2 (compared row of Sh1 and Sh2). -- Regards Rick XP Pro Office 2007 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare values and place variable value on sh2
sheets("Sheet2").Range("D" & sh1cell.row) = sSh1RevIs
"Rick S." wrote: In the following code, I am not understanding how to pass the variable value to my other sheet (Sh2). =============== '==================== 'Originating author: Joel from "microsoft.public.excel.programming" 10.09.07 'Modified 10.10.07 '==================== 'compare sheet 1 with sheet 2 For Each sh1cell In sh1range Set c = sh2range.Find( _ What:=sh1cell, LookIn:=xlValues, LookAt:=xlWhole)' Added "xlWhole" If c Is Nothing Then sh1cell.Offset(0, 2).Value = "No Match Found!" sh1cell.Offset(0, 2).Font.Color = -16776961 sh1cell.Offset(0, 2).Font.Bold = True Else If sh1cell.Offset(0, 1) < c.Offset(0, 1) Then sh1cell.Offset(0, 2).Font.Italic = True sh1cell.Offset(0, 2).ColumnWidth = 25 sh1cell.Offset(0, 2).Value = "Revision Level Change!" sSh1RevIs = sh1cell.Offset(0, 1) ' Capture Revision level of Sh1 if False MsgBox sSh1RevIs 'for testing...Show Rev from Sh1 End If End If Next sh1cell ==================== The variable "sSh1RevIs" captures the value I want (revision level of "sh1cell.Offset(0, 1)") but I cannot figure out how to place this value on the same row (column D) on Sh2 (compared row of Sh1 and Sh2). -- Regards Rick XP Pro Office 2007 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare values and place variable value on sh2
Once again, Thank You!
-- Regards Rick XP Pro Office 2007 "Joel" wrote: sheets("Sheet2").Range("D" & sh1cell.row) = sSh1RevIs "Rick S." wrote: In the following code, I am not understanding how to pass the variable value to my other sheet (Sh2). =============== '==================== 'Originating author: Joel from "microsoft.public.excel.programming" 10.09.07 'Modified 10.10.07 '==================== 'compare sheet 1 with sheet 2 For Each sh1cell In sh1range Set c = sh2range.Find( _ What:=sh1cell, LookIn:=xlValues, LookAt:=xlWhole)' Added "xlWhole" If c Is Nothing Then sh1cell.Offset(0, 2).Value = "No Match Found!" sh1cell.Offset(0, 2).Font.Color = -16776961 sh1cell.Offset(0, 2).Font.Bold = True Else If sh1cell.Offset(0, 1) < c.Offset(0, 1) Then sh1cell.Offset(0, 2).Font.Italic = True sh1cell.Offset(0, 2).ColumnWidth = 25 sh1cell.Offset(0, 2).Value = "Revision Level Change!" sSh1RevIs = sh1cell.Offset(0, 1) ' Capture Revision level of Sh1 if False MsgBox sSh1RevIs 'for testing...Show Rev from Sh1 End If End If Next sh1cell ==================== The variable "sSh1RevIs" captures the value I want (revision level of "sh1cell.Offset(0, 1)") but I cannot figure out how to place this value on the same row (column D) on Sh2 (compared row of Sh1 and Sh2). -- Regards Rick XP Pro Office 2007 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compare values and place corresponding value in another sheet | Excel Discussion (Misc queries) | |||
Place a variable inside a directory path | Excel Programming | |||
How do I use a variable in the place of a sheet name | Excel Programming | |||
How do I create a macro that will compare columns and place data | Excel Worksheet Functions | |||
how to place a variable cell into a range? | Excel Programming |