Macro "genérica"

[gustavomeeuwes]

Hola de nuevo !!! Preguntando otra vez...

Tengo una serie de macros que son repetitivas en las instrucciones, salvo en el caso de los valores de unos rangos.
Adjunto ejemplo:

Sub DG_Ocup_Cerrar()
    ActiveSheet.Unprotect
    Range("[COLOR=red]C40[/COLOR]").Select
    Sheets("Hoja5").Visible = True
    If ActiveCell.MergeCells Then
    Sheets("Hoja5").Select
    Range("[COLOR=red]I3:J21[/COLOR]").Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("[COLOR=red]B40[/COLOR]").Select
    ActiveSheet.Paste
    End If
    Sheets("Hoja5").Select
    Sheets("Hoja5").Visible = False
    Sheets("Hoja2").Select
    Range("[COLOR=red]C48[/COLOR]").Select
    ActiveSheet.Protect
End Sub

Los valores que cambian son los indicados en rojo.
Quería saber como hacerla con Dim & String o Value (No tengo idea) para que quede algo así:

Sub DG_Ocup_Cerrar()
[COLOR=red]   DIM[/COLOR]
[COLOR=red]   Value1 = Hoja2 "C40"[/COLOR]
[COLOR=red]   Value2 = Hoja5 "I3:J21"[/COLOR]
[COLOR=red]   Value3 = Hoja2 "B40"[/COLOR]
[COLOR=red]   Value4 = Hoja2 "C48"[/COLOR]
[COLOR=red]   Application.Run "Cerrar"[/COLOR]
End Sub
 
Sub Cerrar
    ActiveSheet.Unprotect
    Range("[COLOR=red]Value1[/COLOR]").Select
    Sheets("Hoja5").Visible = True
    If ActiveCell.MergeCells Then
    Sheets("Hoja5").Select
    Range("[COLOR=red]Value2[/COLOR]").Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("[COLOR=red]Value3[/COLOR]").Select
    ActiveSheet.Paste
    End If
    Sheets("Hoja5").Select
    Sheets("Hoja5").Visible = False
    Sheets("Hoja2").Select
    Range("[COLOR=red]Value4[/COLOR]").Select
    ActiveSheet.Protect
End Sub

Así solo cambio los valores y ejecuto la macro "genérica".
Espero haber sido claro.
Unavez más gracias por vuestra ayuda.
Saludos
Gustavo

 

[mjrofra]

Hola,

de pronto puedas usar algunas constantes, no estoy muy seguro de entender bien. Quizás algo así:

Sub DG_Ocup_Cerrar()

    Const [COLOR="Blue"]Value1[/COLOR] As String = "C40"
    Const [COLOR="Blue"]Value2[/COLOR] As String = "I3:J21"
    Const [COLOR="Blue"]Value3[/COLOR] As String = "B40"
    Const [COLOR="Blue"]Value4[/COLOR] As String = "C48"
    
    ActiveSheet.Unprotect
    Range([COLOR="blue"]Value1[/COLOR]).Select
    Sheets("Hoja5").Visible = True
    
    If ActiveCell.MergeCells Then
        Sheets("Hoja5").Select
        Range([COLOR="blue"]Value2[/COLOR]).Select
        Selection.Copy
        Sheets("Hoja2").Select
        Range([COLOR="blue"]Value3[/COLOR]).Select
        ActiveSheet.Paste
    End If
    
    Sheets("Hoja5").Select
    Sheets("Hoja5").Visible = False
    Sheets("Hoja2").Select
    Range([COLOR="blue"]Value4[/COLOR]).Select
    ActiveSheet.Protect
    
End Sub

Si quieres especificar la hoja, de pronto puedas definir las constantes más o menos así:

    Const Value1 As String = "Hoja2!C40"
    Const Value2 As String = "Hoja5!I3:J21"
    Const Value3 As String = "Hoja2!B40"
    Const Value4 As String = "Hoja2!C48"

y recuerda que no es necesario seleccionar una hoja o un rango para trabajar con él desde VBA, por lo que podrías reducir mucho código y hacer que vaya más rápido y limpia la macro si evitas seleccionar los objectos... de pronto algo así (no me parece lo ideal trabajar con "activesheet" pero no sé desde cuál hoja estés ejecutando la macro, así que ahí lo dejo):

Sub DG_Ocup_Cerrar()

    
    Const Value1 As String = "Hoja2!C40"
    Const Value2 As String = "Hoja5!I3:J21"
    Const Value3 As String = "Hoja2!B40"
    Const Value4 As String = "Hoja2!C48"

    
    ActiveSheet.Unprotect

    If Range(Value1).MergeCells Then Range(Value2).Copy Range(Value4)

    ActiveSheet.Protect


End Sub