VBA Loop

[fari1]

hi,i need some immediate help on my following code, my below code works for just one column, i want to make it work from column A:I, in short want to create a loop out of it.

Sub Checkblank()
    Dim mycount As Long
    mycount = Application.WorksheetFunction.CountBlank(Range("B:B"))
    If mycount < 1 Then
    Exit Sub
    Else
    Range("B:B").Select
    Selection.Delete Shift:=xlToLeft
    End If

 

[VoG]

Maybe this?

Sub CheckBlank()
Dim i As Long
For i = 9 To 1 Step -1
    If WorksheetFunction.CountBlank(Columns(i)) > 0 Then Columns(i).Delete
Next i
End Sub

 

[fari1]

Thanks for quicki response, when i run the code, it deleted all the columns, the whole sheet just turned blank

 

[VoG]

What is the code meant to do exactly?

 

[fari1]

i just saw, the code which i posted has problem,
i want this code to check if the whole column e.g A:A is blank then delete, its not just about one cell, the whole column is blank then delete, if not blank then find the next column, if none of the columns in range(A:J) are blank then exit

 

[VoG]

Try this with a copy of your sheet

Sub CheckBlank()
Dim i As Long
For i = 9 To 1 Step -1
    If WorksheetFunction.CountA(Columns(i)) = 0 Then Columns(i).Delete
Next i
End Sub

 

[fari1]

you are the best, its working like a charm........
if u have time, can i ask some more questions in this thread, its about loop but in a different scenerio, as i'm working on a project and novice to vba, so need some help

 

[VoG]

If it is a related question please continue in this thread.

If it is a different question (even if it involves loops) please start a new thread.

 

[fari1]

Okay i'm posting a new thread, will be waiting for your response