Forum Discussion

Ed Weyler's avatar
Ed Weyler
Copper Contributor
May 30, 2021
Solved

Fill cells in a column with a repeating term then stop filling when other data ends

WIN 10, Excel 2016.  I volunteer IT at a homeless center.  We use a sign in sheet drawn from Salesforce, downloaded into Excel then massaged by a macro to produce the printed list.  They want one col...
excel
Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    May 30, 2021

    Ed Weyler 

    Like this:

     

     

    Sub Macro1()
    Dim m As Long
    m = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("J1:J" & m).Value = "out shelt"
End Sub

    (Also posted on Microsoft Community)

     

HansVogelaar's avatar
HansVogelaar
MVP
May 30, 2021

Ed Weyler 

Like this:

 

 

Sub Macro1()
    Dim m As Long
    m = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("J1:J" & m).Value = "out shelt"
End Sub

(Also posted on Microsoft Community)

 

  • Ed Weyler's avatar
    Ed Weyler
    Copper Contributor
    Jun 06, 2021

    HansVogelaar   Thank you so much!  Works like a charm.

    This will make the volunteers job easier.