UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

RAMONET6466


Lo que intento conseguir es que los datos o valores de las celdas que están en blanco, cuando los introduzca
vayan a parar a las hojas de cada proveedor en sus respectivas celdas. 
Hay dos problemas que no logro conseguir:
El primero es que estos datos cambian de fecha diariamente
y por lo tanto se deberían pegar en las celdas libres inferiores correlativas, puesto que si utilizo la formula
=plantilla!b5 por ejemplo en la hoja de cada proveedor, me pisa los valores anteriores y no quedan las facturas una debajo de la otra.
y el segundo problema a conseguir, es que cada mes limpio las hojas de valores e inicio una contabilidad nueva para el mes en curso, por lo que cuando limpio la hoja me borrara los valores y las formulas, cuando lo único que deseo es limpiar o borrar los valores o datos y no las formulas.
Alguna solución compañeros?
Agradecido a todos de antemano.


link archivo:
https://www.dropbox.com/s/wc721seoq48ksf8/MUESTRA%20EXCEL%20FORO.xlsx?dl=0

Igtelo

avatar
Hola Ramonet.

Con ésta macro resuelves las 2 cosas, ya está en tu archivo en módulo1. Te sirve para 100 facturas de tu Planilla, si requieres más o menos sólo modifica en WorksheetFunction.
Código:
Sub Pasa_Datos()
'Para todas las hojas que contenga el libro

Application.ScreenUpdating = False
fecha = Range("F2").Value
c = WorksheetFunction.CountA([B5:B200])  'Cuenta cantidad de facturas que existen columna B

For w = 5 To 5 + c Step 2   'Bucle, avanza de 2 en 2 porque tienes filas intercaladas en blanco.
   prov = Cells(w, 4).Value  'Variable para obtener nombre de proveedor=nombre de hoja
With Sheets(prov)
  .[I100].End(xlUp).Offset(1) = fecha           'Fecha
  .[A100].End(xlUp).Offset(1) = Cells(w, 2)  'Factura
  .[B100].End(xlUp).Offset(1) = Cells(w, 6)   'Iva 4%
  .[C100].End(xlUp).Offset(1) = Cells(w,    'Iva 10%
  .[D100].End(xlUp).Offset(1) = Cells(w, 10)  'Iva 21%
End With
Next

Application.ScreenUpdating = True
End Sub


https://www.dropbox.com/s/rmtric7oy1n9kcv/Igtelo-Ramonet-%20IVAs.xlsm?dl=0

Saludos
Ignacio Téllez

RAMONET6466


muchisimas gracias Igtelo, voy a probarlo y te digo.

RAMONET6466


Hola Igtelo:
Ahora mismo llevo 14 horas intentado averiguar porque no me funciona cuando aplico tu PERFECTA solución en mi libro.
De primeras he visto que en el archivo que te envié, al hacerlo puse mas columnas de las que existen en mi libro, pero e intentado adaptar tu formula a la hoja, y me da error.
No quisiera abusar de tu confianza y entendere que no dediques mas tiempo a mirar donde me equivoco.
Si no es asi, y  crees que puedes revisar, te adjunto la hoja que tengo y las correcciones que he echo para adaptar tu formula, la cual no logro hacer funcionar.
Link archivo con las correcciones que he hecho:
https://www.dropbox.com/s/500ctc9py7k1k7v/MACRO%20IGTELO.xlsm?dl=0

Igtelo

avatar
Hola Macronet.

Aquí va, NO cambiamos la macro, sólo ajusté en base a columna auxiliar, esta es necesaria porque los nombres de tus proveedores no corresponden con los nombres de tus hojas. La columna auxiliar la puedes ocultar.

Claro que con macros se puede evitar la columna auxiliar, pero no se justifica hacer más código cuando tenemos la opción de auxiliarnos con otra columna.

Te dejo explicación en el módulo para que le entiendas a las sentencias.

https://www.dropbox.com/s/iea9ucmud3bsrir/Igtelo-Macronet-MACRO%20.xlsm?dl=0

Saludos
Ignacio Téllez
P.d: Te felicito por haberle dedicado muchas horas, eso me gusta, que le busquen, así se aprende y avanza.

RAMONET6466


Sr. Ignacio, un autentico placer haberle conocido, y que Vd. me haya brindado la oportunidad de avanzar en este mundo excel.
Ya le comente que nunca he estudiado Excel y a base de tutoriales en youtube he conseguido un libro excel que contables profesionales y propietarios del sector de la hosteleria me han pedido copias para adaptarlo a sus necesidades.
Aun me queda mucho que aprender, porque como siempre, todo se puede mejorar.
Pero bien cierto es que sin su aportacion, hubiera sido dificil que por mis conocimientos, hubiera dado con la solucion.
Ahora voy a por la macro de facturacion a clientes para incluirla en el libro, seguro que le molestare una vez mas solicitando su ayuda, aunque intentare no molestarle.
Sr. Ignacio muy agradecido por todo, lastima que Vd. esta en Mejico y yo en Catalunya, si estuviera Vd. en España, estaria invitado a comer en mi restaurante.
Saludos de corazon.

Igtelo

avatar
Que tal Ramón.

Bien que ya quedó solucionado, ahora por favor tíldalo como resuelto, lee las normas del foro.

Los que participamos en foros la mayoría (si es que no todos) aprendimos tal como tú estás iniciando.
Los videos son buenos cuando buscas algo preciso pero para ello ya debes tener cierto conocimiento, el error que todo aprendiz comete es que se olvida que Excel trae la ayuda integrada y no aprenden como está estructurada una sintaxis y después se andan quebrando la cabeza, te recomiendo que esta sea tu fuente básica.

Hay muchos blogs donde te enseñan como aprender y manejar las funciones, también recurre a ellos.

La invitación la acepto, cuando vaya por allá te "caigo" para comer juntos, gracias.

Saludos
Ignacio Téllez

RAMONET6466


Me costo pero por fin conseguí adaptar la macro al libro, y ya funciona perfecto.
No puse resuelto hasta que no lo consegui hasta ahorita mismo.
ahora voy a por la macro de facturacion a ver si la consigo realizar.
Mil gracias Igtelo

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.