Trim entire active row macro and delete 3 rows

[miva0601]

I am trying to trim the entire active row. Currently the macro is only trimming row 4 if my cell is in row 4.


Sub Trim()
'
' Trim Macro
'
' Keyboard Shortcut: Ctrl+t
'
[4:4] = [if(4:4<>"",trim(4:4),"")]


End Sub

Also, can anyone help create a macro that will trim all data in row 3 -- and then delete rows 1,2, and 4?

1 AP Transaction Charges - *POSTED BY PART # 2 3 Order/ship reference Item Their reference Quantity UM Currency 4 ______________________ ___________________ _________________________________ __________________ ___ _________ 5 P220377 2880222-01 50663 90 EA USD 6 P220377 2880222-01 51536 60 EA USD 7 P220377 2880222-01 51439 150 EA USD 8 P221782 2880222-01 51770 50 EA USD <colgroup><col><col span="6"></colgroup><tbody> </tbody>

<colgroup><col><col span="8"></colgroup><tbody>
</tbody>

 

[JLGWhiz]

Sub t()
Dim c As Range
For Each c In Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))
    If c.Value <> "" Then
        c = Trim(c.Value)
    End If
Next
End Sub

 

[miva0601]

I'm getting an error message: Wrong number of arguments or invalid property assignment. I added '.Value' to the last part -- this was causing an error too.

Sub Trim()
Dim c As Range
For Each c In Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))
    If c.Value <> "" Then
        c.Value = Trim(c.Value)
    End If
Next
End Sub

 

[JLGWhiz]

I guess I will have to research the reason that is not working. It should. Anyway, here is a modified version which will work.

Sub Trim()
Dim c As Range, a As String
For Each c In Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))
    If c.Value <> "" Then
        c = LTrim(c)
        c = RTrim(c)
    End If
Next
End Sub

 

[JLGWhiz]

Looks like it has to be qualified with Application to get it to work in this case, although I have used it many times before without that and got the correct results. Just another of those odd microsoft anomalies.

Sub t()
Dim c As Range
For Each c In Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))
    If c <> "" Then
        c = Application.Trim(c)
    End If
Next
End Sub

 

[miva0601]

It worked! Thank you so much!

 

[JLGWhiz]

It worked! Thank you so much!

You're welcome.
Regards, JLG