Insertar distintos datos con textbox que esta en formulario
quisiera que me ayuden alo sig.
Tengo un encabezado de datos de la col. A ala col. G
Nombre, ciudad, apellido, calle, cruzamiento, teléfono, fecha de registro
El cual por medio de Textbox que están dentro de un USERFORM1
1.- Para cada encabezado tendrá su textbox a llenar, este tenga como limite 5.000 registro a ingresar como máximo.
2.- Que me lo acomede por fecha de mayor a menor
Realmente quiera saber como insertar lo datos de forma lineal, si me pueden proporcionar el código y una explicación sencilla para así comprender mejor se los agradecería.
1 Respuesta
Tienes que poner en un commanbutton las instrucciones para pasar los datos a la hoja:
Por ejemplo:
Private Sub CommandButton1_Click()
Set h = Sheets("altas")
'primera fila vacía de la columna A
u = h.Range("A" & Rows.Count).End(xlUp).ro
h.Cells(u, "A") = TextBox1
h.Cells(u, "B") = TextBox2
h.Cells(u, "C") = TextBox3
End SubSal u dos
Y como parar hasta la dato 5000 Y lo ordene por fecha más reciente
H o l a:
Tienes que adecuar la macro, no sé en cuál fila están tus encabezados, en cuál fila empiezan los datos, cuáles columnas son, cuál es la columna de la fecha, lo que te pongo son ejemplos, si no pones la información completa, asumo que vas a completar la macro:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("altas")
'primera fila vacía de la columna A
u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
If u = 5001 Then
MsgBox "Se alcanzó el límite de 5000"
Exit Sub
End If
'
h.Cells(u, "A") = TextBox1
h.Cells(u, "B") = TextBox2
h.Cells(u, "C") = TextBox3
'
'cambia la X por la columna que tiene la fecha
With h.Sort
.Sort.SortFields.Clear
.SortFields.Add Key:=h.Range("X2:X" & u), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'Cambia la A y la Z por el rango de columnas que vas a ordenar
.SetRange h.Range("A1:Z" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Subsal u dos
OK si excelente
La fecha (encabezado) estará en la col. G5 osea que comenzara a insertar datos de fecha en la celda G6.
Todos los encabezados estarán a partir de la fila 5 (quiere decir que se insertar datos a partir de la fila 6)
¿Pero ya actualizaste la macro o quieres que yo lo haga?
Si quieres que yo lo haga, tendrás que crear un par de preguntas, ya que estás pidiendo varias peticiones en una sola pregunta.
- Pasar datos de textbox a celdas
- Ordenar
- Verificar la fila 5000
Esta respuesta es por pasar los datos de textbox a celdas.
En las nuevas preguntas me pones la información completa, de ser posible con imágenes.
Sal u dos y recuerda valorar.
