Luis Mondelo

Te mando un ejemplo con esta macro: En esta macro estamos sumando el rango C3:C11 y el resultado lo pintamos en la celda C12 y también lo representamos dentro de un cuadro de texto al que hemos nombrado "cuadro" por comodidad Sub ejemplo() 'por...

Disculpa, ¿la columna A tiene datos hacia abajo? ¿Se acumula? Será mejor que me mandes un archivo con un ejemplo explicado para poder ayudarte mejor [email protected]

La macro que has encontrado se autodispara cuando se modifique la celda A1 de una determinada hoja. Debido a que es el evento worksheet_change debe de estar puesta dentro del objeto hoja en cuestión. Pero en tu caso que tienes varias hojas no te...

Te mando mi solución con esta macro: Sub proceso() 'por luismondelo Sheets("hoja1").Select Range("d2").Select Do While ActiveCell.Value <> "" If UCase(ActiveCell.Value) = "AA" Then ActiveCell.EntireRow.Copy...

Te mando mi solución con estas dos macros una para ocultar y la otra para desocultar: Sub ocultar() 'por luismondelo Range("b65000").End(xlUp).Offset(1, 0).Value = "end" Range("b2").Select Do While ActiveCell.Value <> "end" If ActiveCell.Value = 0...

En el siguiente enlace te dejo un archivo con el problema resuelto de dos maneras: En una pestaña lo tienes resuelto por macro y en la otra con fórmulas http://share.cx.com/L7ztby

En el siguiente enlace te mando un ejemplo de como conseguir el último dato de un registro. Cuando lo estudies lo podrás aplicar a tu caso http://share.cx.com/rVfHcc Recuerda finalizar

Me pongo con tu tema Espérame

Escribe esta fórmula en C1 =SI(Y(A1="";B1="");"";SUMA(A1:B1)) Recuerda finalizar

Te mando mi solución con esta macro: Sub proceso() 'por luismondelo columna = 94 Range("d11").Select Do Until ActiveCell.Column > 86 If UCase(ActiveCell.Value) = "M" Then Cells(9, columna).Value = suma columna = columna + 1 suma = 0 GoTo salto End If...