CONDITIONAL DELETE

S

SH

WE EXPORT STUFF FROM ACCOUNTS PROGRAM TO EXCEL AND THERE ARE A LOT OF COLUMNS THAT HAVE NO DATA. IS IT POSSIBLE TO DELETE ALL SUCH COLUMNS IN ONE STROKE THROUGH PROGRAMMING. IF SO, KINDLY LET ME KNOW.

ALSO, THERE USED TO BE AN EDIT DELETE COMMAND IN EXCEL. NOW THERE IS AN EDIT DELETE ROW COMMAND. I CAN'T FIND THE NORMAL COMMAND ANYWHERE. PLEASE GUIDE. THANK YOU.
 
N

Norman Jones

Hi SH,

For your information, your type of block upper case uasge is regarded as
impolite shouting. That aside, it is disconcerting and unpleasant.

To delete your blank columns, try:

Sub DeleteBlankCols()
Dim WB As Workbook
Dim WS As Worksheet
Dim iCol As Long
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Set WB = ActiveWorkbook '<<<<<<<<<<<<<CHANGE TO SUIT
Set WS = ActiveSheet '<<<<<<<<<<<<<CHANGE TO SUIT

For iCol = WS.UsedRange.Columns.Count To 1 Step -1
If Application.CountA(Columns(iCol).Cells) = 0 Then
Columns(iCol).Delete
End If
Next
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub


---
Regards,
Norman



SH said:
WE EXPORT STUFF FROM ACCOUNTS PROGRAM TO EXCEL AND THERE ARE A LOT OF
Click to expand...
COLUMNS THAT HAVE NO DATA. IS IT POSSIBLE TO DELETE ALL SUCH COLUMNS IN ONE
STROKE THROUGH PROGRAMMING. IF SO, KINDLY LET ME KNOW.
ALSO, THERE USED TO BE AN EDIT DELETE COMMAND IN EXCEL. NOW THERE IS AN
Click to expand...
EDIT DELETE ROW COMMAND. I CAN'T FIND THE NORMAL COMMAND ANYWHERE. PLEASE
GUIDE. THANK YOU.
 
S

SH

Hi Norman,
Extremely sorry for replying so late. My apologies once again for the
Uppercase usage. I am not really Forum Savvy. Very nice of you to give a
whole program. I shall try and revert back ASAP. Sincere regrets once again.

Regards

Norman.
 
Top