mangelperu

He encontrado la solución en una página que adjunto abajo, modifique la macro y funciona perfecto. Private Sub CommandButton1_Click() Dim n As Long, i As Long Dim var As Variant For n = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(n) =...

Harold Z. respondió: Para hacer eso no necesitas una macro, puedes usar fórmulas de excel como en post adjunto (o en su defecto hacer que la macro escriba la fórmula) Como sumar un rango de celdas especifico, dependiendo de cuantas veces se repita un dato en otras...

Dante Amor respondió: Esta sería la macro Sub Guardar() ActiveSheet.DisplayPageBreaks = False mio = ActiveWorkbook.Name ruta = Hoja1.Range("p1") Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate Sheets(Array("COMPRAS_CAB", "COMPRAS_DET")).Copy _...

Dante Amor respondió: Sería así u = Range("A" & Rows.Count).End(xlUp).Row Range("E2:E" & u) = "=TEXT(RC[-5],""0000"")&""-""&TEXT(RC[-4],""000000"")"

Luis Mondelo respondió: Te paso mi solución con esta macro: Sub proceso() 'por luismondelo Range("c2").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = 0 And ActiveCell.Offset(0, 1).Value = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select...