Dante Amor

La primera celda que contenga "E1", cuando halle dicha celda, tome la fila de dicha celda como la inicial del área de impresión Entiendo que en alguna celda de la columna A vas a tener el texto "E1", ¿pero en dónde vas a tener el número de fila?...

Solamente puedes poner un evento y dentro de ese evento debes poner el código que necesitas: Private Sub Workbook_Open() Application.OnTime TimeValue("23:50:00"), "Macro2" ' 'Aquí debes poner el otro código End Sub

Revisa el código de Jaafar Tribak en este enlace: https://www.mrexcel.com/board/threads/vba-to-check-if-circles-are-inside-of-freeform-area-or-not.1113267/

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Esa instrucción es para hacer una pausa en la ejecución de la macro. Por ejemplo, la siguiente instrucción hace una pausa de 1 segundo. Sleep (1000) ' Espera 1 segundo En tu...

Prueba la siguiente: Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion If rngCell.EntireRow.Hidden = False Then collUnicos.Add rngCell,...

[Ho la y bienvenido a TodoExpertos! Revisa si alguna de las siguientes opciones es lo que necesitas Sub arrastredos() With Range("K" & Rows.Count).End(3) .Copy Range(.Cells(1), Range("K" & Range("B" & Rows.Count).End(3).Row)) End With End Sub Sub...

Si los números de celular los tienes como valores numéricos en las celdas, entonces utiliza la siguiente macro. También funciona con valores tipo texto. Pero con los valores numéricos debo convertirlos a tipo texto, para eso utilizo la columna Z, si...

[H o l a y bienvenida a TodoExpertos. ¿En cuál celda tienes la fórmula? Puedes poner aquí la fórmula. También pon aquí una imagen para ver cómo se ve una etiqueta con datos y una etiqueta vacía. Procura que en la imagen se vean las filas y las...

Utiliza la siguiente fórmula =SUMAPRODUCTO(($A$2:$A$7=A11)*($B$1:$E$1=B11)*($B$2:$E$7)) Sigue el siguiente ejemplo:

Hice algunos ajustes al código, prueba con el siguiente: Sub test() Dim hojas As Variant, sh As Variant hojas = Array("Hoja1", "Hoja2") Application.DisplayAlerts = False Application.ScreenUpdating = False Dim lr As Long For Each sh In hojas With...