select cells that correspond to a value in other cells

  • Thread starter Thread starter Paulg
  • Start date Start date
P

Paulg

I work with a number of spreadsheets with one column (E) with the value
B or C nothing else. The sheet is sorted alphabetically by that
column. I want to select all the cells in column G that correspond
only to those cells that have the value of B in column E, and cut and
paste the values into column F which is blank. Each spreadsheet has
different #'s of rows with the value B
 
You don't need VBA for this. You can enter =IF(E1="B",G1,"") in F1 and
copy down through all rows of data, then copy & paste in place as values. If
you wanted a macro version, here is one:

Sub AAAAAA()
Dim c As Range, LastRow As Long
LastRow& = Range("E" & Rows.Count).End(xlUp).Row
Range("F1:F" & LastRow&).Select
For Each c In Selection
c.Value = CheckColE(c)
Next c
End Sub

Function CheckColE(Rng As Range) As Variant
If Rng.Offset(0, -1).Value = "B" Then
CheckColE = Rng.Offset(0, 1).Value
Else
CheckColE = vbNullString
End If
End Function

Hope this helps,

Hutch
 
Back
Top