Pafego

Jaime Segura respondió: listo... Aquí va: El subprograma aplica solo sirve para mostrarte como llamar a la verdera macro que es "junta" "junta" es una subrutina que tiene 3 argumentos: el rango a unir, el separador para que esos valores no salga juntos(normalmente un...

Jaime Segura respondió: OPCIÓN 1: Escribe en un módulo esta macro: Sub reparte() Dim frac As Double, resta As Double frac = 125 resta = ActiveCell.Value i = 1 Do While resta > frac resta = resta - frac ActiveCell.Offset(0, i) = frac i = i + 1 Loop ActiveCell.Offset(0, i) =...

Jaime Segura respondió: Para que se dibujen los cuadros agrega: Como segunda línea del código Dim rango As range, i as integer y casi al final, antes de la linea de Msgbox "Terminado": Set rango = Range("A8:M" & h3.Range("B" & Rows.Count).End(xlUp).Row) For i = 7 To 12 With...

Jaime Segura respondió: Yo te pediría que especifiques que significa "tengo un documento".. ¿El nombre del documento lo tienes tipeado en Excel?... ¿Es un solo documento? ¿Son varios? Quieres que Excel obtenga el nombre de un único documento... ¿o los nombres de varios? Si...

Jaime Segura respondió: Supongamos que tus fechas inician en A1 (si estan en otra celda, adapta) En A1 escribe una fecha y mejor si le pones un color de fondo diferente En A2 escribe la fórmula =A1 y arrástrala hasta A100 Luego selecciona A1:A100, y copia el rango en A101...

Jaime Segura respondió: Abre el archivo y verifica la propiedad UserStatus Workbooks.Open "c:\Book2.xls" ' cambialo por la direccion web real userAct=ActiveWorkbook.UserStatus If Ubound(userAct)>1 then Msgbox "Ya esta abierto por otro usuario" End if

Jaime Segura respondió: Listo, ya te mandé lo que solicitabas... quizás era más fácil hacer un collage entre Query y VBA pero al final salió todo con Query, por lo que el archivo hará toda la consolidación sin usar macros. Eso si, la complejidad que te mencioné me obligó a...

Jaime Segura respondió: Aquí hay un código bastante completo y flexible, preparado a prueba de varios errores posibles. No olvide leer atentamente las instrucciones en los comentarios iniciales No olvide valorar la respuesta Saludos, Jaime ' Macros creadas por Jaime Segura...