Tor Cheer

Con esta macro puede ir a la siguiente celda uf = Sheets("Hoja13").Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Cells(uf + 1, 1). Activate Sustituye la Hoja13 por el nombre de la hoja de su archivo, al columna "A" por la columna de su archivo,...

Al iniciar la macro agregue lo siguiente If Txtdato1.Text = "" or Txtdato2.Text = "" Then mensaje = MsgBox("Datos imcompletos", vbOKOnly) Exit Sub Else 'Aqui pone la macro End if

Con esta fórmula obtiene el resultado deseado, sustituye las comas(,) por punto y coma (;) para que no le de error. Le da formato de porcentaje a la columna % =B2/SUMAR.SI.CONJUNTO(B:B,A:A,A2)

No me queda muy claro, puede subir una imagen con sus datos y ampliar lo que necesita para poder ayudarle

Podría hacerlo con una fórmula, sustituye las comas(,) por punto y coma (;) en la fórmula para que no de error, cualquier cosa comenta =SI(B2="TOTEM","PEQUEÑA",SI(B2="VINILO 60 CM","PEQUEÑA",SI(B2="VINILO TEXTO","PEQUEÑA",SI(B2="VINILO 160...

Con su correo de gmail en onedrive puede subir el archivo y compartir el enlace

Puede subir una imagen con un ejemplo para ver como están sus datos y en donde quiere el resultado y poner el resultado manualmente para comprobar el resultado correcto mediante fórmula.

Suba una imagen de sus datos y ahí explique de forma gráfica lo que necesita para entender mejor y poder ayudarle

Ponga un punto de interrupción y vaya paso a paso, ahí encontrara en que dato esta el error.

Me gustaría saber en que momento muestra las 63 columnas y en que situaciones quiere ocultarlas, si comparte una copia de su archivo con datos ficticios o un ejemplo completo quizá sea posible entender más a fondo su código y ayudarle.