Foros


Inicio » Excel

Tópico Nuevo
Contestar
Facebook
Facebook
Twitter
Twitter
Imprimir
Imprimir

Página: 1

Mensaje Autor

Arriba
07/Jul/22 20:00
Hoja Electronica Mov del mes agrecar hoja electronica mensual (30 Clientes)

1.-Cada mes manualmente realizo esto, para 30 Clientes, informacion del mes , copiarlo al acumulado ( Ventas, Gastosy Nomina)

Tenia tiempo tratanto de realizarlo en 'Macros', pero no funcionaba

La Solucion fue: al estar registrando los pasos del macro , intercambiar entre Macro Absotulo y relativo. (Funsiono) !

2.-Tengo que utilizar este macro para 30 archivos

Solucion salvar este macro en 'Personal.xlsb'

y 'quick AccessToolBar'

Como me ahorro tiempo

le comento esto para pongan a investigar , lo que puedan hacer con Excel

Saludos
 
Perfil

konli
Subteniente

Mensajes: 133
Ingresó: Octubre 11, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
22/Ago/22 11:04
Re: Hoja Electronica Mov del mes agrecar hoja electronica mensual (30 Clientes)

Buen día, Excelente, también trabajo con macros la mayoría de mis reportes, con un poco de investigación e interés podrán realizar su propias macros para agilizar las tareas personalizadas

Por ejemplo
Sub insertacol() 'Inicia la macro
For Each Worksheet In Worksheets 'Para cada hoja en el libro
For i = 3 To 30 'recorre de la tercer coluna hasta la treinta
If Cells(1, i).Value = 'Destajo' Then ' Si el valor de la fila 1, columna (n) es Destajo inicia bucle
Cells(1, i).EntireColumn.Insert ' Entonces inserta una columna completa
Cells(1, i).Value = 'Producto' ' le pone en el encabezado (Fila 1, columna (n)) el nombre
i = i + 1 'como agrega una columna, sumamos una en el conteo
End If ' termina la condición si
Next ' pasa a la siguiente columna
Next Worksheet 'Pasa a la siguiente hoja, después del bucle
End Sub 'Termina la macro



Saludos
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2077
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Próximos cursos y eventos
Anuncia tus cursos y eventos

Página: 1