extraer datos

23/07/2004 - 20:10 por jm | Informe spam

buen dia

tengo un archivo llamado control, que tiene columnas
llamadas tecnico vin status fecha de entrada y fecha de
salida como puedo vincular por medio del tecnico me
traspase toda la fila y los registros del mismo tecnico a
otro archivo llamado tecnico1 logicamente tengo 3 tecnicos
y que genere 3 archivos con la infomacion de cada tecnico
ejemplo
archivo control
tecnico vin status fecha de entrada fecha salida
tecnico1 45658963 proceso 12/07/2004 15/07/2004
tecnico2 86459823 proceso 15/07/2004 15/07/2004
tecnico1 456658933 proceso 12/07/2004 13/07/2004

Archivo "Tecnico1"
tecnico1 45658963 proceso 12/07/2004 15/07/2004
tecnico1 456658933 proceso 12/07/2004 13/07/2004

Archivo "Tecnico2"
tecnico2 86459823 proceso 15/07/2004 15/07/2004

espero que sea entendible

gracias por su apoyo

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

25/07/2004 - 09:22 | Informe spam

hola, jm !

... un archivo ... control ... columnas ... tecnico vin status fecha de entrada y fecha de salida
... me traspase ... los registros ... a ... archivos con la infomacion de cada tecnico [...]

la siguiente macro pasa la informacion en la siguiente 'fila libre' [en la primera hoja] de cada archivo
se supone que el nombre -del tecnico- en las celdas coincide con el nombre de 'su' archivo =>abierto<saludos,
hector.
en un modulo de codigo 'normal' ==Sub Pasar_Tecnicos()
Application.ScreenUpdating = False
Dim Celda As Range, Col As Integer
For Each Celda In Range(Range("a2"), Range("a65536").End(xlUp))
With Workbooks(Celda & ".xls").Worksheets(1).Range("a65536").End(xlUp).Offset(1)
For Col = 0 To 4
.Offset(, Col) = Celda.Offset(, Col)
Next
End With
Next
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida