Tengo un problema no me funciona en userform en conde se debe ingresar automáticamente el nombre, yo ingreso el código del prod
Private Sub INGRESO_Click()
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Fila As Integer
Dim final As Integer
Dim fecha As Date
Dim guia As Integer
NombreHoja = Me.txt_codigo.Value
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("a50").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 50 + 1
With ThisWorkbook.Sheets(NombreHoja)
.Cells(NuevaFila, 2).Value = txt_guia.Value
.Cells(NuevaFila, 3) = Me.txt_fecha
.Cells(NuevaFila, 2) = Val(Me.txt_guia)
.Cells(NuevaFila, 1) = Me.txt_cliente
.Cells(NuevaFila, 4) = Val(Me.txt_350)
.Cells(NuevaFila, 5) = Val(Me.txt_4)
.Cells(NuevaFila, 6) = Val(Me.TXT_34)
.Cells(NuevaFila, 7) = Val(Me.TXT_35)
.Cells(NuevaFila, 8) = Val(Me.txt_36)
.Cells(NuevaFila, 9) = Val(Me.txt_37)
.Cells(NuevaFila, 10) = Val(Me.txt_38)
.Cells(NuevaFila, 11) = Val(Me.txt_39)
.Cells(NuevaFila, 12) = Val(Me.txt_40)
.Cells(NuevaFila, 13) = Val(Me.txt_41)
.Cells(NuevaFila, 14) = Val(Me.txt_85)
.Cells(NuevaFila, 15) = Val(Me.txt_42)
.Cells(NuevaFila, 16) = Val(Me.txt_43)
.Cells(NuevaFila, 17) = Val(Me.txt_44)
.Cells(NuevaFila, 18) = Val(Me.txt_45)
.Cells(NuevaFila, 19) = Val(Me.txt_46)
.Cells(NuevaFila, 20) = Val(Me.txt_47)
.Cells(NuevaFila, 21) = Val(Me.txt_12)
.Cells(NuevaFila, 22) = Val(Me.txt_125)
.Cells(NuevaFila, 23) = Val(Me.txt_13)
.Cells(NuevaFila, 24) = Val(Me.txt_135)
.Cells(NuevaFila, 25) = Val(Me.txt_14)
.Cells(NuevaFila, 26) = Val(Me.txt_145)
.Cells(NuevaFila, 27) = Val(Me.txt_15)
.Cells(NuevaFila, 28) = Val(Me.txt_total)
For Fila = 7 To 10000
If Hoja1.Cells(Fila, 3) = "" Then
final = Fila
Exit For
End If
Next
For ingresodeguias = 3 To final
If Hoja1.Cells(ingresodeguias, 3) = Val(Me.txt_guia) Then
MsgBox "Guia ya existe"
Me.txt_fecha.SetFocus
Exit Sub
Exit For
End If
Next
If MsgBox("SON CORRECTOS?" + "DESEAS REGISTRAR?", vbOKCancel) = vbOK Then
Hoja1.Cells(final, 1) = Me.txt_fecha
Hoja1.Cells(final, 2) = Me.txt_codigo
Hoja1.Cells(final, 3) = Val(Me.txt_guia)
Hoja1.Cells(final, 4) = Me.txt_cliente
Hoja1.Cells(final, 5) = Me.txt_modelo
Hoja1.Cells(final, 8) = Val(Me.txt_350)
Hoja1.Cells(final, 9) = Val(Me.txt_4)
Hoja1.Cells(final, 10) = Val(Me.TXT_34)
Hoja1.Cells(final, 11) = Val(Me.TXT_35)
Hoja1.Cells(final, 12) = Val(Me.txt_36)
Hoja1.Cells(final, 13) = Val(Me.txt_37)
Hoja1.Cells(final, 14) = Val(Me.txt_38)
Hoja1.Cells(final, 15) = Val(Me.txt_39)
Hoja1.Cells(final, 16) = Val(Me.txt_40)
Hoja1.Cells(final, 17) = Val(Me.txt_41)
Hoja1.Cells(final, 18) = Val(Me.txt_85)
Hoja1.Cells(final, 19) = Val(Me.txt_42)
Hoja1.Cells(final, 20) = Val(Me.txt_43)
Hoja1.Cells(final, 21) = Val(Me.txt_44)
Hoja1.Cells(final, 22) = Val(Me.txt_45)
Hoja1.Cells(final, 23) = Val(Me.txt_46)
Hoja1.Cells(final, 24) = Val(Me.txt_47)
Hoja1.Cells(final, 25) = Val(Me.txt_12)
Hoja1.Cells(final, 26) = Val(Me.txt_125)
Hoja1.Cells(final, 27) = Val(Me.txt_13)
Hoja1.Cells(final, 28) = Val(Me.txt_135)
Hoja1.Cells(final, 29) = Val(Me.txt_14)
Hoja1.Cells(final, 30) = Val(Me.txt_145)
Hoja1.Cells(final, 31) = Val(Me.txt_15)
Hoja1.Cells(final, 34) = Me.txt_vendedor
Hoja1.Cells(final, 35) = Me.txt_distrito
Hoja1.Cells(final, 36) = Me.txt_conductor
Hoja1.Cells(final, 37) = Me.txt_fecha2
Else
Exit Sub
End If
Me.txt_fecha = ""
Me.txt_guia = ""
Me.txt_cliente = ""
Me.txt_modelo = ""
Me.txt_350 = ""
Me.txt_4 = ""
Me.TXT_34 = ""
Me.TXT_35 = ""
Me.txt_36 = ""
Me.txt_37 = ""
Me.txt_38 = ""
Me.txt_39 = ""
Me.txt_40 = ""
Me.txt_41 = ""
Me.txt_85 = ""
Me.txt_42 = ""
Me.txt_43 = ""
Me.txt_44 = ""
Me.txt_45 = ""
Me.txt_46 = ""
Me.txt_47 = ""
Me.txt_12 = ""
Me.txt_125 = ""
Me.txt_13 = ""
Me.txt_135 = ""
Me.txt_14 = ""
Me.txt_145 = ""
Me.txt_15 = ""
Me.txt_total = ""
Me.txt_vendedor = ""
Me.txt_distrito = ""
Me.txt_conductor = ""
Me.txt_fecha2 = ""
Me.txt_codigo = ""
Me.txt_fecha.SetFocus
Exit Sub
End With
End Sub
Private Sub txt_codigo_Change()
Dim Fila As Integer
Dim final As Integer
If Me.txt_codigo.Value = "" Then
Me.txt_modelo = ""
End If
For Fila = 2 To 1000
If Hoja4.Cells(Fila, 2) = "" Then
final = Fila - 1
Exit For
End If
Next
For Fila = 2 To final
If Me.txt_codigo = Hoja4.Cells(Fila, 1) Then
Me.txt_modelo = Hoja4.Cells(Fila, 2)
Exit For
End If
Next
End Sub
Private Sub txt_modelo_Enter()
Dim Fila As Integer
Dim final As Integer
If txt_codigo.Value = "" Then
Me.txt_modelo = ""
End If
For Fila = 1 To 1000
If Hoja4.Cells(Fila, 2) = "" Then
final = Fila - 1
Exit For
End If
Next
For Fila = 2 To final
If Me.txt_codigo = Hoja4.Cells(Fila, 1) Then
Me.txt_modelo = Hoja4.Cells(Fila, 2)
Exit For
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim intHojas As Integer
Dim i As Integer
intHojas = ThisWorkbook.Sheets.Count
For i = 2 To intHojas
Me.txt_codigo.AddItem ThisWorkbook.Sheets(i).Name
Next i
End Sub
