Dante Amor

Visita: Cursos de Excel y Macros --------------------- Para ocultar solamente las fórmulas: Sub Ocultar_Formulas() Dim sh As Worksheet For Each sh In Sheets sh.Unprotect "abc" 'cambia "abc" por el password de la hoja sh.Cells.Locked = False 'valores...

[Ho la Antonella Tocci y bienvenida a TodoExpertos. Visita: Cursos de Excel y Macros --------------------- Prueba la siguiente macro. En la macro puse comentarios donde tienes que poner tus datos. Notas: El nombre de la hoja debe existir en el...

Visita: Cursos de Excel y Macros --------------------- Asigna la siguiente macro a un botón: Sub CopiarValores() Dim f As Range ' With Sheets("Hoja1") Set f = Sheets("Hoja2").Range("1:1").Find(.Range("A1").Value, , xlFormulas, xlWhole) If Not f Is...

Visita: Cursos de Excel y Macros. ------------------------ La fórmula en A1 debe ser así: =[Libro2.xlsx]Hoja1!D5 Si la copias a la celda B1, la fórmula queda: =[Libro2.xlsx]Hoja1!E5 Revisa que la celda D5 no debe tener el símbolo $ (referencia...

Visita: Cursos de Excel y Macros. ---------------- Podrías explicar qué quieres hacer. Tu código tiene varios detalles, por lo tanto, no entiendo cuál es tu objetivo. 1. Te falta un End IF 2. En esta línea: If Not Ntitulo Is Nothing Then debe ser If...

Visita: Cursos de Excel y Macros --------------- Por ejemplo, si caminaste 700 pasos en 35 minutos y quieres saber cuántos pasos son por minuto: Multiplicas 1 * 700 y lo divides entre 35 (se llama regla de tres). El resultado son 20 pasos por minuto....

Entiendo que quieres un la barra para el userform, pero por defecto el ListBox tiene su propia barra de desplazamiento que se activa en automático cuando las columnas exceden el ancho del listbox: De esa manera el form se matiene estático, tienes a...

Visita: Cursos de Excel y Macro ------------------------ Utiliza la siguiente fórmula: =SUMAPRODUCTO((IZQUIERDA(A2:A8;2)="12")*(B2:B8)) Ejemplo: ----------- Recomendaciones: Curso de excel. Formato condicional dinamico - YouTube Curso de excel....

Visita mi canal: Cursos de excel y macros ------------- Prueba la siguiente macro: Sub bucar_valor() Dim valor As Variant Dim f As Range ' valor = Range("A1").Value If valor = "" Then MsgBox "Escribe el valor a buscar en la celda A1" Else Set f =...

Te invito a ver el siguiente: Consejos para empezar a programar. -------------------- Puedes utilizar la sentencia Case, te muestro un ejemplo: Sub InsertaImagenMA(): On Error Resume Next Application.ScreenUpdating = False For Each hoja In Sheets...