Hola. La consulta es como pegar un rango de celdas B10:B46 de la hoja 1 a un rango que no tenga datos en la hoja 2 F10:F46 y si tiene datos este rango que encuentre hacia la derecha el rango libre. Muchas gracias

Hola compañeros, soy algo nuevo en el tema de macros... he podido realizar una macro (con ayuda del foro) pero tengo el problema que mientras mayor cantidad de datos el calculo demora demasiado hasta el punto de colgarse la aplicación... La función de la macro es que en la columna M me indique con una X los registros mas recientes, esto luego de comparar las columnas K, E y F. por ejemplo el Folio (columna K) N° 36078-S0801002537 tiene 4 registros, se marca con X la fila con fecha mas reciente (columna E), en el ejemplo existen 2 días iguales (columna E) , en ese caso se verifica por la hora (columna F) por lo tanto luego del analisis marca con una X (columna M) la fi…

Hola a todos, Estoy intentando crear una macro que me automatice un formulario web. Consigo rellenar los textbox normales utilizando el siguiente código pero no sé como conseguirlo en los richtextbox que contiene. Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate direccion Do While ie.ReadyState <> 4 And ie.Busy = True DoEvents Loop End With Set campo1=ie.Document.getelementbyid(etiqueta) campo1.value=valor Espero me podáis dar alguna idea Un saludo

Hola, tengo una carpeta que se llama TRABAJO, ahí tengo muchos archivos que debo ejecutar la macros que ya me ayudaron, una que elimina a los reperidos de una fila dejando solo uno y manteniendo el resto. pero como son muchos archivos me demoro mucho en hacerlo uno por por uno, entonces mi pregunta es cómo puedo hacer para que esa macros se ejecute en todos los archivos de esa carpeta sin yo abrirlos y que se guarde automáticamente. gracias Muestra - AYUDA EXCEL.xlsm

Hola a todos y todas. Estoy haciendo una hoja de cálculo para un tema de trabajo y me he encontrado con una dificultad. Vaya por delante que soy usuario de Excel medio, y de macros ando un poco verde, por eso no sé si es el éste es la sección del foro correcta o no. De todas formas, va mi agradecimiento de antemano. Mi problema es que tengo una hoja con muchos registros. En cada columna hay un encabezado, pero cuando estoy en el registro 33, por ejemplo, al no ver el encabezado de la columna, no sé si estoy introduciendo los datos en la celda correcta. Para comprobarlo, tengo que irme de nuevo arriba para ver el título de la columna. ¿Solución? No sé si se puede h…

Buen día, tarde, noche Quisiera solicitarles de su amable ayuda para solucionar un problemita que estoy teniendo en un archivo Dropbox - Chequeras.rar Quiero hacer un barrido de la Hoja que se llama ACSEL Q, y que me vaya a buscar el número de cheque en la hoja que se llama Listado de Cheques, y que me traiga ciertos datos hacia la hoja ACSEL Q Lo estoy haciendo a través del método Find, pero siempre me salta el error 91, y esto se debe porque no encuentra algún dato. Al código le agregué lo siguiente: On error resume Next . . . if err.number = 91 then goto Siguiente[/CODE] Esto me resuelve a medias el problema, pues lo que hace es que si existe el error 91 …

Estimados, Soy nuevo en este foro. quisiera saber si son capaces de ayudarme con el siguiente porblema: Estoy utilizado el codigo de mas abajo, que junta varios libros en uno solo (nuevo libro creado por el macro), y me gustaria que si se puede hacer que junte esos libros en el mismo donde tengo la macro y sin borrar las hojas que existe. saludos y gracias Sub UnirLibros() Dim Directorio, NombreLibro As String Dim ContadorFicheros As String Dim Unidos As Workbook Dim K, NumHojas As Integer Dim Libro As Workbook Directorio = ThisWorkbook.Path ContadorFicheros = Dir$(Directorio + "\*.*") 'Crea el libro que contendrá a todos los demás Application.SheetsInNewWor…

hola tengo un problema, tengo datos desde A4:j4 y quiero que al presionar el boton, por medio de macro me copie los datos ingresados en las celdas mensionadas en una ubicacion mas abajo por ejemplo A9:J9. El problema que se me presenta es que en lugar de copiar los datos en forma horizontal (es decir de A9:J9), los copia de forma vertical (desde A9 para abajo). Este es el codigo, gracias Private Sub CommandButton1_Click() Range("A4").Select ActiveSheet.Unprotect Range("A4:J4").Select Selection.Copy Range("A8").Select '' [A65536].End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ …

Buenas tardes Foristas, espero se encuentren bien de salud. Necesito la ayuda de ustedes (una vez más). Voy a extenderme un poquito, pero creo necesaria la explicación. Ofrezco disculpas de antemano. Por mi país, cuando a una persona le vienen encima muchas cosas malas decimos, “A perro flaco todo lo que le caen son pulgas…” y algo parecido me ha tocado. Una de mis compañeras de trabajo está embarazada y tiene problemas de amenaza de aborto y la ingresaron en una clínica, hasta que dé a luz y entre una cosa y otra esto se tomará 1 año y tanto y me ha tocado hacer su trabajo, lo malo es que con el mismo salario que tengo hasta ahora (nada de aumento). Bue…

estoy haciendo un registro en el cual ya hice el combobox con lista desplegable pero no se como hacer que con vba excel de autofiltro a el valor seleccionado en el combobox

Hola a Todos Espero estén muy bien junto a sus seres queridos. Favor su ayuda con lo siguiente: Tengo un problema con una planilla excel, desde hace un par de horas dejo de funcionar y cuando abro o cierro el libro me aparece el siguiente mensaje "No se puede encontrar el proyecto o la biblioteca". He buscado en el foro y red, pero no logro dar con una solucion. Segui lo siguiente: ALT + F11 > herramientas > referencias, pero al dar clic en referencias no pasa nada. Al dar ALT + F11, me aparece otro mensaje " No se encontro el modulo". Adjunto el libro. https://1drv.ms/x/s!Aiq68zQ4jy8ShKBFkgvTfFpeIdjmHQ?e=ctaaxx S…

Hola amigos. Les adjunto mi trabajo. Al pulsar el botón de la Hoja1 se abre un formulario que contiene un inkedit con bastante texto. Al pulsar sobre el botón del Formulario "Pasar a la celda F2", ese texto pasa a la celda F2, cuyos atributos ya he modificado por macro para que se ajuste a la altura del texto de que debe contener. Todo funciona bien, excepto que la celda llega a alcanzar su altura máxima permitida por las limitaciones de Excel, por lo que hay una cantidad de texto del formulario que no se ve en la celda. No quiero tocar el ancho de la celda, porque luego la imprimiré y tiene que tener esa anchura. Así que me gustaría conseguir rea…

Hola a todos!! He grabado la siguiente macro pero cuando quiero cambiar la sentencia me da error. "Selection.AutoFill Destination:=Range("K2:K631256") Range("K2:K631256").Select Selection.AutoFill Destination:=Range("K2").End(xlDow) Range("K2").End(xlDow).Select Os pongo la macro entera a continuación. Muchas gracias de antemano por la ayuda. Sub AÑADIRFORMULASFUENTEDEDATOS() ' Columns("J:J").Select Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:…

Buenas noches, necesito sacar de un archivo con 200 hojas aprox (que son facturas , todas con el mismo formato) un resumen de facturación con nombre cliente, fecha, número fra, importe, ... Como lo puedo hacer , no tengo ni idea de macros. Por favor ayuda!!! Y que sea fácil ...

Nuevamente es un gusto saludarles. Otra vez consultando, tengo un UserForm dentro del cual se encuentran cuatro secciones: Depósitos Banarios, Tarjetas de Crédito, etc., en cada sección se puede grabar la cantidad de registros que sean necesarios. El formulario funciona así, ejemplo: Al abrir el formulario ingreso la fecha y el código de la tienda, luego en la sección depósitos bancarios ingreso mis datos los cuales al presionar el botón “Añadir Registro” los carga a la hoja de Excel en las columnas de la “I” a la “O” tomando como referencia la columna “H”, la misma operación realizo con las demás secciones, una vez ingresada toda la información necesaria le doy enter e…

Buenas noches estimados espero estén bien Dentro del Formulario VTL (frmvtl) estan los TextBox 16, 17, 18, 19, 20, 21, 22 los cuales necesito que cuando contengan un valor cualquiera la macro los tome como 1 (TextBox<>””=1) y cuando los TextBox estén vacíos la macro los tome como 0 (TextBox=””=0) seria como usar la Función Contar de Excel, siendo así y conforme al funcionamiento de la Macro Calculo en el TextBox23 en la medida que se van introduciendo los datos el conteo o suma debe reflejarse de manera automática y simultánea en los Textbox 25, 27, 28, 29, de la siguiente manera: TextBox25 = TextBox16 +TextBox17+TextBox18+TextBox19+TextBox20+TextBox21+Tex…

Hola amigos quisiera que me ayuden nesecito guardar los datos ingresados en el formato que adjunto, para luego buscarlos por codigo de cliente y poder modificar los datos si es nesesario, podrian ayudarme con un ejemplo en mi mismo formato con las primeras celdas solamente, que guarde solo los primeros datos luego que busque el cliente por nombre o codigo, y luego que pueda modificar los datos, para luego imprimirlos, gracias de antemano. EVACRED FENIX S.A.rar

Estimados adjunto un archivo el cual tiene un listbox y un textbox de busqueda donde localizo el numero de un equipo pero quisiera para no ponerle otro textbox que solo me cargue en el listbox las ordenes de trabajos que se encuentran con la palabra abierto cualquier ayuda que me puedan ofrecerme les estare agradecido. Para cargar el listbox presionar el boton 1 que aparece en la hoja 1 Libro1.xlsm

Hola soy nuevo en la programación en vba, tengo un libro compartido en el que al abrirlo se auto ejecuta un macro que hace que el libro se guarde a los 10 mins. de haberlo abierto, este se ejecuta como bucle. Pero tengo un problema, y es que a pesar de que yo cierre el libro de excel, este se vuelve a abrir y ejecutar el macro. Quise usar la opción "Exit Sub" pero no supe cómo programarlo, agradeceré mucho su apoyo. Mis macros para efectuar la tarea son los siguientes: Sub Auto_Open() Hora = Now + TimeValue("00:10:00") Application.OnTime Hora, "Guardar" End Sub Sub guardar() ThisWorkbook.Save Auto_Open End Sub

Buen día a todos, les escribo debido a que acabo de crear una macro que copia y pega información de una hoja a otra, pero no llega a realizar la ultima tarea, que es pegar, y en lugar de hacer esto aparece en la barra inferior de la ventana el siguiente texto: "Seleccione el destino y presione entrar". Les agradezco mucho. Les adjunto el codigo: Public Sub CommandButton1_Click() Dim c As Object '############################################################################################################ 'PASO 1 BUSCAR LA ESTACIÓN EN LA COLUMNA DE ESTACIONES dato = ComboBox1.Value Set c = Sheets("Base").Range("A4: A400").Find(dato, LookIn:=xlValues, Lookat:=xlWhole) …

Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…

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 amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Buenas noches. Necesito su amable ayuda. tengo una base de datos con 4 columnas, comienza en a7(clave de producto), b7(familia), c7 (descripcion de producto) y d7 (unidad)...Ejemplo M0001, afine, afine de terreno, m2. Necesito la forma de filtrarlos escribiendo la familia en la celda C6. Y de paso, (al seleccionar el producto necesario, ya que puede haber cinco, tres, quince, tipos de afine, por ejemplo)asignarle algun mecanismo para enviarlo a otra hoja donde se va formando mi presupuesto o factura y que me permita ir escribiendo en la celda de abajo, para agregar otros productos. Aclaro, no se nada de macros y programacion. Es solo un programita para facilitarme mis…

Buenos dias comuninidad Ayuda Excel, estoy realizando un poryecto, en el cual estoy detenido en lo siguiente: necesito pasar de un listbox1 del userform1, a otro listbox1 del userform2, para empezar; ya que necesito realidad pasar el valor del userform1 de 4 listbox, o sea del userform1 listbox1 listbox2 listbox3 istbox4 al del user userform2 listbox1, y el valor de este userform2 listbox a una celda "x" Espero me puedan apoyar con el codigo, para poder adaptarlo al proyecto ya que estoy hecho pelotas. Saludos buen dia.