Incrementing values

[RyujinLegacy]

Good Morning Friends,

I need help in my project, the aim at the moment is to make an introduction of values in the worksheet "Budget".

UserForms where I want to do this is in the "Cliente,Especial,Fornecedor".

The Aim is to I click on the ComboBox and Select a Month , write down the Budget of the month, and the Value appear in the worksheet Budget.

Example -->

If I enter in the UserForm Cliente and Selects the Month of August and enter a value , This value will appear on the Cell C9

Best Regards ... Tiago Alves

 

[jindon]

Insert following code to each userform

Private Sub CommandButton2_Click()
    If Me.ComboBox1.ListIndex > -1 Then
        Sheets("budget").Cells(Me.ComboBox1.ListIndex + 2, Application.Match(Split(Me.Caption)(1) & _
            "*", Sheets("budget").Rows(1), 0)).Value = Me.TextBox1
    End If
End Sub

 

[RyujinLegacy]

Insert following code to each userform

Private Sub CommandButton2_Click()
    If Me.ComboBox1.ListIndex > -1 Then
        Sheets("budget").Cells(Me.ComboBox1.ListIndex + 2, Application.Match(Split(Me.Caption)(1) & _
            "*", Sheets("budget").Rows(1), 0)).Value = Me.TextBox1
    End If
End Sub

Realy TY Jindon