Buenos dias compañeros seria posible que me ayuden con el siguiente tema, quiero hacer una macro que me compare los dos últimos datos de una columna dinámica de tal manera que si el ultimo es mayor tome el promedio de los dos dos datos y si es menor tome ese valor. Además después se compare con el ultimo dato de una columna de otro libro de tal manera que se tome el menor de estos dos. Agradezco en lo que me puedan orientar, estaré atento a sus comentarios.

hola a todos: bueno les cuento, tengo un formulario en el cual tengo un botón para buscar un archivo que luego lo ingreso como hipervinculo en una celda del excel, ademas tengo un botón para imprimir, acá esta mi duda, como puedo imprimir la hoja del libro de excel mas los archivos que yo ingrese los cuales están como hipervinculos ... (los archivos que quiero imprimir son "pdf" y "word") acá adjunto el archivo ojala me puedan ayudar ... Saludos. Salexis89 hiperlink.xls

Un Saludo a tod@s, y daros las gracias por vuestras respuestas. Tengo una consulta y despues de buscar en el foro no he encontrado el codigo que me vaya bien, lo que pretendo es enviar un libro excel a traves de outloock, es decir cada dia de la semana se envie por correo a las 06:00h un determinado libro, a tres destinatarios diferentes, es esto posible? Gracias de Nuevo y un saludo.

Hola comunidad estoy buscando ayuda para un predicamento , estoy tratando de automatizar un proceso que realizo a diario y lo que quiero es que la macro filtre la base y si en la base no hay criterio,debe validar otro criterio de la base en otra columna y asi sucesivamente. Pongo el codigo de lo que encontre para saber si esto me sirve ya que no entiendo muy bien como funciona Sub Filtrar() Se define el criterio para filtrar. Pero si este no existe criterio que pasa criterio = [B1] Entiendo que aca se hace un si que si el criterio es vacio pues creo que solo filtra, o sea que en este paso podria colocar el segundo validador? If criterio = “” …

Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …

Hola!! Quisiera que me ayuden al seleccionar una opcion de la lista desplegable de validacion de datos me de toda la informacion relacionada a esa opcion, ejemplo es decir yo tengo los meses en la lista desplegable de una data y que al seleccionar ENERO ME ARROJE las ventas de ese mes , los clientes, etc. Me pueden decir si puedo hacerlo con macros manualmente ya que no manejo visual y diganme coo hacerlo porfa. Les adjunto un archivo de ejemplo Ejemplo vd.xls

Hola, tengo esta macro y poquisimo conocimientos del tema. La macro deberia eliminar la hoja cuyo nombre se escriba en el InputBox nombre hoja, pero se detiene cuando deberia tomar el nombre de la hoja. Sub EliminaCuenta() Application.ScreenUpdating = True Dim NombreHoja As String Dim Entrada As String Dim cuenta As Worksheet Entrada = InputBox("Ingrese contraseña para continuar", "Proceso Protegido") If Entrada = "nacho" Then If MsgBox("Estas seguro de borrar una cuenta? No podrá recuperarse", vbQuestion + vbYesNo) = vbYes Then NombreHoja = InputBox("Escriba un nombre de la cuenta:") NombreHoja = cuenta<--Esta parte es donde se detiene la m…

Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…

Hola estoy intentando conectar Excel a SQLITE pero no hay manera. Mi sistema: Excel 365 y Windows 10- 64 bits Lo que tengo es lo siguiente: With cnn .Provider = "msoledbsql" .ConnectionString = "DRIVER=" & Driver & ";DataBase=" & Ruta & Fichero '& ";": c_error = True .Open End With Está instalado el driver "SQLite3 ODBC Driver" y la referencia Microsoft ActiveX Data Objects 6.0 Library. Pero me da el error "invalid connection string attribute" ¿Alguien me puede echar una mano con esto? Muchas gracias por anticipado.

Buenos días a la comunidad, Soy principiante en el tema de formularios y me gustaría saber si alguien me puede ayudar con algún modelo de excel que tenga con un formulario para introducir datos y generar una base de datos. Lo que tengo que crear es una base de datos con Ordenes de fabricación. Gracias de antemano por vuestra colaboración.

Estimadas/os, Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente. La macro sería la siguiente: Sub Enviar_Rango_a_Destinatario_de_correo() ActiveSheet.Range("AG2:AX14").Select For i = 1 To 13 ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value .Item.cc = ThisWorkbook.…

Buen día compañeros, espero que estén bien. Quiero molestarlos, ya que no logro encontrar solución a lo que necesito. Lo que no logro encontrar es cómo crear una lista validada en Excel, pero que tenga datos consecutivos, es decir, colocar en la lista los números del 1 al 1000 (por ejemplo), pero sin necesidad de estar escribiendo los números dentro de la lista. Sé que muchos dirán que con hacer una lista en una hoja vacía del 1 al 1000 se logra el cometido, pero no es lo que necesito, ya que no quiero llenar el archivo de hojas inútiles y que en algún futuro pueda ser manipulado. Entendería que no es necesario un archivo, puesto que no solicito macro o sim…

Quiero importar los datos de mis turnos de la intranet de mi trabajoa una hoja de excel pero cuando pongo el enlace para importarlo se trata de un link en el que hay que introducir primero unas claves de acceso y depues elegir de una pantalla la opción que me lleva al calendario que deseo exportar. Cuando lo he intentado de forma normal me exporta una serie de datos erroneos y sin sentido. Por si sirve de algo el primer enlace es http://intranet.globaliacc.com/ - TRas introducir las claves se accede al enlace http://intranet.globaliacc.com/globaliacc/jsp/intranet/index.jsp -Despues he de elegir la opcion aplicaciones y despues calendario de grupo - Es entonces cuand…

extraer siglas o iniciales de un nombre completo exeptuando "del" o "de" hola buenas noches aqui molestando con otra duda pues quiero hacer que en un textbox aparezcan las iniciales que contenga otro textbox: es decir; ejemplo: que si el -txtnombrecompleto- contiene "juan perez velazquez" quiero que en el -txtsiglasnombrecompleto- aparescan "jpv", pero si el -txtnombrecompleto- contiene "maria de los angeles montenegro barraza" que en el -txtsiglasnombrecompleto- "mamb" y elimine ese "de" o si fuera el caso de "maria del pilar" quite ese "del". Estuve investigando en la red del como hacerlo pero ninguno tiene esas excepciones que necesito y pues hasta ahorita no se c…

Buen día, tengo el siguiente problema: Necesito insertar un comentario en una celda de un registro de datos que se va completando a través de un Userform. Uso el siguiente código (En rojo, las líneas que insertan el comentario en la celda): Set TransRowRng = ThisWorkbook.Worksheets("RESUMEN GENERAL").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("RESUMEN GENERAL") .Cells(NewRow, 1) = CDate(txtFechaUno) .Cells(NewRow, 2) = UCase(TextBox1.Value) .Cells(NewRow, 3) = Format(TextBox3, "00"".""000"".""000""-""0") …

Hola chavales! Os comento mi GRAN problema y que me trae loco. Estoy trabajando con un libro de excel que tiene 'Código de Barras' y claramente hay código de barras que empiezan por 0. La cosa es que tengo un historial de bastantes código de barras y necesito contar cada EAN cuanta veces está repetido. Teniendo en cuenta que en la columna 'A' están todos los códigos de barras pues en la columna 'B' utilizo el famoso 'contar.si' Hasta aquí todo bien pero el problema es que los EAN que tiene 0 al principio no lo tiene en cuenta haciendo que me cuente dos codigo de barras totalmente distinto como si fuera el mismo. Adjunto foto para que me entendáis y también …

En el archivo que adjunto hay un modulo llamado modulo 1 en el que quisiera ejecutar todas las macros de los otros módulos que estan en el mismo libro pero no sé solucionar el error que me dá. Alguien puede ayudarme? Muchas gracias al foro y a los colaboradores Borja aleman 2013-14.zip

Buenos dias colaboradores, me gustaria que me orientaran para poder ejecutar esta macro, sin la necesidad de crear un nuevo libro y que ejecute un modulo despues de abrir el libro: Sub Crea()Dim nombre, libro, nombre_final, libro_final As String Set XL = CreateObject("Excel.Application") XL.Visible = True para = 0 a = 0 'Creamos el libro resultante nombre_final = Cells(3, 3) & "." & Cells(2, 3) libro_final = Cells(1, 3) & "\" & nombre_final While (para = 0) nombre = Cells(5 + a, 1) libro = Cells(1, 3) & "\" & nombre If nombre <> "" Then XL.Workbooks.Open libro If a = 0 Then XL.ActiveWorkbook.SaveAs libro_final,…

Hola, De que forma puedo eliminar las filas de las celdas que tienen un texto? Me explico, estoy usando este codigo SuB test() [H:H].Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Select Selection.EntireRow.Delete End Sub Y me da error, he buscado y me parece que no se puede usar así, creo entender que no se pueden combinar estas dos cosas (xlCellTypeConstants, xlTextValues) La pregunta es. Como puedo seleccionar/eliminar las filas que tienen constantes texto. Gabriel.

muy buenas tardes alguien me podría ayudar con mi formulario por favor, tengo un formulario que contiene un listbox en el cual me muestra todos los datos de una tabla, también tiene 4 combobox con los cuale quisiera hacer filtros con cada uno, pero buscando he buscado en Internet filtros con conbobox y solo he hallado 1 que me pareció que funcionaria, pero no lo hizo, el combobox que filtra fechas solo me deja el listbox vacio los combobox filtran fecha, sección , detectado y el ultimo por hora, pero ese ultimo no lo necesito por el momento solo los otros 3 que mencione primero espero que que me puedan ayudar y gracias de ante mano PRUEBA3.0.xlsm

Buenos días, He creado una ficha en la que resumo los datos anuales de la actividad que tiene un cliente. Éstos datos los importo de la primera hoja del libro. Pero ésta primera hoja siempre tiene un numero diferente de filas, (los datos de ésta hoja 1 los pego desde otro libro en excel que recibo de otra fuente distinta). Necesito una macro o una formula que me permita crear una fila en mi ficha (hoja 2) después de la última fila activa de la hoja 1 y luego en ésta ultima fila creada pondré tres formulas distintas. Una para que me cuente el número de filas que tiene el archivo y otras dos para que me calculen el promedio de los datos que hay en dos determinadas columna…

Buenas tardes ¿Cómo se puede evitar el parpadeo de pantalla en cada pulsación dentro de un TextBox? Se trata de filtros (AutoFilter) que aprendí en YouTube. Se trata de una tabla (la mía) con 21 campos y más de 20.700 registros. Private Sub Txt_Obra_Change() Dim obra As String obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*" Range("A4").AutoFilter field:=18, Criteria1:=obra End Sub Private Sub Txt_Proveedor_Change() Dim proveed As String proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*" Range("A4").AutoFilter field:=17, Criteria1:=proveed End Su…

¡Hola! Estoy trabajando con un macro que copie toda una carpeta con subcarpetas y archivos a otra ubicación, el nombre de las carpetas estan en A1, la ruta donde las voy a mover en B1. Por ahora tengo esto pero no logro que funcione. Sub copiafolder() Dim FSO As Object Dim inicio As String Dim fin As String Dim valida As String Set FSO = CreateObject("scripting.filesystemobject") Range("A1").Select On Error Resume Next Do While ActiveCell.Value <> "" inicio = Range("B1") & ActiveCell fin = Range("B1") valida = Dir(inicio) If valida = "" Then Else FSO.CopyFolder inicio, fin End If Act…

Espero se encuentren bien, estoy empezando en el mundo de Excel, en mi nuevo trabajo utilizamos AS400 para eliminar unos materiales, me gustaría crear una macro para realizar esta tarea, pero no se como se conecta Excel con AS400, alguien tiene algún vídeo o los pasos para realizarlo. Muchas gracias.

Hola chicos! hace poco publique un post sobre mi problema para leer los datos de una bascula TORREY, bueno, eso ya solucionado, en parte. Resulta que cuando leo los datos tengo que declarar mi variable "Peso" como String, si la declaro como double o byte me marca error, y necesito tomar solo el numero (ej. 0.406 kg solo necesito leer 0.406) para poder sacar el porcentaje en base a otros kilos ingresado anteriormente en una pagina llamada Estimaciones. Espero me puedan orientar o ayudar con esto Adjunto el archio =) Muchas Gracias! =) DatosBasculaxlsx.rar