buscar y pasar valores de una hoja a otra
Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86112
Fecha de impresión: 26/Marzo/2026 a las 19:07
Tema: buscar y pasar valores de una hoja a otra
Publicado por: acilu55
Asunto: buscar y pasar valores de una hoja a otra
Fecha de publicación: 16/Septiembre/2021 a las 13:12
|
tengo dos hojas en la segunda columnda de la primera hoja estan los codigos de municipios, que pueden o no estar en la primera columna de la segunda hoja. pues bien, quiero una funcion que me verifique si un codigo de la primera tabla esta en la segunda y si lo esta que me copie el valor del la tercera columna de la segunda tabla en la primera columna de la primera tabla, esto que en acces es ena tonteria me esta dando mas de un dolor de cabeza este es el codigo que llego a escribir ; Sub cambiadelegacion() Dim ult As Double ult = Cells(Rows.Count, 1).End(xlUp).Row Dim dele As String Dim cmuni As String Dim muni As String For n = 2 To ult Cells(n, 2).Select cmuni = ActiveCell.Value Sheets(2).Activate i = 2 Cells(i, 1).Select 'MsgBox Cells(i, 1).Value Do Until ActiveCell = "" dele = "" muni = Cells(i, 1).Value If muni = cmuni Then Cells(i, 3).Select dele = Cells(i, 3).Value MsgBox dele Sheets(1).Activate Cells(n, 1).Activate Cells(n, 1).Value = dele GoTo seguir End If i = i + 1 Loop seguir: Next End Sub Alguien puede ayudarme? ------------- Gracias a todos de antemano |
Respuestas:
Publicado por: xavi
Fecha de publicación: 16/Septiembre/2021 a las 14:54
|
¿No te vale un simple BUSCARV? Si fuera necesario combinado con un SI.ND para controlar los "no encontrados" ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: acilu55
Fecha de publicación: 01/Diciembre/2021 a las 12:08
|
Solucionado. lo he realizado a traves de una consulta desde access despues de importar ambas hojas y despues devolviendo a excel el resultado de la hoja modificaada que me interesa Por favor cerrar el hilo ------------- Gracias a todos de antemano |