Saltar al contenido

ikanni

Miembros
  • Contador de contenido

    233
  • Unido

  • Última visita

  • Days Won

    8

Sobre ikanni

  • Rango
    Miembro

Información de perfil

  • Sexo Array
  • Localización: Array

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

995 visitas de perfil
  1. Holasss U72...... lo tenias facil para arrglarlo cambiando solo un numero . Fijate con otro pequeño cambio se podrian conseguir Todas... Que lo disfrutes.. SAludos Traspaso.xlsm
  2. Hola u0720140 Prueba esto... Nota : segun te he entendido y he visto en el ejemlo que has colocado, entiendo que hay que pasar por todas las hojas y supongo que todas las hojas son de la misma estructura. Espero te sirva Saludos Traspaso.xlsm
  3. Hola Pirtrafilla, Hace tiempo hice este ejemplo para algun foro. Lo que hace es recojer una 'firma' en un archivo bmp. Tienes que crear una carpeta (Se tiene que llamar: Firmas, lo puedes modificar) que cuelga donde está el archivo excel.. En la carpeta Firmas guarda los archivos. Y el nombre del archivo es el dato ID, que esta en B2 Trabaja con un Formulario Ahí tienes para empezar a trabajar. SAludos Ikanni RecojeFirmas.xls
  4. Hola NickMartinez y JSDJSD, La solucion de JSDJSD está perfecta. Pero bueno me he preguntado sí se podría hacer solo con un bucle en vez de con dos. Y sí se puede. Aquí va otra manera pero con un solo bucle. Espero os guste.😂 SumaColumnas.xlsm
  5. Hola Comi y demás, Hoy estaba aburrido y por mantener la soltura en la programación de VBA, te he hecho el trabajito. Antes de responder que no te funciona, lee las notas que te he puesto en el codigo. Tienes que activar una referencia. Espero que te funcione y que te guste ;-) Copia de Ejemplo.xlsm
  6. eugeniocol Vayamos por partes: Supuesto: Todas las Hojas, donde se va a ejecutar la macro, deben estar estructuradas de la misma manera. Parece que se ejecuta desde un Formulario ya que veo que hay Textbos, Listbox, etcc... Pero tambien veo un bucle que ataca las celdas directamente (Cells(x + 1....) Entonces lo unico que necesita la macro es saber con que hoja está trabajando. Pues pasemos le una variable con la hoja donde se va a ejecutar. Crearia un Procedimiento Sub en un modulo independiente. Y copiaria todo lo que has puestoy cambiaria lo que te pongo Sub TuNombreDeProcedimiento (TuHoja as Sheets) 'Todo ......... With TuHoja .Cells(x+1, .... end with Y lo Llamas desde el procedimeitno privado 'Al Hacer Click' Private Sub CommandButton1_Click() call TuNombreDeProcedimiento (ElNombreDeLaHojaApasar) End Sub Espero Te sirva en tu desarrollo Saludos
  7. Hola a todos, Escribo por dar otra opinion diferente. Y ya que tienes la database con la tabla ¿Por que no importantas directamente desde access? En vez de crear conexiones ADO y todo eso..., Acces tiene la facilidad de que la exportación y la importación de datos con Excel lo tiene automatizado en su propio sistema. Luego con cuatro ejecucuiones SQL selecciono, filtro o lo que quieras y las añado a la tabla Contable. COn todo en su sitio. Con respecto a tu ejemplo, habria que hacer algun pequeño cambio para poder automatizarlo con garantias.Hay que añadir un ID a la excel y otro a la tabla Contable para el Index COmpuesto por los campos que querias filtrar (CONCEPTO,...) y hay una tabla auxliar para poder jugar con los registros. Te dejo un jemplo como para tu trabajo. Espero que os sirva DataBase.rar
  8. Hola nickMartinez y demás, Le he echado una ojeado a la excel y lo tienes fácil convertir la excel a access. Y das el paso a Access, que te gustará. Yo creo que para manejo de datos es mejor usar Access. He hecho en cinco minutos una base de datos con un formulario y una consulta (echale una ojeado para ver como funciona SQL de access) y los wizards de access 2010 y mas te ayudaran en los primeros pasos. Es el primer ladrillo para una casa bien bonita. Database1.rar
  9. Hola Buenas, Me he dado cuenta que había un fallo Bueno ahi esta reparado y funcionando Copia de Risultato_Codice _Cap.xlsm
  10. Según te he entendido con tu ejemplo... Entiendo tambien que como lo pides en este foro quieres que sea una macro, ya que seguramente mas de uno en este foro, te lo hace con funciones. Con Macros también se puede hacer de varias formas. Aqui va la mia. Cómo no se la complejidad de texto que puedan tener los codigos, lo ideal sería usar el objeto dictionary. El codigo lo he comentado para que practiques con este ejemplo y así lo podrás usar con otras situaciones que vendrán en el futuro muy parecidas ;-) Saludos Copia de Risultato_Codice _Cap.xlsm
  11. Hola Jose, No veo las imagenes, pero da igual si cumple la condición eso significa que lo que te puse funciona., pero el código para hacer la copia pues parece que no te funciona. Ahora no tengo tiempo ayudarte.... Doy por hecho que te crea la nueva hoja con el año nuevo y te hace el resto, entonces parece ser que te falla : .... Workbooks("Control JOLOCO Almacenes V 9.9.4.xlsm").Worksheets("Salidas").Copy _ After:=Workbooks("Reporte anual de Salidas.xlsm").Sheets(1) ' copiar hoja en otro libro ....... Sigue el codigo Paso a Paso y mira a ver porque no te hace la copia, seguro que encuentras la solución. Si luego sí tengo teimpo me paso y veo...
  12. Sino pasa es que esta igualdad es falsa. Por lo tanto ahí es donde esta el problema. Haz seguimiento a los datos que recojen las variables y vete depurando. Si sabes usar debug úsalos y sino ponte msgbox para ver que valor cojen. por ejemplo No sé ayudar más. ... msgbox VBA.Format(CDate(fecha), "yyyy") + 1 & "/" & VBA.Format(Date, "yyyy") If VBA.Format(CDate(fecha), "yyyy") + 1 = VBA.Format(Date, "yyyy") Then ...
  13. Hola, Pues no se que puede pasar, es tan sencillo el codigo que tu mismo lo podrias reparar. Yo pondria un punto de interrupción en el If ...... y ver que datos esta pasando y actuar en consecuencia, es que el codigo no tiene mas complicación. No se me ocurre otra cosa.
  14. Hola Gerson, En mi ejemplo, no falla el objeto REGEXR, sno que falla el patrón que hice, soy un principiante en la creación de patrones de busqueda. Por eso puse '''''El patron que he creado para tu caso es mejorable , pero bueno es lo que hay .''''' Tambien es verdad que los ejemplos que hay en el ejemplo no son reales, pero para probar hay que forzar extremos de busqueda para ver como se comporta. SI usas nombre reales fallara menos, creo.Y otra solucion es mejorar el patron, que mejorable es. Es cuestion de dedicarle tiempo, como a todo en esta vida. Saludos
  15. Hola a todos, Para comparaciones con cadenas de texto lo ideal es el objeto Expresiones Regulares y no cuesta nada crear un medio funcional. Lo complicado de las expresiones regulares es crear el patrón perfecto, pero da mas juego interpretativo que ir letra a letra. El patron que he creado para tu caso es mejorable , pero bueno es lo que hay . Así que cojiendo unas cosas de Antoni del código de arriba y los datos del ejemplo de Gerson, aqui tienes un ejmplo. Si necsitas que se implemete en tu trabajo tendras que poner una excel que se parezca a lo que tienes hecho. Espero te sirva Buscar frases por fonetica_IK.xlsm
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.