prozac

Adjunto te envío un código de ejemplo donde sitúa diferentes campos en las áreas de una pivot table de ejemplo. Creo que ahí puedes ver que necesitas. With ActiveSheet.PivotTables("PivotTable1").PivotFields("Campo1") .Orientation = xlPageField...

En las celdas A2, A3... simplemente te vale con escribir =B1 en A2 y arrastrar para que te quede: = B1 = B2 = B3 ... En cuanto a la fórmula que te da la fecha actual es =Now(), pero si la escribes en B1, B2, ... siempre te va a poner la fecha de hoy...

Hay varias formas de hacer lo que pides. Quizá la mas correcta es usar un bucle while o loop while comprobando que la celda en cada iteración no está vacía. La forma más sencilla a la vista de tu código seria calcular la ultima celda no vacía y usar...

No tengo claro lo que quieres cuando hablas de borrar la imagen. Para que la macro no se ejecute si la celda esta vacía basta con añadir la condición en el if. Sería algo así: If (Not Intersect(Target, Range("A1:A30")) Is Nothing) AND _ (Target.value...

Me temo que tu código tiene varios errores sintácticos y alguno semántico que hacen imposible que funcione. Por ejemplo, no te debe funcionar Rows("cnt:cnt").Select porque "cnt:cnt" es un string. En su lugar es: Rows(cnt & ":" & cnt).Select Aun así...

Bueno quizá lo más fácil e inmediato es usar filtros. Si usas Excel 2007 o posterior está en Home/Editing/Sort & Filter. Así que: 1. Seleccionas las celdas de cabecera desde nº hasta grado y sección. 2. Vas a Home/Editing/Sort & Filter y eliges...

Bueno una forma a mano, pero que no necesita macros y no es costosa en tiempo es hacer lo siguiente: 1. Hacer todas las combinaciones posibles. Para ello arrastras y pegas el 1 seis veces, lo mismo con cada elemento de la primera fila. En la segunda...

Creo que sí te puedo ayudar, per tendrás que decirme qué partes no entiendes. Este tipo de código representa siempre un problema, y es que no tiene comentarios. No hace falta comentarlo todo pero al menos algún comentario ayuda a entender las cosas....

Sin entrar en un análisis profundo del código veo el procedimiento SendNotesMail2 tiene como segundo parámetro el nombre del fichero a enviar. Ahora mismo envía el propio fichero ya que es lo que le pasa al procedimiento. Para que por ejemplo envié...

Tu código hace dos búsquedas cada vez que se ejecuta porque tiene Cells. Find y Cells. FindNext. En ambos casos busca el texto a partir de la celda activa en ese momento. Es decir, desde la celda que tengas seleccionada hacia abajo y por columnas...