Crear macro para insertar datos en planillas
"Para Dante Amor"
Quisiera poder incorporar más casillas a una UserForm, para poder ingresar datos manualmente que sean luego guardados en una planilla de excel.
1 Respuesta
Respuesta de Dante Amor
1
Te he enviado un mail, estaré atenta a tus comentarios
Te anexo el código y el userform
Option Explicit
Dim h1, h2
'
Private Sub guar_Click()
If nomb = "" Or nomb.ListIndex = -1 Then
MsgBox "Debes seleccionar un proveedor"
nomb.SetFocus
Exit Sub
End If
Dim u
u = h2.Range("F" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "F") = nomb
h2.Cells(u, "G") = rutt
MsgBox "Datos guardados"
Call limp_Click
End Sub
Private Sub nomb_Change()
Dim fila
rutt = ""
If nomb.ListIndex = -1 Then Exit Sub
fila = nomb.ListIndex + 3
rutt = h1.Cells(fila, "D")
End Sub
Private Sub UserForm_Activate()
Dim h, i
Set h1 = Sheets("LISTA PROVEEDORES")
Set h2 = Sheets("CONTROL O. COMPRA 2017")
If h1.AutoFilterMode Then h.AutoFilterMode = False
For i = 3 To h1.Range("C" & Rows.Count).End(xlUp).Row
nomb.AddItem h1.Cells(i, "C")
Next
End Sub
Private Sub limp_Click()
nomb = ""
rutt = ""
End Sub
Private Sub sal_Click()
End
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
