Dante Amor

Prueba la siguiente: Sub Macro3() Dim ar1 As Variant, ar2 As Variant, sh As Worksheet Dim f As Range, cad1 As String, cad2 As String Dim i As Long, ini As Long, fin As Long, sNom As String, n As Long ' Set sh = Sheets("Resumen del dia") ar1 =...

Prueba la siguiente macro. Pon tus datos en la Hoja1, los resultados quedarán en la Hoja2 Sub Intercalar_datos() Dim a As Variant, b As Variant Dim i As Long, j As Long ' a = Sheets("Hoja1").Range("A1:C" & Sheets("Hoja1").Range("A" &...

[Ho la y bienvenido a TodoExpertos. Pon lo siguiente en tu botón. Private Sub CommandButton1_Click() Dim f As Range, fil As Long, col As Long ' Set f = Range("A:A").Find(ComboBox1, , xlValues, xlWhole) If Not f Is Nothing Then fil = f.Row Set f =...

Puedes poner tu macro completa. Una explicación de lo que quieres lograr como objetivo final. Si puedes explicar lo que requieres con una imagen con datos de prueba.

Reemplaza tu código por el evento change: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G:G")) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If Target.Value = "" Then Exit Sub With...

Utiliza la fórmula BuscarV. Revisa los siguientes enlaces: http://guiasdeexcelbuscarv.blogspot.com/ https://www.youtube.com/watch?v=_WxfHXzQxLU&t=53s

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

El valores que se va a concatenar siempre estará a la derecha de la celda activa. Prueba la siguiente: Sub prueba1() With ActiveCell.Offset(0, 1) ActiveCell = Left(.Value, 3) & "-" & Mid(.Value, 4, 11) & "-" & Right(.Value, 3) End With 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/