Selection.FillDown Help

[drozek]

I will start this off, I don't program at all, I have been recording and modifying code macros to help automate some things at work. I have this code that's not working when I run it:

Columns("C:C").Select
ActiveSheet.Range("$C$1:$C$817").AutoFilter Field:=3, Criteria1:="202*"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 2).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "'202 DIA"
With Worksheets("Data").AutoFilter.Range
Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
End With
Selection.FillDown

I want it to fill down all the filtered cells that start with 202 with 202 DIA.

Any help?

 

[drozek]

You'd use Mid(...,2,3) instead of left(...,4)

So when I use this below, it returns "#VALUE!" in the entire Col F

Sub ChangeZackman()
'
' This macro replaces 347 in Col E with Zackman in Col F
'
With Range("F1", Range("E" & Rows.Count).End(xlUp).Offset(, 1))
.Value = Evaluate(Replace("if(mid(" & .Offset(, -1).Address & ",2)=""347"",""Zackman"",@)", "@", .Address))
End With
End Sub

 

[Fluff]

You've missed off the last part of the Mid, it should be

.Value = Evaluate(Replace("if(mid(" & .Offset(, -1).Address & ",2[COLOR=#ff0000],3[/COLOR])=""347"",""Zackman"",@)", "@", .Address))

 

[drozek]

You've missed off the last part of the Mid, it should be

.Value = Evaluate(Replace("if(mid(" & .Offset(, -1).Address & ",2[COLOR=#ff0000],3[/COLOR])=""347"",""Zackman"",@)", "@", .Address))

Anyone ever tell you, you are the best? This helped me automate a 30 minute report, I run every Monday. I have a few more questions, but will post when it comes time for it. Should I open a new thread or just post on here?

 

[Fluff]

You're welcome & thanks for the feedback
Best to start a new thread, for any further questions