Anónimo
Seleccionar fila y copiar en diferentes campos
Disculpa Prozac, permite tratar de ser lo más claro posible:
Tengo una tabla con 20 registros (Hoja1) y 60 columnas.
Sin ningún problema, logro seleccionar a un registro especifico de un usuario especifico con todos sus datos, con el siguiente código.
Private Sub ComboBox1_Enter()
On Error Resume Next
ComboBox1.Clear
Hoja1.Activate
Report.Select
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
'MsgBox ActiveCell.Select
Loop
End Sub
Lo que quiero hacer ahora es:
En la hoja2 tengo un formato, quiero que los datos del registro que seleccione, se pegen todos los datos en ese formulario o templete, pero en celdas especificas, por ejemplo:
El nombre completo en la fila-columna A8:D8
La dirección en la fila-columna a16:k16
El grado de estudios en la fila-columna a32:e32
El proceso en el que esta, la fila-columna c56:c56
Y así sucesivamente de acuerdo al renglo que seleccione, a continuación te pongo un ejemplo del archivo de excel, el paip (|) viene siendo el inicio y fin de cada columna.
#| Nombre completo | direccion | rfc | telefono |
1| gerardo hdz sanchez | valle #33 |aaaj656576 |5531654154|
2| jose hdz schez | valle #39 |aaaj656576 |5531658484|
3| pedro hdz lopez | valle #42 |aaaj656576 |5565465646|
4| ricardo sanchez z | valle #233 |aaaj656576 |5568761332|
Podrías por favor ayudarme, realmente no se mucho de excel.
Tengo una tabla con 20 registros (Hoja1) y 60 columnas.
Sin ningún problema, logro seleccionar a un registro especifico de un usuario especifico con todos sus datos, con el siguiente código.
Private Sub ComboBox1_Enter()
On Error Resume Next
ComboBox1.Clear
Hoja1.Activate
Report.Select
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
'MsgBox ActiveCell.Select
Loop
End Sub
Lo que quiero hacer ahora es:
En la hoja2 tengo un formato, quiero que los datos del registro que seleccione, se pegen todos los datos en ese formulario o templete, pero en celdas especificas, por ejemplo:
El nombre completo en la fila-columna A8:D8
La dirección en la fila-columna a16:k16
El grado de estudios en la fila-columna a32:e32
El proceso en el que esta, la fila-columna c56:c56
Y así sucesivamente de acuerdo al renglo que seleccione, a continuación te pongo un ejemplo del archivo de excel, el paip (|) viene siendo el inicio y fin de cada columna.
#| Nombre completo | direccion | rfc | telefono |
1| gerardo hdz sanchez | valle #33 |aaaj656576 |5531654154|
2| jose hdz schez | valle #39 |aaaj656576 |5531658484|
3| pedro hdz lopez | valle #42 |aaaj656576 |5565465646|
4| ricardo sanchez z | valle #233 |aaaj656576 |5568761332|
Podrías por favor ayudarme, realmente no se mucho de excel.
1 Respuesta
Respuesta de prozac
1
No entiendo del todo tu pregunta. En el combo ¿qué dato guardas? ¿Es un índice o un número de registro que está relacionado con los demás datos (la fila donde están los datos por ejemplo)? Una vez conozcas esa relación para poner un dato en un registro concreto es simplemente:
Range("a1").value = dato o cells(1,1).value= dato
Aunque supongo que esto ya lo sabes. Por otro lado no se puede copiar un dato en un rango si no es una celda única. Cuando dices copiar el nombre completo a "A8:D8" ¿quieres copiarlo cuatro veces o es que es una celda combinada? Si es esto último seria copiarlo en A8, si lo primero hay que hacer las cuatro copias.
Range("a1").value = dato o cells(1,1).value= dato
Aunque supongo que esto ya lo sabes. Por otro lado no se puede copiar un dato en un rango si no es una celda única. Cuando dices copiar el nombre completo a "A8:D8" ¿quieres copiarlo cuatro veces o es que es una celda combinada? Si es esto último seria copiarlo en A8, si lo primero hay que hacer las cuatro copias.