gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,347
- Office Version
- 365
- Platform
- Windows
Both of these codes go down 8 rows past the last row.
My headers are in Row 4 and the data starts in 5 down
I tried making some changes, but they don't seem to get me to what I need. In the data that is currently on the sheet it ends in row 1340 but both these codes run down to row 1348
Any help is appreciated
My headers are in Row 4 and the data starts in 5 down
Code:
Sub Find_FloorStock()
'Author: G Heyman 190221
'Update "Type" Find Floor Stock and change from B to F"
With Range("G5", Range("G" & Rows.Count).End(xlUp))
.Value = Evaluate(Replace("if((@=""B"")*((" & .Offset(, 7).Address & "=""Phantom"")+(" & .Offset(, 8).Address & "=""Y"")),""F"",@)", "@", .Address))
End With
End Sub
Code:
Sub Fill_Seq()
'Author: G Heyman 190219
'Lower Level items that go into Buys"
Dim Lst As Long
Lst = Range("C" & Rows.Count).End(xlUp).Row
With Range("B5")
.Value = "1"
.AutoFill Destination:=Range("B5").Resize(Lst), Type:=xlFillSeries
End With
End Sub
I tried making some changes, but they don't seem to get me to what I need. In the data that is currently on the sheet it ends in row 1340 but both these codes run down to row 1348
Any help is appreciated