Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

COPIAR UNA FILA A OTRA HOJA EN CELDAS SEPARADAS

15/11/2006 - 05:59 por seriodevilson | Informe spam
Ayuda Hacer una pregunta
Que tal, saludos a todos, soy nuevo en el Grupo y les agradecería
mucho que me pudieran brindar su ayuda; el asunto es este:
Tengo un Libro con 2 hojas ("Formulario" y "Relacion") de las
cuales "Formulario" es, como su nombre lo dice una plantilla diseñada
como un formulario en la cual ingreso, entre otros datos; fecha de
ingreso del paciente, hora de ingreso, nombre, diagnostico, domicilio,
telefono, etc., y las ingreso en celdas separadas ("A7", "C15", "C9",
"A5", "D3", "F3", "E5", "G5", etc.); para tal efecto copie de una
consulta en un grupo una macro que pega todos los datos en la hoja
"Relacion" en una sola fila a manera de base de datos y funciona
perfectamente; sin embargo quisiera un codigo que hiciera lo contario,
o sea que copie una fila de la hoja "Relacion" y pegue los datos en la
hoja "Formulario" en sus respectivas celdas:

Sub copiarceldas()
Dim rng As Range, i As Long, Rangos
Rangos = Array("A7", "C15", "C9", "A5", "D3", "F3", "E5", "G5",
"E7", "A9", "E9", "A11", "C11", "E11", "G11", "A13", "C13", "A15",
"A17", "F17", "G17", "A19", "G7", "A42")
With Sheets("RELACION")
Set rng = .Cells(.Rows.Count, "A").End(xlUp)
For i = LBound(Rangos) To UBound(Rangos)
rng.Offset(1, i).Value _
= Sheets("FORMULARIO").Range(Rangos(i)).Value
Next i
End With

End Sub

Gracias.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
15/11/2006 - 06:43 | Informe spam
hola, 'nuevo en el grupo' :)

ya que te 'confiesas' nuevo, dejame darle un 'toque de formalidad informal' a esta conversacion :))
yo me llamo hector, y me gusta 'mirar a los ojos de mi interlocutor' :D
asi que, si me lo permites [y/o no te 'incomoda'] te llamare [de momento] 'anomimo/a'
ya que el 'nick' que pones pudiera no tener relacion con tu nombre 'real'... vale ?

'regresando' a tu consulta, y segun comentas...

... un Libro con 2 hojas... "Formulario"... una plantilla... en la cual ingreso
... fecha de ingreso del paciente, hora de ingreso, nombre, diagnostico, domicilio, telefono, etc.
... en celdas separadas ("A7", "C15", "C9", "A5", "D3", "F3", "E5", "G5", etc.)
... copie... una macro que pega... los datos en la hoja "Relacion" en una sola fila a manera de base de datos
... quisiera un codigo que hiciera lo contario, o sea que copie una fila de la hoja "Relacion"
... y pegue los datos en la hoja "Formulario" en sus respectivas celdas:



-> solo haria falta que menciones como sabria el codigo 'cual' fila debe 'traerse' de la hoja 'relacion' a la hoja 'formulario' -?-
y [p.e.] si existe la posibilidad de que un mismo paciente/nombre tenga varios 'registros/fechas/filas/diagnosticos/...' -?-
y/o alguna 'combinacion' de campos/columnas/... que permita 'asegurar/se/te' que 'se va a traer' la fila 'correcta' :))

comentas [si hubiera] algun otro 'detalle en el tintero' ?
saludos,
hector.

__ el codigo expuesto __
Sub copiarceldas()
Dim rng As Range, i As Long, Rangos
Rangos = Array("A7", "C15", "C9", "A5", "D3", "F3", "E5", "G5", "E7", "A9", "E9", "A11", "C11", "E11", "G11", "A13", "C13", "A15", "A17", "F17", "G17", "A19", "G7", "A42")
With Sheets("RELACION")
Set rng = .Cells(.Rows.Count, "A").End(xlUp)
For i = LBound(Rangos) To UBound(Rangos)
rng.Offset(1, i).Value _
= Sheets("FORMULARIO").Range(Rangos(i)).Value
Next i
End With
End Sub

Preguntas similares

 

Busqueda sugerida :