Imprimir página | Cerrar ventana

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



Imprimir página | Cerrar ventana