Ordenar datos

02/09/2008 - 15:24 por JForero | Informe spam
Hola grupo buen día

tengo una hoja de cálculo con una plantilla para la captura de datos y tengo
un boton que con el siguiente código (tomado de la valiosa ayuda del grupo)
me inserta los datos de la plantilla en otra hoja registro a registro para
mantener la base de datos, cabe anotar que con cada click en el botón, me
inserta una fila

ahora lo que necesito es que con el mismo botón, después de que inserte los
datos me los organice por ciudad y dentro de ciudad por punto de venta, la
ciudad se encuentra en la columna B y el punto de vena en la columna D

Private Sub btnGrabarDatosGenerales_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("Dt_Producción")
'Encuentra la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Copia los datos a la hoja
ws.Cells(iFila, 1).Value = Date
ws.Cells(iFila, 2).Value = Me.cmbCentroCosto.Value
ws.Cells(iFila, 3).Value = Worksheets("Producción").Range("b6")

End Sub

Mil gracias por la ayuda
 

Leer las respuestas

#1 Héctor Miguel
02/09/2008 - 22:44 | Informe spam
hola, jorge !

este codigo evita variables y establecer referencias a variables de objeto...

Private Sub btnGrabarDatosGenerales_Click()
With Worksheets("Dt_Producción")
.Range("a65536").End(xlUp).Offset(1).Resize(, 3).Value = _
Array(Date, cmbCentroCosto.Value, Worksheets("Producción").Range("b6").Value)
.Rage("a1").CurrentRegion.Sort Key1:=.Range("b1"), Order1:=xlAscending, _
Key2:=.Range("d1"), Order2:=xlAscending, Header:=xlYes
End With
End Sub

(probablemente) te convendria "mover" la parte del "Sort" (p.e.) al evento de terminacion del userform -?-

saludos,
hector.

__ OP __
tengo una hoja... para la captura de datos y... un boton que... inserta los datos... en otra hoja registro a registro ...
ahora lo que necesito es que con el mismo boton, despues de que inserte los datos me los organice por ciudad
y dentro de ciudad por punto de venta, la ciudad se encuentra en la columna B y el punto de vena en la columna D
Private Sub btnGrabarDatosGenerales_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("Dt_Producción")
'Encuentra la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Copia los datos a la hoja
ws.Cells(iFila, 1).Value = Date
ws.Cells(iFila, 2).Value = Me.cmbCentroCosto.Value
ws.Cells(iFila, 3).Value = Worksheets("Producción").Range("b6")
End Sub

Preguntas similares