If column BI contains "N" then replace values in the row from column G:BE using the cell in column BF as find criteria and BH as replacement criteria

[Knockoutpie]

@DanteAmor

Hi all,

wondering if you could help me modify something Dante whipped up for me a long time ago.

instead of replacing all values with criteria in BF and replacement in BH, is it possible to only replace values for G:BE if BI contains "N"

Loop - Select row, find value, replace value - previous post

this is the code i'm currently using which replaces all values in all rows.

    Dim ws1 As Worksheet
   Set ws1 = ActiveWorkbook.Sheets("Sheet1")
   Worksheets("Sheet1").Activate

  Dim i As Long
 
  For i = 4 To Range("D" & Rows.Count).End(3).Row
    If Range("BF" & i).Value <> "" And Range("BH" & i).Value <> "" Then
      Range("G" & i & ":BF" & i).Replace Range("BF" & i).Value, Range("BH" & i).Value, xlPart
    End If
  Next

 

[DanteAmor]

The following looks for the BF data in the G:BE range and replaces it with the BH data:

Sub macro()
  Dim ws1 As Worksheet
  Set ws1 = ActiveWorkbook.Sheets("Sheet1")
  Worksheets("Sheet1").Activate
 
  Dim i As Long
 
  For i = 4 To Range("D" & Rows.Count).End(3).Row
    If Range("BI" & i).Value = "N" Then
      Range("G" & i & ":BE" & i).Replace Range("BF" & i).Value, Range("BH" & i).Value, xlPart
    End If
  Next
End Sub

 

[Knockoutpie]

The following looks for the BF data in the G:BE range and replaces it with the BH data:

Sub macro()
  Dim ws1 As Worksheet
  Set ws1 = ActiveWorkbook.Sheets("Sheet1")
  Worksheets("Sheet1").Activate
 
  Dim i As Long
 
  For i = 4 To Range("D" & Rows.Count).End(3).Row
    If Range("BI" & i).Value = "N" Then
      Range("G" & i & ":BE" & i).Replace Range("BF" & i).Value, Range("BH" & i).Value, xlPart
    End If
  Next
End Sub

Dante that's perfect, cuts my processing time down by 95%! Thanks a bunch again!