delete by vba

[Legacy 450448]

[FONT=&quot]vba code will be placed in a seperate file
[/FONT]all files are located in same place
vba code will be placed in macro.xlsm
my file name is sample1.xlsx which is closed so we have to open the the file by vba, my sample1.xlsx first sheet name can be anything
[FONT=&quot]in sample1.xlsx If cells in column B are positive then delete all the data including column B data in that row except column A
[/FONT]after the process completed
[FONT=&quot]save and close the sample1.xlsx file
so plz have a look

[/FONT]

 

[JLGWhiz]

Sub t()
Dim fPath As String, wb As Workbook, r As Range
fPath = ThisWorkbook.Path
Set wb = Workbooks.Open(fPath & "\sample1.xlsx")
    With wb.Sheets(1)
        For Each r In .Range("B2", .Cells(Rows.Count, 2).End(xlUp))
            If r.Value > 0 Then
                .Range(r, .Cells(r.Row, Columns.Count)).ClearContents
            End If
        Next
    End With
    wb.Close True
End Sub

 

[Legacy 450448]

Thnx JLGWhiz Sir for giving ur precious time and Great Support to this post
Have a Great Day

 

[JLGWhiz]

Thnx JLGWhiz Sir for giving ur precious time and Great Support to this post
Have a Great Day

You're welcome,
regards, JLG