Using VBA macro to store data at a specified location

[m1lky]

Hello,

I'm upgrading an excel script. I am hoping to use Form Control buttons with VBA macro's to make my life a bit easier.
What I'm hoping to do is as follows. I expect to make the same calculation daily. I want to store the results of my calculation, (by pressing the button). The results should be stored in a row designated to the specified date.

In the Sample below:
- I have my calculation result (B1)
- I have manually specified the associated date (B2)

Now when I press my "Store calculation" button I wish to:

Save the result from B1, to the cell associated to (B2) (for this specific example that would be B14)

Kind regards to any and all help

 

[DanteAmor]

Try this

Private Sub CommandButton1_Click()
  If Range("B1").Value = "" Then
    MsgBox "Missing value"
    Exit Sub
  End If
  If Range("B2").Value = "" Then
    MsgBox "Missing Date"
    Exit Sub
  End If
  '
  Dim f As Range
  Set f = Range("A11:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(Range("B2").Value, , xlFormulas, xlWhole)
  If Not f Is Nothing Then
    f.Offset(, 1).Value = Range("B1")
    MsgBox "Stored data"
  Else
    MsgBox "There is no date in column A"
  End If
End Sub

 

[m1lky]

Try this

Thank you so much! It works awesome

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.