How to fill Filtered Cells with data??

[pppaulie_s]

Hi everyone,

I am trying to use to populate the "AD" column fields (filtered by rows that contain data) with the word "SENT".
I can't seem to manage to fill the correct cells due to filtering.

• "SENT" needs to be populated in the AD column in the cell where there is filtered data
• also needs to be able to populate the cell if there is only 1 row of filtered data

Hopefully I have explained myself correctly.

Any assistance would be greatly appreciated.
Thank you in advance

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub pppaulie()
   Dim UsdRws As Long
   With ActiveSheet
      UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
      .AutoFilter.Range.Offset(1).Resize(UsdRws - 4).Columns("ad").Value = "Sent"
   End With
End Sub

 

[pppaulie_s]

Hi & welcome to MrExcel.
How about

Sub pppaulie()
   Dim UsdRws As Long
   With ActiveSheet
      UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
      .AutoFilter.Range.Offset(1).Resize(UsdRws - 4).Columns("ad").Value = "Sent"
   End With
End Sub

G'day @Fluff

Thank you for your prompt support - this worked a treat! Plus I've learnt something too!
Thanks again for your support

Cheers

 

[Fluff]

You're welcome & thanks for the feedback.