Cadipas spain

Pues este código en la programación de la hoja en cuestión donde tienes las celdas cesplegables SI/NO Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$C$1" If Target.Value = "SI" Then ActiveSheet.Unprotect...

Yo eso no lo he conseguido. Si lo consigues, me envías la solución, a mi todavía me falta mucho por apender. La pregunta sería ¿Qué quieres hacer en excel mientras esta el formulario abierto?

Posteame tu e-mail para intercambio de ficheros, y cuando te envíe mi dirección, me mandas el fichero en el que esta trabajando para que enfoque mejor el problema. Se puede hacer (o eso creo y recuerdo que en alguna ocasión he realizado algo parecido.)

No se muy bien que es lo que quieres, ya que me faltarían datos, pero haciendo correr lamacro que me envías y tras corregir algunas cosillas, me falla en esta fórmula SfechaConsulta = Cells(46 + n * rango, 6) Ya que el resultado es mayor que el...

Yo he creado un botón y le he puesto el código: Private Sub CommandButton1_Click() x = 2 y = 2 Do While Cells(y, x) <> "" x = x + 1 If x = 5 Then x = 2 y = y + 1 End If Loop Do da = InputBox("introducir datos") Cells(y, x) = da x = x + 1 If x = 5...

Prueba este código Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.TextBox2 = "" With Worksheets("hoja2").Range("a2:a500") Set c = .Find(TextBox1.Value, LookIn:=xlValues) If Not c Is Nothing Then UserForm1.TextBox2.Value =...

Creo que te entiendo, pero para aclararme mejor te envío mi e-mail para intercmbio de ficheros. Ya te daré la contetación.

En principio si la hoja esta protegida, hay que desproteger, y para ello utiliza activesheets.unprotect password:="pepe" Donde pone "pepe" pon la contraseña que tengas Sub ocultar_filas() ActiveSheet.Unprotect password:="pepe" Range("C7").Activate...

Para bloquear las macro, en el menu de VB seleccionar HERRAMENTAS - PROPIEDADES DE VBPROYECT y seleccionar la pestaña PROTECCIÓN y ahí poner las claves Para evitar errores añadir : On error goto Fallo ' resto del programa exit sub Fllo: msgbox "se ha...

Estoy en ello, ya te contare... como va...