Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations GregLocock on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Basic VBA help

Status
Not open for further replies.

RMCGAR

Mechanical
Jul 20, 2006
5
I'm trying to automate our price qoute sheet with a form i made with formfields in microsoft word. I have little experience with VBA and only in reference to excel. The form fields are within a three column eight row table with one form field in each cell. I would like a code that detects whether a form field Total7 is empty and if so deletes that entire row (row 8) from the table. It has been awhile sense i've done anything like this so any help would be great.

Thanks
Rory
 
Replies continue below

Recommended for you

try this:

Sub DeleteEmptyRows(DeleteRange As Range)
' Deletes all empty rows in DeleteRange
' Example: DeleteEmptyRows Selection
' Example: DeleteEmptyRows Range("A1:D100")
Dim rCount As Long, r As Long
If DeleteRange Is Nothing Then Exit Sub
If DeleteRange.Areas.Count > 1 Then Exit Sub
With DeleteRange
rCount = .Rows.Count
For r = rCount To 1 Step -1
If Application.CountA(.Rows(r)) = 0 Then
.Rows(r).EntireRow.Delete
End If
Next r
End With
End Sub

Technological progress is like an axe in the hands of a pathological criminal
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor