Actividad pública reciente
Ha valorado "Excelente" la respuesta
Sumar rango y resultado en otra celda
Vamos a ir por partes: Con el primer código obtendríamos el valor de la suma de las celds seleccionadas '--------------------------------------- Sub sumaymarca() mirango = Replace(Selection.Address, "$", "") total = 0 For Each mi In Selection total =...