Sustituir fórmulas por código VBA en excel
Para Dante Amor.
Buenas tardes Dante. Tengo un libro con dos hojas una llamada "Borrador" y otra llamada "HD", en la Hoja "HD" tengo una celda con la fórmula siguiente "=IF(F3="","", Borrador!B5)" estoy intentando elaborar una macro que se ejecute automaticamene al cambiar el valor de la celda pero no logro hacer que funcione, me puedes ayudar al respecto.
Respuesta de Dante Amor
1
Estimado Dante me tome la libertad de enviarte un correo con un ejemplo sencillo, ya que me fue complicado poder explicarme con palabras, te agradezco la atención.
Pon la siguiente macro en los eventos de la hoja HD
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("B3")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
Range("B4:B6") = ""
Range("E1:E2") = ""
If Target.Value = "" Then Exit Sub
Set h = Sheets("Borrador")
Set b = h.Columns("A").Find(Target, lookat:=xlWhole)
If Not b Is Nothing Then
Range("B4") = h.Cells(b.Row, "B")
Range("B5") = h.Cells(b.Row, "C")
Range("B6") = h.Cells(b.Row, "D")
End If
Range("E1") = h.Range("A1")
Range("E2") = h.Range("D1")
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
