Sumar Si; Pero Con Parte De Un Dato

[jpina]

Amigos de exceluciones, necesito hacer una suma que comprenda, parte de los datos de las celdas de codigos, espero se pueda hacer.
les envio un xls (solo una pequeña parte, por que el archivo...

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í

 

[TodoExcel]

Hola: te adjunto la fórmula q necesitas.

En una celda podrás poner el código y en la otra está la suma.

Podrás adaptarla a gusto.

Aviso: lo he armado para poner los 2 últimos Nº del código...

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í

 

[galileogali]

Tambien puede ser algo así­:
=SUMAPRODUCTO((EXTRAE(B2:B35,3,2)="08")*(D2:D35)), o reemplazar "08" por la referencia a la celda de la Izquierda misma fila, y poner alli la referencia que se quiera...

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í

 

[jpina]

GRACIAS, POR SU AYUDA,
PARA GALILEOGALI, LA FORMULA QUE ME SUGIERES NO ME RESULTA =SUMAPRODUCTO((EXTRAE(B2:B35,3,2)="08")*(D2:D35)) EL CURSOR SE POSICIONA EN B:35 Y NO ME LA ACEPTA, TE...

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í

 

[jimcov]

aqui va mi aporte

Dim Total As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Total = 0
For a = 1 To 5
Total = Total + Right(Worksheets(1).Range("a" & a), 3)
Next a...

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í

 

[galileogali]

Retornan: Tu archivo con la FORMULA pegada en el lugar que corresponde, la copie de la que te mandé
la verdad no entiendo que pudo no haber funcionado, en tu caso.....

Hasta Pronto
Gali

 

[jimcov]

me olvide decirte que

Total = Total + Right(Worksheets(1).Range("a" & a), 3)

en esta linea le indica cuantos caracteres debe sumar (en rojo)

 

[jpina]

GRACIAS A TODOS LOS "GRANDES EXCELIANOS"
PD.
: PARA JIMCOV, QUE SUERTE ENCONTRAR UN CHILENO...
SABES LO QUE TU ME ENVIAS ES UNA MACRO... ESTOY RECIEN INTRODUCIENDOME EN EL TEMA
ESPERO PODER...

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í