Tengo un prblema quiero hacer con excell un macro que de la hoja 2 en todo el rango de renglones de la columna A me lea las celdas las cuales voy guardando en una variable, luego a su vez en ese mismo paso o bucle aprovecho para en otra variable ir guardando el mismo numero de renglon pero ahora para la columna b y luego teneindo esas variables guardadas irme a la hoja 1 buscar la variable de columna A que tengo guardada de l ahoja 2 y donde la encuentre pegar el contenido ahi en la hoja 1 donde lo enconttro del valor que encontro mas lo que tengo de la variable de la columna b en la hoja 2.
Osea un ejemplo:
Tengo 2 hojas en excell en la hoja 2 hay columna A y B
En la hoja 1 hay una columna A solamente
Entonces para todos los renglones de la columna A y B de la hoja 2 irlos metiendo en una variable, luego me paso a hoja 1 y busco lo que hay en la variable del renglon hoja 2 ya que lo encuentra ahi mismo donde encontro la busqueda reemplazar el valor por lo que tiene ese renglon mas la variable de la columna B de la hoja 2.
Alguien me podria ayudar gracias aqui esta la rutina que llevo:
Sub RACE()
'
' RACE Macro
' ttttttttttttt
'
' Acceso directo: CTRL+l
'
Application.ScreenUpdating = False
Dim mivariable As String
Dim miotravariable As String
Dim doblevariable As String
Dim masvariables As String
Dim FindA As String
Dim FindB As String
Dim Foundcell As Variant
Dim i
Sheets("Hoja2").Select
Rng = Selection.Rows.Count
For i = 1 To 5 Step 1
Sheets("Hoja2").Select
Range("a" & i).Select
mivariable = Trim(Range("a" & i).Value)
Range("b" & i).Select
miotravariable = Trim(Range("b" & i).Value)
Sheets("Hoja1").Select
With ActiveSheet.Cells
Set Foundcell = .Find(mivariable, LookIn:=xlFormulas)
doblevariable = ActiveCell.Value
masvariables = doblevariable & miotravariable
ActiveCell.FormulaR1C1 = masvariables
End With
Next i
Application.ScreenUpdating = True
End Sub
