Jump to content

Marcsan111

Members
  • Content Count

    25
  • Joined

  • Last visited

About Marcsan111

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola chic@s, Después de unos largos intentos fallidos, no me queda otra opción que buscar ayuda alguna alma caritativa Detallo lo que intento hacer con la macro, solo he conseguido que lo haga en la hoja activa pero no me recorre todas las hojas del Workbook. - Cada hoja tiene una tabla con unos datos. Necesito eliminar todas las filas de cada hoja desde B4 hasta lastrow -1 (la b3 tiene que quedar intacta, cosas de otra macro que tengo linkeada) y mostrar ese lastrow en la B4. - Las hojas llamadas "Balance..." deben excluirse en la macro ya que no hay datos en ella que eliminar. - Necesito dejar la última fila con datos de cada tabla en la B4 e insertar tantas filas como borradas. (para que la tabla siga teniendo las mismas filas que antes). Hasta ahora los chicos que usan este fichero tienen que hacer esto manualmente, y aunque me gustaría ayudarles me esta costando algo que funcione. He intentado entender los For Each.. Next. Pero a mi no me quiere funcionar... cosas de ser un novato en esto Agradecería enormemente si alguien puede sacarme de este laberinto en el que me encuentro jaja Muchas gracias a todos de antemano Como no puedo adjuntar el fichero lo he subido a drive. Si alguien no pudiera descargarlo se lo puedo enviar por email https://drive.google.com/file/d/1Cifj0MnfdxBXr9CZWRAg0gjgO16GNxcz/view?usp=sharing
  2. Espectacular! Es una delicia ir aprendiendo con vuestras aportaciones. Me has ayudado un montón! Mil gracias
  3. Hola Actualmente tengo funcionando un archivo que calcula la distancia entre dos puntos (A y B). de diferentes rutas. El problema está cuando en la misma fila intento calcular la distancia entre el principio de la ruta 2 con el final de la ruta 1. En el archivo adjunto funcionaría de la siguiente manera: I3: Distancia entre E3-F3 G3: Distancia entre F2-E3 Y así respectivamente.... Mi problema es que no logro adaptar el código VBA para que API tenga dos variables al calcular. Ya que he probado en hacer un calculo cambiando la matriz en G3 pero se me escapa algo ya que el calculo es erróneo. Si alguien pudiera echarme una mano lo agradecería Calcular Km dedicados.xlsm
  4. Muchas Muchas gracias Hector por tu respuesta. Basándote en el documento que subí, podrías orientarme como realizar el cambio de procedimiento a Sub para que se ejecutara tal y como me comentas?
  5. Hola chic@s, Tengo una base de datos algo extensa dónde calculo en una celda los km entre un punto de origen y otro de destino mediante la matriz =RUTA(A1,B1) por ejemplo. El problema es que debido a la limitación de búsquedas (o esa creo que es la razón) cuándo abro el archivo funciona perfectamente, sin embargo al rato deja de funcionar con lo que todos los datos "km" que se mostraban en las celdas desaparecen. Mi pregunta es, hay alguna manera de hacer referencia a esas celdas y guardar esos datos que se muestran en otra celda donde se vuelquen en forma de numero y queden enlazados pero sin depender 100% de la celda de origen? Es un problema para mi, porque si deja de funcionar la celda de origen pierdo todos los datos calculados en la base de datos. Los datos que deberían ser referenciados como únicos serian los de la columna E por ejemplo en la columna F mismo Adjunto un documento muy básico pero que creo servirá igualmente si podéis ayudarme. https://drive.google.com/open?id=1bRP4lZSGb73YGuIPODL7HUT9atfEmfno
  6. Hola @Haplox Primero de todo, muchísimas gracias por ayudarme. No es exactamente lo que necesitaba, sin embargo este procedimiento podré utilizarlo para el final de la macro que tenía preparada para más tarde. Me echaron una mano con lo que pedí más arriba por lo que con esto y lo que tengo es exactamnte lo que necesito. De nuevo muchísimas gracias y disculpa si no supe explicarme suficientemente bien
  7. Podrías subir el archivo e indicar que hoja quieres enviar en pdf? Esos archivos a adjuntar estarían siempre ubicados en la misma carpeta del sistema? Serian siempre el/los mismo/s? Que nombre tendrían y ubicación
  8. Hola chicos Podrías ayudarme en lo siguiente por favor? La macro debe ver si K2 "no" es igual a K3 copiar fila K2 en Hoja 1 y empezar a buscar en la de abajo en este caso K3. Si K3 y K4 son iguales entonces comprobar si K5 tambien lo es y así respectivamente hasta que no lo sea, entonces copiar en Hoja 1 todas las filas anteriores que si lo son (por ejemplo desde K3:K7). Una vez copiados empezar a buscar en K8. Esto debería ser en forma de bucle hasta unas 500 celdas. Mi problema es que no se como plantear esto en forma de Loop. Me quedo muy en el principio. Disculpad mi poco conocimiento Sub Buscar condición() Sheets("Detailed List").Select Range("k2").Select If Range("K2") = ActiveCell.Offset(1, 0) = False Then Rows("2:2").Select Selection.Copy Sheets("Hoja1").Select Rows("2:2").Select ActiveSheet.Paste Else Do ... ... Loop Adjunto el archivo en drive ya que no me deja adjuntarlo. https://drive.google.com/open?id=1EJKUlKcC09NUAicIQSEWyKxNAGc-A6ji Alguien podría ayudarme por favor, necesito automatizar el trabajo en mi oficina y esta es la única manera de no realizar cada día el trabajo 1 a 1. Muchas gracias de antemano
  9. Buenas tardes, Quería pedir ayuda en el principio de una macro. En el archivo adjunto podéis observar que en la columna J:J hay unos emails que en algunos casos se repiten y en otros no. Necesito encontrar una forma que haga lo siguiente: Que empiece desde la celda J2 coja ese email y compruebe si hay otras filas que coincidan con ese mismo email, si es así que seleccione todas y copie y pegue en la hoja 2 teniendo en cuenta los encabezados, si no hay otro valor igual que copie y pegue el único valor en la hoja 2. El proceso debería ser en forma de bucle, borrando contenidos copiados en la hoja 2 cada vez que hace la búsqueda de otro mail y empezando a partir de la última coincidencia copiada de la hoja 1, por ejemplo en el caso del adjunto seria: Cojo email de J2 no hay más duplicados por lo que copio y pego y vuelvo a buscar ahora en J3 donde hay 2 coincidencias por lo que copio y pego estas dos y sigo buscando (ahora empiezo a buscar en J5 donde solo hay una coincidencia copio y pego y sigo buscando en J6 donde tenemos 11 coincidencias copiamos y pegamos y ya iriamos a buscar la J17 y asi respectivamente. Todo esto será empalmado con una macro donde se pone a enviar mensajes uno detrás de otro, esta es la pieza angular de todo el procedimiento que vendrá después. Si queréis puedo compartirlo una vez acabado y podéis "criticar" todo lo que queráis que será bienvenido TrackExample.xlsm
  10. @bigpetroman muchísimas gracias, es siempre un placer aprender con vosotros. Esto me va a ayudar un montón, de verdad gracias
  11. @bigpetroman https://drive.google.com/open?id=0B0FpDdn6mihtWXR2elZLQ29JOUE https://drive.google.com/open?id=0B0FpDdn6mihtalNOMGEyRG1xTWc
  12. @pigpetroman perdona que te moleste, mira que he intentado adaptarla pero no consigo hacer lo que comenté anteriormente. La macro funciona a la perfección el único cambio que hace falta es que los datos en vez de copiarse en DDBB del archivo TORTJOE OFFER se copien en la misma hoja "DDBB" pero en el archivo BASE DE DATOS CENTRAL Podrias ayudarme?
  13. Gracias Bigpetroman intentaré adaptarla en unos momentos y os digo que tal Mi intención es que cada empleado tengo un TORTJOE OFFER TEMPLATE (para que nos entendamos) y que cada vez que clicken en el boton azul se vuelque en la base de datos general es por eso que pensé mejor hacer dos ficheros para que la base central no dependa de que alguien pueda borrar, no guardar etc etc igualmente creo que seré capaz de adaptarla a lo que necesito, si no seguro que me puedes echar una mano rapidita que aunque le echo ganas soy muy nuevo en esto de las macro Mil gracias chicos
×
×
  • Create New...

Important Information

Privacy Policy