buscar y pasar valores de una hoja a otra

   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?

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
acilu55 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 27/Septiembre/2011 Estado: Sin conexión Puntos: 214	Tema: buscar y pasar valores de una hoja a otra Enviado: 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

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14734	Enviado: 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 Mi web

acilu55 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 27/Septiembre/2011 Estado: Sin conexión Puntos: 214	Enviado: 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