Private Sub CommandButton29_Click()
With UserForm1
     TextBox2 = TextBox2 - 1
     Unload Me
   End With
End Sub

 

no logro que reste  una vez que lo doy al boton!  que puedo haccer!

'Desde Userform1
Private Sub CommandButton29_Click()
With UserForm2
     .TextBox2 = .TextBox2 - 1
     Unload Me
   End With
End Sub

'Desde Userform2
Private Sub CommandButton29_Click()
With UserForm1
     .TextBox2 = .TextBox2 - 1
     Unload Me
   End With
End Sub

 

Muchas gracias amor

 

 

ultima duda como haría acá

para que pase al otro userfrom1

Dim Pregunta As String
Pregunta = MsgBox("GENERO ENERGIA?", vbYesNo + vbQuestion, "CODIGOjr")

    If Pregunta = vbNo Then
    
     TextBox2 = TextBox2 - 1
        'positivo al ingreso
        
    Else
    TextBox2 = TextBox2 - 1
    TextBox1 = TextBox1 + 1
       

    End If

Solo tienes que añadir el nombre del userform seguido de un punto.

Por ejemplo : Userform1.TextBox2  ó Userform2.TextBox2