Duda sobre formulario y formato a exportar
Tengo el siguiente formulario
En este formulario ingresare datos luego los guardare en una base de datos que esta acá...
¿Cómo le doi el orden? ¿Para qué vaya guardando 1 por 1 ordenadamente?
1 respuesta
A qué te refieres con:
¿Cómo le doi el orden? ¿Para qué vaya guardando 1 por 1 ordenadamente?
Con el botón que tienes guardar, busca la última celda con datos de la columna A y le incrementas 1, entonces en esa fila guardas los datos.
Ahora, si quieres ordenar los datos por algún campo, después de poner los datos en la hoja, deberás aplicar un ordenamiento.
Si ya tienes avanzado el código, dime qué te falta.
Necesito agregar los datos de columna en columna y que la primera columna sea automática, de 1 en 1 , // 1,2,3,4,5, y así sucesivamente y que me agregue la información que agregue a los combobox, te adjunto el documento la hoja 2 es la"base de datos" donde se almacenan los registros
En el evento initialize
Private Sub UserForm_Initialize()
Dim hWnd As Long
Dim lngWstyle As Long
Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
If Application.Version < 9 Then
lngMyHandle = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
cbotipomedicion. AddItem "A"
Cbotipomedicion. AddItem "B"
Cbotecnica1. AddItem "100"
Cbotecnica1. AddItem "200"
Cbotecnica2. AddItem "300"
Cbotecnica2. AddItem "400"
Cbotecnica3. AddItem "500"
Cbotecnica3. AddItem "600"
Cbotaq. AddItem "1"
Cbotaq. AddItem "2"
Cbodescripequipo. AddItem "uno"
Cbodescripequipo. AddItem "dos"
Cbocriticidad. AddItem "tres"
Cbocriticidad. AddItem "cuatro"
Cboregistroemision. AddItem "edu"
Cboregistroemision. AddItem "edu1"
Cboprogramador. AddItem "eduardo"
Cboprogramador. AddItem "felipe"
Cbointervencion. AddItem "u"
Cbointervencion. AddItem "o"
Cboplanificar. AddItem "X"
Cboplanificar. AddItem "Y"
Cboestado. AddItem "Funcionando"
Cboestado. AddItem "PARADO"
Set h = Sheets("BaseDeDatos")
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u < 3 Then
txtninforme.Value = 1
Else
n = h.Range("A" & u).Value
txtninforme = n + 1
End If
End Subsal u dos
