Carlos Arrocha

[Hola Ximena. 'Si son controles ActiveX, utiliza el siguiente código Sub Check1() Dim c As Object For Each c In ActiveSheet.OLEObjects If InStr(1, c.Name, "CheckBox") > 0 Then c.Object.Value = False End If Next End Sub'Si son controles de formulario,...

[Hola. Para poderte ayudar, deberías hacer una captura del código y subirlo

[Hola Juan. El siguiente código te registra en la hoja1, desde la columna "A" hasta la "G", y numera en la columna "A" Prueba y me comentas si es lo que necesitas. Private Sub BtnReg_Click() Dim uFil As Long With Hoja2 uFil = .Range("A" &...

[Hola Sub Ejemplo() pass = InputBox("Contraseña?") If pass = "12345678" Then 'Aquí lo que quieres que haga Else MsgBox "Clave Incorrecta", vbExclamation Exit Sub End If End Sub Salu2 Carlos Arrocha

[Hola Rafael. Inténtalo así. Sub abre_Word() Dim w As Object Set w = CreateObject("Word.application") Set documento = w.Documents.Open(abrirdocumento.ComboBox1.Value) If w.Visible = True Then 'nada Else MsgBox "El documento " &...

[Hola. ¿Yo no te había dejado una macro para proteger y desproteger todas las hojas?

[Hola María. Envíame tu correo a [email protected] para enviarte un programa que te puede servir para tu local. A partir de ahí podemos hacer las modificaciones que tu creas oportunas. Salu2 Carlos Arrocha

[Hola. Pega este código dentro de la hoja donde quieras que actúe y a ver si se sirve. Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Hoja1").Range("G1").Value = Sheets("Hoja1").Range("F1").Value If Range("F1").Value = "" Then...

Intenta subir alguna captura, porque para entenderte hace falta un diccionario al lado y mucha imaginación. Salu2 Carlos Arrocha

[Hola. Prueba esta macro Sub BuscayCambiaColor() Dim Celda As Range Dim P As String Sheets("Hoja1").Range("B6:B200").Activate P = "Compras" P = "*" & P & "*" For Each Celda In Selection If Celda.Value Like P Then Celda.Interior.ColorIndex = 36 End If...