bacter582

Solo te faltaba usar la palabra set, para asignar los rangos, y no utilizar el value, ya que se asigna es la celda completa. Saludos Bacter sub macro11() Dim cell1 As Range Dim cel2 As Range dim rango2 as range set Cell1 = Range("A2") set Cell2 =...

Lo que imagino que haces es que llamas a un formulario con un textbox donde se introduce la contraseña, si es así en las propiedades de los texbox existe una que se llama passwordChar, allí colocas * si quieres que ese sea el carácter que aparezca.

Me recordaste a mis tiempos estudiando programación en la escuela de ingeniería. Te dejo una solución que desarrolle, funciona pero le faltaría colocarle condicionales para que no repita las celdas por las que ya paso. Todas esas condicionales toman...

Algo que puedes hacer es grabar los datos en un archivo .dat o .txt en vez de en una de las hojas del libro, así tus datos estarían en un lugar más seguro. Si necesitas ayuda para realizar esa operación me escribes.

Probé esto con tu problema y me funciono perfectamente =BUSCARV(B1;INDIRECTO("" & A1 & "!" & D16);2) B1= ESTA EL INDICADOR DE COLUMNA A1= EL NOMBRE DE LA HOJA D16= $E$4:$G$8

Como estas amigo, voy a tratar de responder todas tus inquietudes Crea un formulario con 3 textbox, un combobox y un botón Private Sub UserForm_Activate() TextBox1.Text = Date ' AQUI LEES AUTOMATICAMENTE LA FECHA DEL SISTEMA TextBox1.Enabled = False...

Teniendo la imagen insertada en el excel Con este simple macro cada vez que lo ejecutes ocultara o mostrara la imagen. Sub Mostrar_ocultar_imagen() ActiveSheet.Shapes("Picture 1").Visible = Not ActiveSheet.Shapes("Picture 1").Visible End Sub

Estuve dándole vueltas durante un rato a tu problema y por medio de fórmulas no conseguí como resolverlo, te dejo un macro muy sencillo que puede resuelve tu problema. Sub contar_hojas() For i = 1 To Sheets.Count Cells(i, 1).Value = Sheets(i).Name...

Te anexo una macro sencilla que puede resolver tu problema. Cualquier duda estamos a la orden. Sub Colorear_Filas_iguales() For i = 1 To 50 ' El limite de las filas lo cambias al cambiar el 50 If Sheets("hoja1").Cells(i, 1).Value =...

Estuve trabajando un rato con tu problema y esta fue la fórmula que conseguí para hacerlo todo en una sola celda sin utilizar macros. Cópiala y pruébalas y si necesitas ayuda estamos a la orden. =MINUSC(EXTRAE(A1;1;SI(ESERROR(ENCONTRAR("...