Sumar con macro rango variable

[gerardocong]

Buenos dias:
He buscado un rato pero no encuentro la solucion, estoy haciendo una macro la cual busca en la columa A el texto "Suma cargos" y de ahi se situe en la celda de la derecha y sume todo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[varela_b]

hola

a ver si te sirve esto
Sub Cargos()
Sheets("hoja1").Activate
Range("A1").Select
While ActiveCell.Value <> " "
sTexto = Left(ActiveCell, 11)
If sTexto = "Suma Cargos" Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gerardocong]

Ok, Esta muy bien, solo que cuando corro la macro no me pone el resultado en lado de la Hoja y al parecer la macro entra en un ciclo interminable, de tal manera que no para.

Me serviria mucho si...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[salvador]

Sub suma()
Dim texto As String, suma As Variant
texto = "suma cargos"
suma = 0

[a:a].Select
' suponiendo que la columna que quieres sumar es la A:A

Selection.Find(what:=texto, after:=ActiveCell...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gerardocong]

¡¡Ya quedo!!, Muchisimas Gracias.

Saludos.

 

[gerardocong]

Para complementar esta es una respuesta de yonigrinduod. a una pregunta similar:

Sub PruebaEsto()
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Dim Rg As Range
With ActiveCell
Set Rg...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí