Dante Amor

Asumiendo tus datos en las columnas A, B y C. Los resultados en las columnas E, F y G: Sub duplicar_registros() Dim c As Range, v As Variant Application.ScreenUpdating = False For Each c In Range("A2", Range("A" & Rows.Count).End(3)) For Each v In...

Puedes poner aquí tu código. No está el enlace a tu archivo.

Prueba lo siguiente: Sub Macro1() Range("AO22:AV196").Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

Prueba la siguiente: =espacios(izquierda(A2, encontrar("(",A2) - 1))

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...

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...