Fairly basic Excel 2007 VBA request

[gedinfo]

I have a spreadsheet that has a total of 2048 entries.
One column has a value(Column B), and another column will have text in it(Column G).

I wish to be able to search for "Maxima" and "Minima" in Column G, then pull out the value in Column B.

Here is what I have so far:

For Each Cell In Column(G)
If ActiveCell.Value = Maxima Then
Print "Maxima "; Cell; B; Value
If ActiveCell.Value = Minima Then
Print "Minima "; Cell; B; Value

Obviously, this does not work, but this is how I envision it to work.

What do I need to do to have it perform as described?

Thank you for your response.

I had done some VBA programming about 3 years ago, but never had a chance to save my macro code, which involved more complicated measures.

 

[VoG]

Try like this

Sub atest()
Dim Found As Range
Set Found = Columns("G").Find(what:="Maxima", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then MsgBox "Maxima" & vbTab & Found.Offset(, -5).Value
Set Found = Columns("G").Find(what:="Minima", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then MsgBox "Minima" & vbTab & Found.Offset(, -5).Value
End Sub

 

[HalfAce]

Not sure where you want your outputs to go, but if you wanted them to be in column G then perhaps something like this:

Dim LstRw As Long, Rw As Long
LstRw = Cells(Rows.Count, "G").End(xlUp).Row
For Rw = 1 To LstRw
  Select Case Cells(Rw, "G").Value
    Case "Maxima", "Minima"
      Cells(Rw, "G").Value = Cells(Rw, "G").Value & " " & Cells(Rw, "B").Value
  End Select
Next Rw

Hope it helps.