Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trapping blanks
Received this code want to idenify empty cells and return to sheet if
vbyes/no yes. I am missing something because it goes on and runs code instead of returning to worksheet for completion. Not sure what to add. Thanks Dim Blanks As VbMsgBoxResult Dim LastRow As Long Dim myR As Range With Worksheets("MailD") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo NoBlanks Set myR = .Range("A2:F2").Resize(LastRow - 4).SpecialCells(xlCellTypeBlanks) Blanks = MsgBox("Do you want to complete blanks?", vbYesNo) If Blanks = vbYes Then myR.Select End If NoBlanks: End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trapping blanks
Maybe this... If Blanks = vbYes Then myR.Select End If Should be... If Blanks = vbYes Then myR.Select Exit Sub End If -- Jim Cone Portland, Oregon USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Curt" wrote in message Received this code want to idenify empty cells and return to sheet if vbyes/no yes. I am missing something because it goes on and runs code instead of returning to worksheet for completion. Not sure what to add. Thanks Dim Blanks As VbMsgBoxResult Dim LastRow As Long Dim myR As Range With Worksheets("MailD") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo NoBlanks Set myR = .Range("A2:F2").Resize(LastRow - 4).SpecialCells(xlCellTypeBlanks) Blanks = MsgBox("Do you want to complete blanks?", vbYesNo) If Blanks = vbYes Then myR.Select End If NoBlanks: End With |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trapping blanks
Jim:
Thanks much cagreer Springfield Oregon "Jim Cone" wrote: Maybe this... If Blanks = vbYes Then myR.Select End If Should be... If Blanks = vbYes Then myR.Select Exit Sub End If -- Jim Cone Portland, Oregon USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Curt" wrote in message Received this code want to idenify empty cells and return to sheet if vbyes/no yes. I am missing something because it goes on and runs code instead of returning to worksheet for completion. Not sure what to add. Thanks Dim Blanks As VbMsgBoxResult Dim LastRow As Long Dim myR As Range With Worksheets("MailD") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo NoBlanks Set myR = .Range("A2:F2").Resize(LastRow - 4).SpecialCells(xlCellTypeBlanks) Blanks = MsgBox("Do you want to complete blanks?", vbYesNo) If Blanks = vbYes Then myR.Select End If NoBlanks: End With |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trapping blanks
Made the change and all I need to do now is hide userform. Was makeing
change in wrong place. first time around. Thanks for input. "Jim Cone" wrote: Maybe this... If Blanks = vbYes Then myR.Select End If Should be... If Blanks = vbYes Then myR.Select Exit Sub End If -- Jim Cone Portland, Oregon USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Curt" wrote in message Received this code want to idenify empty cells and return to sheet if vbyes/no yes. I am missing something because it goes on and runs code instead of returning to worksheet for completion. Not sure what to add. Thanks Dim Blanks As VbMsgBoxResult Dim LastRow As Long Dim myR As Range With Worksheets("MailD") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo NoBlanks Set myR = .Range("A2:F2").Resize(LastRow - 4).SpecialCells(xlCellTypeBlanks) Blanks = MsgBox("Do you want to complete blanks?", vbYesNo) If Blanks = vbYes Then myR.Select End If NoBlanks: End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to count blanks and spaces that look like blanks | Excel Programming | |||
Sumproduct copying blanks or how to insert zero into blanks | Excel Worksheet Functions | |||
copy range of cells with blanks then paste without blanks | Excel Programming | |||
copy range of cells with blanks then paste without blanks | Excel Worksheet Functions | |||
Paste Special Skip Blanks not skipping blanks, but overwriting... | Excel Discussion (Misc queries) |