UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

marco6325


Buenas espero esten bien,

Deseo realizer una Macro que no he podido dar con ella, les explico el funcionamiento deseado:
El archive tiene las siguientes Hojas :
Hoja "Origen"
Hojas "DNI" (Una Hoja para cada numero de DNI)
 
Ahora en la Hoja Origen en la columna "A"  tiene los numeros de "DNI", que pudieran repetirse en varias filas, ya que existe informacion variada para cada DNI, como por ejemplo paises visitados, lo que quiero es que la macro evalue la Hoja Origen y copie los paises visitados y precio del pasaje en la hoja con el nombre del DNI a partir de la celda B39 para el pais y c 39 para el precio del pasaje.
A manera ilustrativa la hoja "origen" seria algo asi:
           Columna A        Columna B    Columna C
Fila 1   DNI=123           Peru               2.000 Pesos
Fila 2   DNI= 456          Colombia      1.000 Pesos
Fila 3   DNI= 123          Argentina       3.000 Pesos
La Hoja llamada 123 tendria como resultado
           Columna A        Columna B   
Fila 39  Peru               2.000 Pesos
Fila 40 Argentina       3.000 Pesos
La Hoja llamada 456 tendria como resultado
           Columna A        Columna B   
Fila 39  Colombia      1.000 Pesos
NOTA: no son solo Pais y Precio, tendria varias columnas cuya informacion queria pasar a la hoja DNI, coloque solo 2 como ejemplo,
Gracias de antemano por su apoyo a los super expertos del area!

2 Adicional el 28/05/18, 04:09 am

marco6325


Empece con esta macro, pero no se como ir a la hoja segun el valor de la columna, por eso hay una sola llamada Destino, :

Sub Actualizar()

'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range

'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Origen")
Set wsDestino = Worksheets("Destino")

'Indicar la celda de origen y destino
Const celdaOrigen = "Q2"
Const celdaDestino = "C39"

'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen
Sheets("Origen").Select
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Igtelo

avatar
Hola Marco.

Por favor sube archivo, lee el mensaje que está en rojo y en avisos "Todos los temas del foro".

Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.