Dante Amor

[E stimado, tienes pendiente valorar respuestas: Problema para exportar a PDF en Excel VBA

Te envié la respuesta en tu pregunta: Como hacer que una información se copie de una hoja a otra

Prueba esto: Sub Macro2() Dim i As Long, bprn As Boolean For i = 3 To Range("U" & Rows.Count).End(3).Row Step 10 If Range("U" & i).Value <> "" Then ActiveSheet.PageSetup.PrintArea = "T2:Z" & i + 7 bprn = True End If Next If bprn Then...

Prueba esto: Sub CopiarDatos() Dim lr As Long With Sheets("base") lr = .Range("A" & Rows.Count).End(3).Row + 1 .Range("A" & lr).Resize(1, 9).Value = Application.Transpose(Sheets("indice").Range("D1:D9").Value) End With End Sub

No entiendo bien lo que necesitas, sería mejor si lo explicas con un ejemplo. Este es un ejemplo: =PROMEDIO.SI(B2:B6,"<>",C2:C6) La fórmula promedia los valores de la columna C, si en la columna B tiene datos.

Prueba esto: Sub Copiar_Discontinuo() With Sheets("Hoja1") .Range(Replace("A2:A@,B2:B@,E2:E@,Z2:Z@", "@", .Range("A" & Rows. Count).End(3). Row)).Copy _ Sheets("Hoja2").Range("A" & Sheets("Hoja2").Range("A" & Rows. Count).End(3).Row + 1) End With End Sub

Te paso la macro: Sub ExtraerDuplicados() 'Por Dante Amor Dim dic As Object Dim i As Long, j As Long, k As Long Dim a As Variant, b As Variant Dim fila As Long ' Set dic = CreateObject("Scripting.Dictionary") fila = ActiveCell.Row a = Range("A" &...

Prueba esto: Sub copiavalores() Dim fila As Long, i As Long, j As Long fila = ActiveCell.Row j = 12 For i = 1 To 10 If Cells(fila, i) <> "" Then Cells(fila, j).Value = Cells(fila, i) j = j + 1 End If Next End Sub

Te anexo la macro Sub concatenar_permutaciones_una() 'Por Dante Amor Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long Dim fila As Long fila = ActiveCell.Row a = Range("A" & fila & ":AD" & fila).Value ReDim b(1 To 1, 1 To...

Prueba la siguiente fórmula matricial: =SUMA(SI.ERROR(EXTRAE(SUSTITUIR(SUSTITUIR(SUSTITUIR(A2,",",""), "$",""), " ",REPETIR(" ",255)),255*(FILA($1:$30)-1)+1,255)+0,0)) Es una fórmula matricial, para aceptarla debes presionar al mismo tiempo las...