Adding text to different cell using Macros

[Ethel]

Hi, I have recorded a macros

Sub WarehouseRecieved()
‘
‘WarehouseRecieved Macro
‘Booked in at the warehouse
‘
‘ Keyboard Shortcut: Crtl+w
‘
Range(“Q21”).Select
ActiveCell.FormulaR1C1 = “Yes”
End Sub

BUT!! I want to select a different cell (column b) run the shortcut and yes to appear in column Q


I have a huge list of orders and I just want an easy way to add yes to a different col rather than scrolling across, so I’d need it for every row!

Hope someone can help

 

[DanteAmor]

How about:

Sub WarehouseRecieved()
  '
  'WarehouseRecieved Macro
  'Booked in at the warehouse
  '
  ' Keyboard Shortcut: Crtl+w
  '
  If ActiveCell.Column = Columns("B").Column Then
    Range("Q" & ActiveCell.Row).Value = "Yes"
  Else
    MsgBox "Select cell in column 'B'"
  End If
End Sub

Regardless of the column
Try:

Sub WarehouseRecieved()
  '
  'WarehouseRecieved Macro
  'Booked in at the warehouse
  '
  ' Keyboard Shortcut: Crtl+w
  '
    Range("Q" & ActiveCell.Row).Value = "Yes"
End Sub

 

[Ethel]

Thanks This worked perfectly!