Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Filtering and replacing values through a macro
Coding Help!
I have spreadsheet where column A is company, column B is user, and column C is area. If column A, Row1 equals 18 and Column C, Row 1 equals "FLA" then Column B row 1 is replace with "BILL". I want it to continue until it reaches the last row. Thanks for your help!!!!! |
#2
|
|||
|
|||
In a standard module:
Sub InsertBill() Dim cell As Range Dim ActiveWS As Worksheet Dim iLastRow As Long Set ActiveWS = ActiveWorkbook.ActiveSheet iLastRow = Cells(Rows.Count, 1).End(xlUp).Row For Each cell In ActiveWS.Range("A1:A" & iLastRow) With cell If .Value = 18 And _ .Offset(0, 2).Value = "FLA" Then .Offset(0, 1).Value = "Bill" End If End With Next End Sub --- HTH Jason Atlanta, GA -----Original Message----- Coding Help! I have spreadsheet where column A is company, column B is user, and column C is area. If column A, Row1 equals 18 and Column C, Row 1 equals "FLA" then Column B row 1 is replace with "BILL". I want it to continue until it reaches the last row. Thanks for your help!!!!! . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|