Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to compare
Is there code that would perform a compare btween two columns and should the
values not be the same then a yes/no message box can appear to alert the user? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to compare
On Apr 1, 5:45 pm, acss wrote:
Is there code that would perform a compare btween two columns and should the values not be the same then a yes/no message box can appear to alert the user? Yes there is. It would likely look something like this... Private Sub CompareColumns() Dim iCounter as Integer Dim bnSame as Boolean Do For iCounter = 1 to 150 'this gets changed depending on how many rows you want to compare If Cells(iCounter,1).Value = Cells(iCounter,2).Value Then 'if any value in column A = in column B bnSame = True iCounter = 150 'don't keep checking End If Loop If bnSame = True Then Msgbox "At least one identical value" End If End Sub Throw that into a new module once you are in the VBE (Ctrl+F11) ... post back with any more questions! HTH Chris |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to compare
Maybe if you could give me some more info. And what your data looks like in
the spreedsheet. I could cook you up something "acss" wrote: Is there code that would perform a compare btween two columns and should the values not be the same then a yes/no message box can appear to alert the user? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to compare
It is really something simple like if user typed in column A the amount of
100 then Column b should automatically have that value and should it not then a message box would appear or some sort of error flag. "Mike" wrote: Maybe if you could give me some more info. And what your data looks like in the spreedsheet. I could cook you up something "acss" wrote: Is there code that would perform a compare btween two columns and should the values not be the same then a yes/no message box can appear to alert the user? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to compare
Sub somethingSimple()
Const whatColumn = "A" 'Change to your needs Dim looper As Long 'looper = 5 Starting row of data Dim lastToCheckRow As Long Dim cellPointer As Variant lastToCheckRow = Range(whatColumn & Rows.Count).End(xlUp).Row For looper = 1 To lastToCheckRow Set cellPointer = Worksheets("Sheet1").Cells(looper, 1) If cellPointer < cellPointer.Offset(0, 1) Then MsgBox "Range(" & cellPointer.Address & ")" _ & " does not match Range(" & _ cellPointer.Offset(0, 1).Address & ")" End If Next looper End Sub "acss" wrote: It is really something simple like if user typed in column A the amount of 100 then Column b should automatically have that value and should it not then a message box would appear or some sort of error flag. "Mike" wrote: Maybe if you could give me some more info. And what your data looks like in the spreedsheet. I could cook you up something "acss" wrote: Is there code that would perform a compare btween two columns and should the values not be the same then a yes/no message box can appear to alert the user? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB code required to compare name list | Excel Programming | |||
Any way to compare VBA code in different workbooks? | Excel Programming | |||
Problem with code. (Compare all cells) | Excel Programming | |||
Help with VB code to compare two columns | Excel Programming | |||
Compare tabs using Double Lookup, in VB code | Excel Programming |