Change event VBA / automatic fill

[orion2323]

Hello again
Hope everyone is having a good day

Wondering if it would be possible to accomplish the following, any help will be greatly appreciated:

I am using the following VBA script which immediately and automatically PRINTS after I enter "f" on C2:C100

Sub jumpnext()
Range("B" & ActiveCell.Row + 1).Select
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim targCell As Range
Set targCell = Worksheets(1).Range("C2:C100")


If Not Application.Intersect(Target, targCell) Is Nothing Then
If Target.Value = "f" Then
Worksheets(1).PrintOut
End If
End If
End Sub



What I would like to add is the following:

Upon completion on B2 (user input / tab key is pressed), automatically fill cell C2 with "f" to trigger the print job, then automatically fill D2 with any value (let's say another "f") and ultimately, simulate and enter key to return to the cell below, C3

Process is always the same and there could be a small delay after the user input in cell B2

Is this possible ?

Thank you all for your time

 

[orion2323]

How can I combine these 2 change of events:

Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
For Each Cell In Target
If Cell.Column = Range("B:B").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "C").Value = "f"
Else
Cells(Cell.Row, "C").Value = ""
End If
End If
Next Cell
End Sub

and this:

Sub jumpnext()
Range("B" & ActiveCell.Row + 1).Select
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim targCell As Range
Set targCell = Worksheets(1).Range("C2:C100")


If Not Application.Intersect(Target, targCell) Is Nothing Then
If Target.Value = "f" Then
Worksheets(1).PrintOut
End If
End If
End Sub

 

[orion2323]

Nevermind, got those 2 working...
New question

Can I add another automatic cell input to this, so that if "C:C" has a value, then "D" = "f"


Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
For Each Cell In Target
If Cell.Column = Range("B:B").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "C").Value = "f"
Else
Cells(Cell.Row, "C").Value = ""
End If
End If
Next Cell
End Sub