Qué tal! Debo de hacer una macro la cual copie los datos de un conjunto de libros a la última fila del libro en el que estoy ejecutando la macro. Con la ayuda de un cuadro de dialogo selecciono la carpeta que quiero abrir con los libros, ya que definir un path no me sirve porque cambia constantemente. Detalles: -Como se copia y pegan datos de varios libros, la última fila siempre va a cambiar. -La hoja de la cual copio los datos se llama igual en todos los libros(ReporteGeneral) a su vez, el libro al que los pego cambia de nombre pero la hoja en la que los pego tiene el mismo nombre (Detalles) He logrado algo con mi código que es abrir el cuad…

Hola a todos, soy nuevo en el foto y en estos mundos de la programación vba. Estoy realizando una hoja de registro de artículos pero no consigo incluir la opción modificar un registro. Este es el codigo que tengo para incluir artículos y creo que el mismo me podría servir para modificar. El problema es que con este código lo que hago es añadir un registro nuevo al final de la tabla en vez de modificar el que esta seleccionado en el combobox. (Espero explicarme para que me podáis entender ya que como os digo soy totalmente novato en este mundo) Private Sub BtnGuardar_Click() Dim Drep As Object, Registro As String If Txt_Precio = "" Or Txt_Descripcion = "" O…

Tengo un libro con 6 hojas y un userform en el cual hay un combobox con el nombre de tres de esas seis hojas. Como seria la macro para que a través del combobox me lleve a cada una de esas tres hojas

buenas noches vuelvo con una duda bastante loca en el evento worksheet_ change mi pregunta es la siguiente ¿es posible que un evento que un evento que esta en una hoja se ejecute en varios rangos de celdas? mi evento empieza de esta forma: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("S14:AW14")) Is Nothing Then On Error GoTo Salida Select Case Target Case "N": Target.Font.Color = vbBlack: Target.Interior.Color = vbBlue Case "DA": Target.Font.Color = vbRed: Target.Interior.Color = vbYellow Case Else: GoTo Salida End Select Exit Sub Salida: Target.Font.ColorIndex = xl…

Hola tengo varios archivos con diferentes rangos y registros los cuales necesito pasar a otro libro en excel he investigado un poco en la red o youtube para ver si exiten ejemplos similires a lo que requiero pero no encuentro nada ,no tendria problema en copiar rangos completos o continuos pero los registros que necesitos van salteados con diferencia desde 3 filas hasta 20 .Adjunto los archivos .Espero que alguien me puede asesorar Buen día a todos 1. Estado Analítico de Ingresos.xls 2. Estado Analítico del Ejercicio del Presupuesto de Egresos Clasificación por Objeto del Gasto.xls

Necesito vuestra ayuda, deseo abrir con un botón desde un formulario una carpeta excel que está ubicada en la red de mi empresa, en el disco Z:

quiero utilizar combobox con sql server, encontre este archivo en el foro. pero no se como cambiar la conexion de acces a sql server Combos dependientes SQL.rar

Buenas noches expertos estoy de vuelta para pedir ayuda a ustedes tengo una macro que estoy actualizando, es decir, cambiando el diseño del formulario pero a la macro en si le hice unas pequeñas modificaciones que les presento a continuación en el archivo adjunto. la macro se basa en crear una pauta mensual con turnos rotativos de "M"(mañana) y "T" (tarde) asi es como funciona la macro al habrir el formulario se debe marcar el boton de opcion 1 (alejandro muñoz), despues en la lista despeglable el numero 1 que crresponderia a los dias de donde empezara la macro despues de eso solo ingresar y debe verse una lista hacia la derecha con letras "M" y "L" la cosa es que solo me…

Hola a todos, Estoy intentado crear un código en macros que dependiendo del rango que tenga seleccionado en determinado momento (rangos variables, pueden ser celdas combinadas) se copie y pegue en otra hoja, pero justo en la misma posición que se encontraba en la hoja origen. Acorde a las imágenes compartidas, digamos que en parrilla_registro tengo la duración de un programa, siempre variable, pero requiero que en cuando seleccione un programa, rango, este se copie en la hoja de parrilla_ingreso justo en la misma posición, la cual dependerá de la ubicación que se selecciono en la hoja origen. Espero puedan apoyarme. Gracias por su atención. Quedo aten…

Hola a todos Necesito de su ayuda para lo siguiente: He estado trabajando con un Formulario en Excel el cual me será muy útil para hacer mis actividades mas rápido y se trata de un UserFom que por medio de una referencia me busque toda la información que pertenezca o sea de ella. Por ejemplo: de la Referencia: 00001, al momento de seleccionarla, me traiga y me muestre en el Userform su nombre, fecha de antigüedad y algunos datos mas. He hecho algo al respecto, pero, he buscado como hacerlo, pero, hasta este momento no he podido. subo mi ejemplo y en el archivo, viene con patallas e imagen de lo que necesito, para llamar el formulario presiona Ctrl+q …

Estimados Se me ha complicado un poco lo siguiente: tengo un libro con 8 hojas en el mismo formato del adjunto....donde van centros de costos horizontalmente y codigos de pago en forma vertical (columna A). Cada hoja es diferente a la otra en valores por supuesto y no todas tienen los mismo centros de costos y codigos de pagos en la hoja nueve (9), he generado un maestro de centros de costos y un maestros de codigos de pagos. Pues bien, en la hoja 10, quiero generar un planilla que contenga todos los centros de costos y todos los codigos de pagos con la suma de los valores que encontro en las 8 hojas de datos. Se entiende? Por cada centro de costo y p…

Hola a todos nesecito de su ayuda, antes esta funcion de estas 2 formulas me corrian, esta macro convierte la celda en mayuscula y a la vez incresas 2 veces datos y automaticamente se bloquea la celda. -------------------------------------------------------------------- Esta es la formula la que antes me corria bien: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, [d33:f33]) Is Nothing Then Target.Value = UCase(Target.Value) Hoja6.[a1] = Hoja6.[a1] + 1 Application.EnableEvents = True If Hoja6.[a1] >= 3 Then ActiveSheet.Unprotect "colorbol54321.-" …

Hola buen dia foro, he aqui una utilidad que encontre en otro foro, pero que necesito hacerla mas eficiente ya que es muy lento el uso del libro y no tengo el conocimiento suficiente para modificar el codigo a algo mas facil. Limitante: - no puedo instalar nada extra en mi ordenador del trabajo por eso la necesidad de usar este aporte. - que en lugar de usar un textbox sea en la celda donde se ingrese el cogido a convertir a codigo de barras - que se pueda hacer para unos 100 registro o mas de una vez Adjunto el archivo para que si alguien puede optimizarlo o hacerlo mas eficiente, ya que son varios registro que necesito convertir a codigo de barras para iniciar un n…

Buenas tardes, Estuve averiguando como cargar gifs en mis formularios ( con la funcion Webbrowser..etc) no tuve problemas hasta ahi, pero en realidad quisiera utilizarlo de fondo de pantalla del formulario, asi q al agrandarlo del tamañao de mi formulario, insertarle botones y ejecutarlo, mas alla que el tamaño del gif no coincide q no me preocupa por ahora, no figuran los botones, como si estuviera el webbrowser por encima de eso.... hay alguna manera que quede de fondo ? gracias

Hola Estimado, Saben si es posible leer una imagen desde vba excel y colocar lo que dice la imagen en una celda de excel? Encontré este ejemplo en internet, pero no me sirve, ya que alcambiar la imagen por otra, sigue poniendo el dato de la imagen anterior, https://drive.google.com/file/d/1Oah4v6U1pX0jvhGDQExKqkGhoSSRkWxS/view

buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias

Buenas tardes. Tengo una tabla la cual tengo las celdas protegidas con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, …

Buen día Foro, Master Antoni para molestarlo nuevamente estoy modificando el formulario Buscar editar que es el mismo de Ingresar Datos, solo que le cambie el nombre a Buscar editar http://www.mediafire.com/file/qmcudvobtdnzxw7/ENVIAR_Haplox_Parte2.rar/file Estoy cargando en ListBox4 los datos guardados en la Hoja BASEDATOS, pero NO consigo cargar solo los datos de 1 solo cliente, me carga todos los clientes Deseo es cargar 1 solo cliente del ListBox2 (al hacer doble clic en listbox2) al Listbox4 para modificar los productos que se le cargaron al dicho cliente (solo que me traiga y me deje modificar los productos que tiene grabados ) https…

Hola, Lo siento por las molestias pero me paso algo muy extraño. Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo. Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error: Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución: No se guardo el documento La macro que me habéis ayudado en conseguirla es la siguiente: Sub PdfMail() Dim Archivo As String, Destinatario As String Dim Asunto As String, Cuerpo As String Dim OutlApp As Object, H1 As Worksheet '-- Applica…

Buen dia Recuerro a ustedes papar poder validar el correcto cierre del ciclo de esta macro. El ciclo afectado es el FOR que tiene la variable n debe trabajar hasta el 23, pero cuando llega a 24, sigue con el ciclo de numero1 y de suma y continua trabajando con errores. como puedo hacer para que la n al llegar a 24 finalice la macro y no realice las demas actividades ? ya movi los Next pero no lo he logrado, espero me puedan dar una guia Gracias esta es la macro Sub Union() ' Dim fila, RR As Long Dim n&, cCriterio$, H&, g&, y& fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row …

Buenas tardes. Necesito ayuda con el archivo adjunto. Tengo un archivo donde realizo un control sobre las cuentas de varios empleados (+ de 50 en total), donde al apretar el botón de "CTROL CTAS. EMPLEADOS", automáticamente se copia el primer numero de cuenta del Excel, se activa otro programa llamado "Emulación 3270", se realizan un par de acciones donde dentro del programa se pasa por diferentes opciones para luego pegar el numero de cuenta, y lo pega en el programa Emulación donde luego imprime la pantalla con "F6", vuelve a la pantalla de inicio del programa y empieza nuevamente con el siguiente numero de cuenta, así sucesivamente hasta que llega a la celda …

Buenas tardes, Tengo una data extensa que resumí para efectos del ejemplo que aquí anexo. Sucede que no se si existe alguna manera (ya sea macro u otras funciones) de ordenar esos datos de forma diferente, o sea... que los mismos se puedan mostrar con más claridad... organizar.xlsx

hola a todos quiero que mi tabla se rellene por columnas por meses ejemplo aqui les adjunto el archivo en la tabla que les adjunto quiero que cuando ingrese una cantidad en el form que hice. el numero se agregue automáticamente en el mes que lo estoy agregando, y automáticamente lleve el total al final de la columna que si yo ingreso el numero 1 en caja rota y presiono agregar, se agregue en el mes que lo estoy ingresando y al final lleve el total de cuantas cajas rotas van gracias inventario perdido.xlsx

Buenos días, Necesito ayuda para evitar borrar una formula en la ficha que tengo. En las celdas "I6:K6" hay una formula. Al ejecutar la macro BUSCAR, quiero que me devuelva el dato grabado en la hoja BD, pero NO quiero que me bore la formula en cuanto me trae el dato. La formula quiero que se mantenga y se aplique solo para los casos "PRESUPUESTO / CONFIRMACIÓN". La parte de la macro "BUSCAR" que es '[I6] = .Cells(encontrado.Row, "E") 'Fecha de confirmación / cancelación para estas celdas esta desactivada. Adjunto el documento a donde he dejado el comentario sobre problema que tengo. Saludos, EVITAR BORAR FORMULA 15.12.2019.xlsm

¡Hola! Estoy intentando hacer una macro para que pida dos fechas (una de inicio y una de fin) y filtrar según esos valores en la columna "fecha de cierre de recomendación". La cuestión es que no sé si es necesario que a las Inputbox les especifique que están recibiendo fechas. Lo digo porque no me funciona bien y no logro atinar por qué. Os pongo a continuación el código: Sub Filtrar_fecha() fecha_inicio = Application.InputBox("Introduzca fecha desde la que quiere ver las recomendaciones. Por favor, asegúrese de que el formato introducido es dd/mm/yyyy") fecha_fin = Application.InputBox("Introduzca fecha hasta la que quiere ver las recomendaciones. …