Buenas a todos, tengo una macro que busca en varios equipos remotos un archivo y lo lee para buscar una información especifica en el, el problema seria cuando no logra conectarse a un equipo tarda mucho antes de seguir al siguiente, quisiera limitar el tiempo en el que trata de conectarse a 3 segundos, mejor dicho que el programa se interrumpa y siga con el siguiente cada 3 segundos. les dejo el codigo a ver en que me pueden ayudar: Sub RevArchivo() Dim Ruta(5000) As String Dim c Dim i Dim r Dim fin Dim lectura As String Dim Origen As Long Dim Archivo As String Dim Respuesta(5000) Dim p Dim v Dim StartTime …

buenas tardes solicito de su ayuda para adaptar la "MACRO2" que permite imprimir consecutivamente, lo adapte a la "MACRO1", en una pestaña hay datos y en la siguiente esta el formato en la cual al momento de imprimir agarra los datos de la pestaña anterior, los coloca donde se pide y se imprime, sin embargo quisiera que esto sea consecutivo, debido a que por ahora solo e logrado que imprimira solo una, y si yo necesitara imprimir mas de un dato tendria que imprimir uno y luego borrar e imprimir el otro, y de igual manera quise adaptarlo a "MACRO3" sin embargo solo me coloca los datos en una sola calumna de etiquetas. la unica macro que funciona al 100 es la "MACRO2" la …

Estimados amigo, espero me puedan dar una ayudadita. El problema es que tengo un Listbox , que al grabar una modificacion se duplica el registro, por favor su ayuda, para terminar con este problemita Muchas gracias CEquipos.zip

Hola a toda la comunidad tengo un problema en mi gestor de inventarios que estoy desarrollando. (NUEVO TEMA Ya que el anterior se cerró). Como se ve en la imagen ese ListBox emergente que sale para escoger el producto que quiero realizar una devolución de venta, solo me permite agregar hasta 9 datos, en los ultimos estan sin información porque no me permite agregar más y me salta ese error de la imagen. Private Sub UserForm_Activate() Me.ListBox1.Clear items = Range("tbl_Salidas").CurrentRegion.Rows.Count For i = 2 To items If LCase(Hoja6.Cells(i, 8).Value) Like LCase(frm_DEV_Ventas.ComboBox1.Value) Then Me.ListBox1.AddItem …

Buenas noches. Ya hace tiempo que no me conectaba. Tengo una duda, estoy intentando importar desde una web local a Excel. desde la función datos importar desde web, pongo la dirección y al impotar sólo me importa esto: JavaScript is required to access this website. ¿alguna solución? ¿ya sea con VBA o alguna opción que debo habilitar en Excel? Si importo otras paginas como google etc importa bien. Gracias

Estimados amigos del foro, saludos cordiales Esta es una consulta aparentemente corta, como puedo lograr colocar una cifra cualquiera por ejemplo 994257851 (en formato numero) al ir pulsando cada boton cualquiera y que se vaya llenando en el textbox pero limitarlo a no mas de 10 dígitos ni menos de 2 subo el archivo para que lo vean Gracias anticipadas Colocar numeros en Textbox.xlsm

Hola buenas tardes, solicito su apoyo con una macro que me permita generar textos aleatorios de acuerdo a una cantidad y una lista de textos, anexo un ejemplo. saludos Textos Aleatorios.xlsx

Buenos días; Hoy estoy muy espeso y mi cabeza no rula na de na…….me puedes ayudar Estoy intentando señalar un rango de celdas en una fila ( de A5 a Axx ), para ello estoy usando “Range(Selection, Selection.End(xlToRight)).Select”, la cosa es.......a lo que señalado tengo que añadirle una celda más. He probado un par de cosas y no doy con ello, la cosa es, que ya lo hice en su momento en una macro hace años pero…..mi cabeza ya no es lo que era. Muchas gracias y un saludo, Ejemplo.xlsm

Buenas tardes por favor requiero su ayuda tengo un formulario que carga datos en hoja de excel utilizando botones con macros gracias a la ayuda del foro logre hacerles funcionar a los otros comandos pero el macros del boton modificar no funciona quiero que al buscar el dato para aumentar o quitar valores en el form "modificar" al aplastar "Modificar" grabe la acción realizada. Muchas gracias por su colaboración. Debe ser algo sencillo pero ya me perdí con tanto código App'Demo.xlsb

Hola a todos, mi nombre es Maurizio y mi nuevo problema es este: Me gustaría enviar por correo electrónico no un archivo adjunto, sino una especie de copia de las celdas de la hoja de Excel que van desde la celda ("A3: J13") en su opinión, ¿es posible obtener todo esto? O: ¿Cómo lograrías crear tal cosa? gracias Saludos desde A.Maurizio Traslation: ------------------------------------------------------------------------------------------------------------------------------------------ Hi everyone, my name is Maurizio and my new problem is this: I would like to send via Email not an attachment but a sort of copy of the excel sheet cells that go from the…

Hola!! En este archivo con macros he intentado añadir en la celda que esta en color amarillo llamada autonomia que debajo tiene un filtro, 4 busquedas mas, las que son Ruta 1, Ruta 2, Ruta Centro y Ruta Santa Cruz, y eliminar el No, en total serian 6, en las que yo pueda desplegar y seleccionar la que quiera, lo he hecho de todas maneras y me da error, no se me actualiza. Adjunto el archivo. Búsqueda de usuarios .xlsm

Buenas foro,a ver si me podeis echar una mano. En un userform con 4 checkbox con sus correspondientes textbox, lo que pretendo es que los checkboxs que sean verdaderos, por ejemplo el 2 y el 4, me copie los valores del textbox2 en B2 y el textbox4 en C2, es decir que según los checkbox marcados vaya rellenando en la misma fila sin dejar hueco. Ejemplo.xlsm

Buenas tardes a todos; -Adjunto una macro con un simple formulario que contiene dos textbox un listbox y un botón. Al poner un dato en el listbox y pulsando el botón pasa el valor al listbox y devuelve el foco al textbox1 Quería conseguir hacer esto mismo pero al pulsar el botón "INTRO" sin tener que recurrir al botón ya que es un incordio estar pulsando cada vez que introduzco datos. Gracias como siempre por su tiempo. Macro.xlsm

Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila Range("O" & fila) = Range("H" & fila) &am…

Hola a todos, Necesito ayuda con una macro para buscar un texto y que me devuelva un valor. Os cuento, en la hoja 1 tengo una tabla en las celdas de la columna B se selecciona mediante una lista el tipo de alimentación y en la columna C tiene que aparecer el valor que le corresponde al tipo de alimentación. En la hoja 2 tengo la tabla con los tipos de alimentación y el valor que me tiene que devolver es la Uadm en la hoja1. Gracias por vuestra ayuda. Buscar.xlsx

Hola estimados foreros, esta vez tengo el siguiente problemita, tengo esta macro que busca un N° determinado, el cual ingreso en un box de mensaje que se dispara al presionar botón "Buscar N°", este box de mensaje tiene dentro 2 botones: "aceptar" o "cancelar" la operación, el problema que tengo es que al presionar "aceptar" o "cancelar" sin ingresar algún dato (queda vacío) arroja un mensaje con problema de fórmula al presionar "aceptar" y una ventana de error en caso de presionar "cancelar", ambos casos suceden si no ingreso algún número como les mencioné, necesito que salga de la operación si presiono "cancelar" y si presiono aceptar sin ingresar dato que simplemente s…

Hola buenas noches: en un archivo necesito copiar un rango de celdas de distintas hojas de mi libro. En mi hoja 1 pondré el nombre de la hoja donde debe buscar el valor en la columna A y el valor a buscar en este caso "Form" La celda donde pondré la hoja se encuentra en C9 donde pondré la palabra a buscar en celda C11 ="Form" Esta palabra debe ser buscado en la columna A (fango a15 a a50) de la hoja indicada, y pasar a la columna B y seleccionar el rango activo y copiarla para pegar la información en otro libro o a Word. Muchas gracias Buscar en hojas dato.xlsm

Buenas tardes. Gracias de antemano por la ayuda. Os explico mi problema. En la hoja 4 (Datos 2), quiero poner un pequeño buscador, lo más simple posible. He insertado un cuadro de texto de ActiveX con lo siguiente (llamado BuscadorPrueba); Private Sub BuscadorPrueba_Change() Dim DatoConsultado As String If Hoja4.BuscadorPrueba.Value <> "" Then DatoConsultado = "*" & Hoja4.BuscadorPrueba.Value & "*" Range("C10").CurrentRegion.AutoFilter Field:=1, Criteria1:=DatoConsultado Else DatoConsultado = "" Range("C10").CurrentRegion.AutoFilter End If End Sub No necesit…

Hace algunos días alguien hizo una consulta sobre una agenda telefónica, pero no consigo localizar el post. Aquí dejo el archivo por si lee esto. Agenda teléfonica MA.rar

hola espero me puedan ayudar tengo una macro, que es un boton que me selecciona ciertos datos, los copia y los pega en otra hoja en transpose, lo que quiero hacer es condicionar que si ya existen esos datos con anterioridad me salga un mensaje que ya existe esa informacion. espero y me puedan ayudar

Estimados Expertos. Estoy buscando un generador de codigos QR para Excel, he encontrado el programa StrokeScribe 4.1.4 que es muy bueno pero es de pago, tal vez ustedes dispongan de una macro que me permita generar codigos QR en excel. Agradezco de antemano vuestro apoyo. Jmollan

Lo primero saludaros a todxs y desearos un feliz anio (perdon pero no tengo enies en el teclado). Lo segundo presentarme ... soy nuevo en el foro y lo he encontrado cuando estaba buscando una macro para que se me abriera el cuadro de dialogo de "Guardar como" y que me pusiera como nombre del archivo el valor de la celda I11. La cuestion es que encontre esto que parecia funcionar a la perfeccion: ... se abre el cuadro de dialogo, aparece el valor de esa celda como nombre del archivo, me permite elegir la carpeta de destino, peeeero cuando le doy a guardar ... NO GUARDA NADA!!! :upset: Si me pudierais echar una mano, seguro que es una tonteria, pero tampoco es que sea m…

Buenas tardes y gracias de antemano por la ayuda. tengo un libro de excel que lo quiero usar para controlar el flujo de documentos dentro de la empresa y mi consulta es la siguiente. la hoja 2(recepcion callao) se ingresan los datos de la factura en la celda L4 con cabecera area de envio va a tener 3 valores los cuales son contabilidad, costos y tesoreria. lo que necesito es que en base a una función macro si en la celda L4 dice contabilidad toda la fila desde A4 hasta K4 pase a la hoja 5 (contabilidad), o si dice costos que pase a la hoja de costos, este procedimiento se debe repetir conforme se vaya agregando mas items en las filas osea con cada documento que llega y e…

Hola amigos: quisiera que me ayudaran con lo siguiente, tengo un listbox que carga unos datos, dentro de los que se encuentran las fechas lo que deseo es que por medio de un boton poder filtrar un rango de fechas, pero que al filtrar tome los datos del listbox previamente cargado y no de la hoja, y que idealmente lo muestre en el mismo listbox, sino aunque fuera en otro listbox. Gracias fechas.rar

Hola a todos, lo molesto por lo siguiente. Hago una consulta web desde excel por una Url, selecciono una tabla la cual contienen muchos hipervinculos y me aparece en excel, hasta ahi bien. Pero lo que yo necesitaria es la informacion dentro de ellos. Los cuales son tablas de igual tamaño pero diferente información para cada hipervinculo (que son mas de 150), necesito almacenar en una hoja para filtrar datos y demas, tendria que realizar una consula de la consulta o algo asi. Intente aprender un poco el funcionamiento de las macros pero veo que esto sale de mis conocimientos. Espero queme puedan dar una mano. Saludos!