Need vba for multiple filters

[Revathi Kannan]

Hi all,
Need help with the following requirements.
1. Column A contains data and blank wherein i need to filter only data and i need to change column B as "available" only for those filtered row..


Pls help...

 

[Fluff]

How about

Sub Available()
   With ActiveSheet
      .Range("A1:B1").AutoFilter 1, "<>"
      .AutoFilter.Range.Columns(2).Value = "Available"
      .AutoFilterMode = False
   End With
End Sub

 

[Revathi]

Thanks a lot.. it works perfect....

 

[Fluff]

You're welcome