Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

extraer datos

23/07/2004 - 20:10 por jm | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :