Ejecutar una macro si la celda no está vacía
Bonjour
Estoy comenzando con macros... Quiero que al hacer clic en un botón, las macros se ejecuten solo si una celda indicada está completa. Pero mi código no funciona, responde "falta una condición if...
¿Cómo hacerlo? ¡Gracias de antemano!
Sub crefeuille1()
' crefeuille1 Macro
If Range("C2") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e2")
End If
End With
End Sub
Sub crefeuille2()
'
' crefeuille2 Macro
'
If Range("C3") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e3")
End If
End With
End Sub
Estoy comenzando con macros... Quiero que al hacer clic en un botón, las macros se ejecuten solo si una celda indicada está completa. Pero mi código no funciona, responde "falta una condición if...
¿Cómo hacerlo? ¡Gracias de antemano!
Sub crefeuille1()
' crefeuille1 Macro
If Range("C2") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e2")
End If
End With
End Sub
Sub crefeuille2()
'
' crefeuille2 Macro
'
If Range("C3") = "" Then
Sheets("Revue type").Select
Sheets("Revue type").Copy After:=Sheets(2)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("Trame").Range("e3")
End If
End With
End Sub
3 respuestas
-
ColaboradorHola,
Si pruebas C2 aparentemente vacío, escribes una fórmula en una esquina de la hoja:
=está vacío(C2), si devuelve "falso" <=> C2 contiene un espacio
de ahí tu comentario:
"se ha añadido un espacio al final del nombre de la hoja"
Tu preocupación es, por lo tanto, averiguar por qué hay un espacio en C2 (¿C2 es una fórmula? Si es así, revisa los antecedentes)
