Basic VBA help

RMCGAR · Aug 17, 2006

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

DBITeng · Sep 9, 2006

try this:

Sub DeleteEmptyRows(DeleteRange As Range)
' Deletes all empty rows in DeleteRange
' Example: DeleteEmptyRows Selection
' Example: DeleteEmptyRows Range("A1

100")
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

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Basic VBA help

RMCGAR

Mechanical

Recommended for you

DBITeng

Civil/Environmental

Similar threads

Part and Inventory Search

Sponsor