Dante Amor

Prueba la siguiente macro Tus datos deben esta como en tu ejemplo, es decir, el primer año debe empezar en la celda A3. Sub SumarCampeones() Dim lr As Long, lc As Long, lr2 As Long ' lr = Range("A" & Rows.Count).End(3).Row Application.ScreenUpdating...

Y quiero introducir un cero 0 en la tercera posición empezando por la izquierda Ejecuta la siguiente macro, los resultados quedarán en la misma columna A: Sub Macro4() With Range("A1", Range("A" & Rows.Count).End(xlUp)) .Value =...

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