Vba process entire row delete

[imrankhan]

check wheather column C has data if yes then do nothing if no then delete that entire row by vba
file name sonu.csv file is located in C:\Users\soniya\Desktop
i will put a macro in different file and both files are located in same place
save it after the process completed and close it

[imrankhan]

https://www.ozgrid.com/forum/forum/h...ire-row-delete

[Kenneth Hobs]

You will have to be more clear. If no data in column F, delete all rows? That means clear the whole worksheet.

[imrankhan]

If cells in column F has no data then delete that entire row only
Example
If F15 is blank then delete that entire row only and look for next if found then delete and so on.....
Thnx Kenneth Hobs Sir for showing interest in this post
If u have more doubts then plz ask

[Aussiebear]

@imrankhan. Your request to have this thread deleted is going to be declined. Just because it has been noted that you have posted the issue elsewhere and failed to notify either forum of “cross posting” does not justify removing the thread.

[Kenneth Hobs]

Sub DelFBlanks()    
    On Error Resume Next
    Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[imrankhan]

Sub Mysub() 
Dim wbk1 As Workbook
Dim wsh1 As Worksheet
Application.ScreenUpdating = False
Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\123..csv")
Set wsh1 = wbk1.Worksheets(1)
With wsh1
On Error Resume Next
Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
Application.DisplayAlerts = False 
wkb1.Close SaveChanges:=True
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub

Ur code is working Sir but as i said i wil put the macro in different file so i made this code and this code contains error so plz have a look Sir and help

[Kenneth Hobs]

How does that run?

wsh1.Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[imrankhan]

Sub Mysub()    Dim wbk1 As Workbook
   Dim wsh1 As Worksheet
 
   Application.ScreenUpdating = False
 
   Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\123..csv")
   Set wsh1 = wbk1.Worksheets(1)
 
   With wsh1
   On Error Resume Next
   wsh1.Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
End If








   Application.DisplayAlerts = False
   wbk1.Close SaveChanges:=True
   Application.DisplayAlerts = True
 
   Application.ScreenUpdating = True
 
End Sub

after changing the same then also code is not working Sir

[Kenneth Hobs]

It will not run because it will not compile. Even a Run will usually tell you what and where the problem is as does Debug menu's Compile. Try to use Compile before a Run.

Why use With when you added the sheet object? It serves no purpose. Either delete it or add End With. With is best used when you have multiple object calls.

[imrankhan]

Thnx Alot Kenneth Hobs Sir for giving ur Precious Time and Great Support to this Post
Have a Great Day Sir

[imrankhan]

Sorry Aussiebear Thnx for not deleting this post
Thnx for the help Sir