Eliminar celdas vacías y Contar totales
Tengo una lista de productos; el cliente mediante un botón elige los productos que se copian a una hoja de pedido, en la hoja de pedido hay un segundo botón que busca y elimina las celdas en blanco(los productos que el cliente decidió borrar). ¿Qué líneas de código adicionar? Para que el mismo botón después del borrado de celdas en blanco, cuente el total de productos y se imprima en una celda de la misma hoja el total en $ y en piezas; cada producto cuesta lo mismo y es un producto por celda.
Macro 1 (Hoja de Productos)
Public Sub Copiar()
Selection.Copy
Worksheets("Ver Pedido").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
MsgBox "Se Agregó al pedido"
End Sub
Macro 2 (Hoja de Pedido)
Public Sub Find()
Worksheets("Ver Pedido").Range("B1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Delete
End If
Wend
End Sub
Macro 1 (Hoja de Productos)
Public Sub Copiar()
Selection.Copy
Worksheets("Ver Pedido").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
MsgBox "Se Agregó al pedido"
End Sub
Macro 2 (Hoja de Pedido)
Public Sub Find()
Worksheets("Ver Pedido").Range("B1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Delete
End If
Wend
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Te agrego las instrucciones de SUMA y CUENTA .
En mi ejemplo se deja en celdas de la siguiente fila la suma de la col A y la cuenta de col B
Public Sub Find()
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Delete
End If
Wend
'guarda la última fila con datos
fila = ActiveCell.Offset(-1, 0).Row
'en col A suma la col
ActiveCell.Formula = "=+SUM(A2:A" & fila & ")"
ActiveCell.Offset(0, 1).Select
'en col B cuenta
ActiveCell.Formula = "=+COUNT(B2:B" & fila & ")"
End Sub
Podes establece como celda activa la que quieras que muestre estos totales.
Nota: tu rutina no funciona correctamente si la tabla de datos presenta 2 celdas seguidas en blanco. Debieras establecer cuál es la última fila
filaUlt = Range("65536"). End(xlup). Row
y luego ejecutar el bucle hasta llegar a esa fila.
While activecell.row <= filaUlt
Cada vez que eliminás una fila, deberás restar en 1 la variable.
Saludos
Elsa
PD) Todas las soluciones en manual 400MacrosPlus
http://es.geocities.com/lacibelesdepunilla/manuales
En mi ejemplo se deja en celdas de la siguiente fila la suma de la col A y la cuenta de col B
Public Sub Find()
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Delete
End If
Wend
'guarda la última fila con datos
fila = ActiveCell.Offset(-1, 0).Row
'en col A suma la col
ActiveCell.Formula = "=+SUM(A2:A" & fila & ")"
ActiveCell.Offset(0, 1).Select
'en col B cuenta
ActiveCell.Formula = "=+COUNT(B2:B" & fila & ")"
End Sub
Podes establece como celda activa la que quieras que muestre estos totales.
Nota: tu rutina no funciona correctamente si la tabla de datos presenta 2 celdas seguidas en blanco. Debieras establecer cuál es la última fila
filaUlt = Range("65536"). End(xlup). Row
y luego ejecutar el bucle hasta llegar a esa fila.
While activecell.row <= filaUlt
Cada vez que eliminás una fila, deberás restar en 1 la variable.
Saludos
Elsa
PD) Todas las soluciones en manual 400MacrosPlus
http://es.geocities.com/lacibelesdepunilla/manuales
