Re: cambiar filas a distinta hoja segun condicion

12/04/2006 - 23:32 por CHURRICA | Informe spam
perdonar soy novatillo
ejemplo: al dia entran 25 coche para reparar ,limpiar o testear
al final de dia (con un boton) borre o cambie de hoja la fila de los acabados /baja

CHURRICA

Ver este tema: http://www.softwaremix.net/viewtopic-505271.htm

Enviado desde http://www.softwaremix.net
 

Leer las respuestas

#1 Héctor Miguel
13/04/2006 - 19:27 | Informe spam
hola, 'anonimo' !

ejemplo: al dia entran 25 coche para reparar ,limpiar o testear
al final de dia (con un boton) borre o cambie de hoja la fila de los acabados /baja/



los 'detalles' que te solicitaba... siguen 'ausentes' :)) asi que los siguientes son 'mis' supuestos...

- de donde se puede obtener la condicion de si es entrada o salida ?
-> suponiendo que en la hoja 'activa' existe un rango con los datos con encabezados en la fila 1...
y que en la columna 'G' se pone cualquier dato cuando el vehiculo YA se ha 'terminado'...
[se lo contrario 'esa' columna se deja 'vacia'] <= OJO

- cual es el rango [o las columnas] que se deberan pasar de hoja ?
-> desde la columna 'A' hasta la columna '???' PERO... NO existen columnas 'vacias' en los encabezados <= OJO

- de que hoja... a cual hoja ?
-> de la hoja 'activa' a la 'hoja2'

- en que momento [o como] necesitas que se haga 'el pase' de una a otra hoja ?
-> asigna 'al boton' [que mencionas] una macro +/- como la siguiente...

en un modulo de codigo 'normal' ==Sub Trabajos_terminados()
Application.ScreenUpdating = False
With ActiveSheet
If .AutoFilterMode Then .Cells.AutoFilter
.[a1].AutoFilter Field:=7, Criteria1:="<>"
With .AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Worksheets("hoja2").[a65536].End(xlUp).Offset(1)
.EntireRow.Delete
End With
End With
.[a1].AutoFilter
.UsedRange
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares