VBA to create simple stock control

[maiwarits]

Hello guys!

I have tried to create simple stock control in my laboratory.
However, I'm very new for VBA, So, I can create only easy VBA [from my little knowledge.].

So, I will try to explain my expectation in the below detail. Kindly help!

This is my simple project code.

Sub addStock()

Dim balanceStock As Double
balanceStock = InputBox("Amount?")
ActiveCell.Value = ActiveCell.Value + balanceStock

End Sub

Active cell = E5, Date = 6June2024
If I input 5 in text box, 5 should go in E5 by ActiveCell.Value = ActiveCell.Value + 5.
At Jun (Column R) 5 value should go in the cell R7 of Jun by ActiveCell.Value = ActiveCell.Value + 5.also.

Active cell = E5, Date = 6June2024
If I input -5 in text box, -5 should go in E5 by ActiveCell.Value = ActiveCell.Value + (-5).
At Jun (Column R) -5 value should go in the cell S7 of Jun by ActiveCell.Value = ActiveCell.Value + (-5) also .



I'm not sure , I have explained to making you all clear or not.
But If you have any question or require more information, please let me know.

I appreciate you all in advance.
Thanks!

 

[Snakehips]

@maiwarits Does this help?

Sub addStock()

Dim balanceStock As Double
Dim Col As Integer
'Check imput Applies columns E & F only ??
If ActiveCell.Column < 5 Or ActiveCell.Column > 6 Then Exit Sub

Col = Month(Now) + 12

balanceStock = InputBox("Amount?")

With ActiveCell
    .Value = .Value + balanceStock
    If balanceStock < 0 Then Col = Col + 1
    Cells(.Row, Col) = Cells(.Row, Col) + balanceStock
End With

End Sub

 

[maiwarits]

@maiwarits Does this help?

Sub addStock()

Dim balanceStock As Double
Dim Col As Integer
'Check imput Applies columns E & F only ??
If ActiveCell.Column < 5 Or ActiveCell.Column > 6 Then Exit Sub

Col = Month(Now) + 12

balanceStock = InputBox("Amount?")

With ActiveCell
    .Value = .Value + balanceStock
    If balanceStock < 0 Then Col = Col + 1
    Cells(.Row, Col) = Cells(.Row, Col) + balanceStock
End With

End Sub

Dear Sir!

This code work perfectly!
I appreciate your help a lot!

Thanks!