Ayuda con un macros
Publicado por W Palomo (1 intervención) el 27/02/2019 18:15:44
Buen día.
Tengo el siguiente problema: al momento de ejecutar la macro, debe buscarme el valor en la columna A que coincida con la celda h4 de la primera hoja ("h1"), sin embargo no lo hace porque la columna A no tiene valores como tal, sino la fórmula =Fila() para que me devuelva el valor de la fila. Como puedo hacer que la búsqueda del valor de celda H4 en la columna A sea exitosa?
Tengo el siguiente problema: al momento de ejecutar la macro, debe buscarme el valor en la columna A que coincida con la celda h4 de la primera hoja ("h1"), sin embargo no lo hace porque la columna A no tiene valores como tal, sino la fórmula =Fila() para que me devuelva el valor de la fila. Como puedo hacer que la búsqueda del valor de celda H4 en la columna A sea exitosa?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Reemplazar()
Set h1 = Sheets("reporte")
Set h2 = Sheets("database")
cf = MsgBox("Desea reemplazar el registro?", vbInformation + vbYesNo, "AVISO")
If cf = vbYes ThenIf h1.[H4] = "" Then
MsgBox "Colocar número de FOLIO"Exit Sub
End If
Set r = h2.Columns("A") 'Aquí tengo el problema
Set b = r.Find(h1.Range("H4"), LookAt:=xlWhole, SearchFormat:=False)
If Not b Is Nothing Then
h2.Cells(b.Row, "AA") = h1.[b52]
MsgBox "Se ha reemplazado con éxito", vbInformation
Else
MsgBox "El código no existe", vbInformation
Exit Sub
End If
Limpiar
End If
End Sub
Valora esta pregunta
0