asignar un valor a una ceda desde otra

[ANTONIO ANAYA]

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    EncontrarAsignarValor    '=SI(B1=1;ASIGNAR("A1";5);"")
End Sub

Public Sub AsignarValor(FoundCell As Range)
    Dim...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[TodoExcel]

Sería muy recomendable que antes de publicar código expliques mejor de forma conceptual lo que vas a hacer!

:wink: