Dante Amor

Quita la instrucción On Error Resume Next. Prueba nuevamente la macro y comentas qué sucede.

Ejecuta la siguiente macro o agrega las líneas en tu código: Sub macro1() Dim ruta As String With ThisWorkbook ruta = .Path & "\" .SaveCopyAs ruta & Replace(.Name, ".xlsm", "") & " " & Format(Date, "dd-mm-yyyy") & ".xlsm" End With End Sub

Para hacerlo dinámico podrías proporcionar más información. Responde en el siguiente orden: ¿En dónde tienes encabezados? ¿En cuál fila empiezan los datos? ¿Cómo saber si en la columna tienes valores para ser sumados? ¿En dónde quieres los...

Elijo un nombre y automáticamente se muestra esta hoja Si la hoja está oculta y seleccionas un nombre, la hoja no se muestra. ¿Tienes una macro para que la hoja se muestre?

Pon todo el siguiente código en los eventos de tu hoja "acción" Actualizo en el código los nombres de las hojas y la columna "F" por la columna donde tienes la fecha de venta, en estas líneas: Set rng = Intersect(Target, Range("F:F")) Set sh =...

Puedes poner ejemplos de lo que tienes en la hoja. Qué vas a capturar en el textbox Y qué resultados quieres.

Puedes utilizar un formato condicional En la fórmula: =HALLAR("corazza",A1) Se aplica (el rango que necesites) =$A$1:$A$10 Ejemplo:

Pon el siguiente código en los eventos de la Hoja1. Sigue las Instrucciones para poner la macro en los eventos de worksheet Abre tu libro de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11Del lado izquierdo dice: VBAProject,...

Prueba esta fórmula: =CONTAR.SI($A$2:$A$10;"<"&A2)+CONTAR.SI($A$2:A2;A2) Nota: Cambia el punto y coma ( ; ) por coma ( , ) si la utilizas como separador de argumentos.

Prueba esto: Sub SeleccionarCelda() Dim f As Range Set f = Sheets("Hoja2").Range("B:B").Find(ActiveCell.Value, , xlValues, xlWhole, , , False) If f Is Nothing Then MsgBox "No encontrado" Else Sheets("Hoja2").Select f.Select End If End Sub