Realizar una sumatoria en cada espacio vacío
Buenas tardes carlos.
Necesito de tu ayuda, espero darme a entender ya que soy principiante en los macros
tengo un archivo en excel.
Ejemplo: tomare la columna A con titulo costo
costo
10
20
30
Espacio en blanco
10
15
Espacio en blanco
20
40
100
Espacio en blanco
Los rangos son variables y lo que necesito es un macro que realice una sumatoria por cada espacio en blanco o vacío.
Más o menos quedaría así.
Costo
10
20
30
60
10
15
25
20
40
100
160
Muchas gracias por su apoyo.
Hasta el momento he modificado un código de este mismo foro, pero no logro que la suma la coloque así como te explique anteriormente.
Este es el código que tengo
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 23/06/2010 by palmah
'
'
fila = 3
filafinal = Cells(65000, 5).End(xlUp).Row
Do While filafinal >= fila
For x = 5 To 7
Cells(fila, x).Select
If Selection.Offset(1, 0) <> "" Then
Range(Selection, Selection.End(xlDown)).Select
End If
suma = 0
For Each valor In Selection
suma = suma + valor
Next
Cells(fila - 1, x) = suma
Next x
Cells(fila, 5).End(xlDown).Select
Selection.End(xlDown).Select
fila = Selection.Row
Loop
Range("a1").Select
End Sub
Gracias por tu tiempo y ayuda
Necesito de tu ayuda, espero darme a entender ya que soy principiante en los macros
tengo un archivo en excel.
Ejemplo: tomare la columna A con titulo costo
costo
10
20
30
Espacio en blanco
10
15
Espacio en blanco
20
40
100
Espacio en blanco
Los rangos son variables y lo que necesito es un macro que realice una sumatoria por cada espacio en blanco o vacío.
Más o menos quedaría así.
Costo
10
20
30
60
10
15
25
20
40
100
160
Muchas gracias por su apoyo.
Hasta el momento he modificado un código de este mismo foro, pero no logro que la suma la coloque así como te explique anteriormente.
Este es el código que tengo
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 23/06/2010 by palmah
'
'
fila = 3
filafinal = Cells(65000, 5).End(xlUp).Row
Do While filafinal >= fila
For x = 5 To 7
Cells(fila, x).Select
If Selection.Offset(1, 0) <> "" Then
Range(Selection, Selection.End(xlDown)).Select
End If
suma = 0
For Each valor In Selection
suma = suma + valor
Next
Cells(fila - 1, x) = suma
Next x
Cells(fila, 5).End(xlDown).Select
Selection.End(xlDown).Select
fila = Selection.Row
Loop
Range("a1").Select
End Sub
Gracias por tu tiempo y ayuda
1 Respuesta
Respuesta de Carlos Serrano
1
Bueno no te entendí muy bien pero creo que necesitas que el te sume los rangos y bueno te hice esta macro mejor programada, saludos
Public Sub macro()
r = 3
c = 1
suma = 0
Cells(r, c).Activate
Do While i = False
Cells(r, c).Activate
If Cells(r, c).Value <> "" Then
suma = suma + Cells(r, c).Value
r = r + 1
Else
If suma <> 0 Then
Cells(r, c).Value = suma
r = r + 1
Cells(r, c).Activate
suma = 0
Else
i = True
End If
End If
Loop
MsgBox prompt:="No se han encontrado mas registros", Title:="Fin de macro"
End Sub
R se refiere a la fila y
C se refiere a la columna.
Saludos!
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todo-expertos en un pequeño espacio en la página principal, si querés aprender más puedes ingresar en www.ayconcol.com/foro creas usuario y todo y listo! Si deseas ellos también elaboran aplicativos, páginas web y soporte a computadores a un costo muy bajo!
Public Sub macro()
r = 3
c = 1
suma = 0
Cells(r, c).Activate
Do While i = False
Cells(r, c).Activate
If Cells(r, c).Value <> "" Then
suma = suma + Cells(r, c).Value
r = r + 1
Else
If suma <> 0 Then
Cells(r, c).Value = suma
r = r + 1
Cells(r, c).Activate
suma = 0
Else
i = True
End If
End If
Loop
MsgBox prompt:="No se han encontrado mas registros", Title:="Fin de macro"
End Sub
R se refiere a la fila y
C se refiere a la columna.
Saludos!
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todo-expertos en un pequeño espacio en la página principal, si querés aprender más puedes ingresar en www.ayconcol.com/foro creas usuario y todo y listo! Si deseas ellos también elaboran aplicativos, páginas web y soporte a computadores a un costo muy bajo!
Muchas gracias Carlos por tu tiempo y ayuda me sirvió bastante
pero tengo un gran problema, cuando detecta una fila en cero y enseguida una fila vacía se detiene la sumatoria.
Como puedo hacer para que siga sumando aunque me arroje un cero.
Ejemplo:
Fila1 10
Fila2 20
Fila3 sumatoria 30
Fila4 0
Fila5 0
Fila6 sumatoria Aquí se detiene pero necesito que me de cero y continué sumando
Fila7 20
Fila8 20
Fila9 30
Fila sumatoria o en blanco
Gracias por tu ayuda y espero ser un experto de excel en el futuro
Y Nuevamente Gracias
pero tengo un gran problema, cuando detecta una fila en cero y enseguida una fila vacía se detiene la sumatoria.
Como puedo hacer para que siga sumando aunque me arroje un cero.
Ejemplo:
Fila1 10
Fila2 20
Fila3 sumatoria 30
Fila4 0
Fila5 0
Fila6 sumatoria Aquí se detiene pero necesito que me de cero y continué sumando
Fila7 20
Fila8 20
Fila9 30
Fila sumatoria o en blanco
Gracias por tu ayuda y espero ser un experto de excel en el futuro
Y Nuevamente Gracias
Es que el procedimiento de contingencia de que pare el sistema es cuando la suma sea cero... la única forma seria cambiar el código por este:
r = 3
c = 1
suma = 0
Do While i = False
Cells(r, c).Activate
If Cells(r, c).Value <> "" Then
suma = suma + Cells(r, c).Value
r = r + 1
Else
If suma = 0 And Len(Cells((r + 1), c).Value) = 0 Then
i = True
Else
Cells(r, c).Value = suma
r = r + 1
Cells(r, c).Activate
suma = 0
End If
End If
Loop
MsgBox prompt:="No se han encontrado mas registros", Title:="Fin de macro"
Listo!
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todo-expertos en un pequeño espacio en la página principal, si querés aprender más puedes ingresar en www.ayconcol.com/foro creas usuario y todo y listo! Si deseas ellos también elaboran aplicativos, páginas web y soporte a computadores a un costo muy bajo!
r = 3
c = 1
suma = 0
Do While i = False
Cells(r, c).Activate
If Cells(r, c).Value <> "" Then
suma = suma + Cells(r, c).Value
r = r + 1
Else
If suma = 0 And Len(Cells((r + 1), c).Value) = 0 Then
i = True
Else
Cells(r, c).Value = suma
r = r + 1
Cells(r, c).Activate
suma = 0
End If
End If
Loop
MsgBox prompt:="No se han encontrado mas registros", Title:="Fin de macro"
Listo!
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todo-expertos en un pequeño espacio en la página principal, si querés aprender más puedes ingresar en www.ayconcol.com/foro creas usuario y todo y listo! Si deseas ellos también elaboran aplicativos, páginas web y soporte a computadores a un costo muy bajo!
Buenos días Carlos, gracias por tu pronta respuesta y ayuda.
Ahora si quedo perfecto, es exactamente lo que necesitaba.
Muchas gracias por tu apoyo.
Que tengas buen día y espero que sigas apoyando a las personas que lo necesitan y claro espero que también yo pueda hacer lo mismo en un futuro.
Saludos
Ahora si quedo perfecto, es exactamente lo que necesitaba.
Muchas gracias por tu apoyo.
Que tengas buen día y espero que sigas apoyando a las personas que lo necesitan y claro espero que también yo pueda hacer lo mismo en un futuro.
Saludos
