Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
Please provide me solution for each value in column "G" if value = "y" then check respective value in column "b" value = Null then print message its none Thanks in Advance *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
Sub naught()
Dim lr As Long, srcRng As Range, c As Range lr = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row Set srcRng = ActiveSheet.Range("G2:G" & lr) For Each c In srcRng If Range("B" & c.Row) = "" Then MsgBox "It's None " & Range("B" & c.Row).Address End If Next End Sub "preethi b" wrote in message ... Please provide me solution for each value in column "G" if value = "y" then check respective value in column "b" value = Null then print message its none Thanks in Advance *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
Missed part of the criteria. Use this one.
Sub naught() Dim lr As Long, srcRng As Range, c As Range lr = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row Set srcRng = ActiveSheet.Range("G2:G" & lr) For Each c In srcRng If LCase(c.Value) = "y" Then If Range("B" & c.Row) = "" Then MsgBox "It's None " & Range("B" & c.Row).Address End If End If Next End Sub "preethi b" wrote in message ... Please provide me solution for each value in column "G" if value = "y" then check respective value in column "b" value = Null then print message its none Thanks in Advance *** Sent via Developersdex http://www.developersdex.com *** |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
An other way with less loops:
Sub CheckOutNulls() Dim rngNulls As Range Dim rngCell As Range On Error GoTo ErrorHandler Set rngNulls = Range("B:B") _ .SpecialCells(xlCellTypeBlanks) For Each rngCell In rngNulls.Cells If rngCell.Offset(, 5) = "y" Then MsgBox "It's none: " & rngCell.Address 'more code here End If Next rngCell ExitProc: Exit Sub ErrorHandler: MsgBox Err.Description, vbExclamation Resume ExitProc End Sub Ο χρήστης "JLGWhiz" *γγραψε: Missed part of the criteria. Use this one. Sub naught() Dim lr As Long, srcRng As Range, c As Range lr = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row Set srcRng = ActiveSheet.Range("G2:G" & lr) For Each c In srcRng If LCase(c.Value) = "y" Then If Range("B" & c.Row) = "" Then MsgBox "It's None " & Range("B" & c.Row).Address End If End If Next End Sub "preethi b" wrote in message ... Please provide me solution for each value in column "G" if value = "y" then check respective value in column "b" value = Null then print message its none Thanks in Advance *** Sent via Developersdex http://www.developersdex.com *** |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
Thanks for the reply I would like to print none only once for entire loop after search completes Thanks Preethi *** Sent via Developersdex http://www.developersdex.com *** |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
check entire column value
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA how to check if entire row is selected? | Excel Discussion (Misc queries) | |||
Excel 2007 Insert Check Boxes to an Entire Column | Excel Discussion (Misc queries) | |||
Spell Check Entire WorkBook | Excel Discussion (Misc queries) | |||
check first cell in row, move entire row to sheet of that name | Excel Worksheet Functions | |||
how can I check the value 1 cell against the values of entire row | Excel Discussion (Misc queries) |