Buenas tardes. soy nuevo en este magnífico foro que he encontrado. Mi consulta es la siguiente: tengo una hoja excel donde en la columna "A" hay nombres de clientes aunque alguna celda está vacía correspondiendose con el nombre de cliente de la inmediata anterior según fichero adjunto Tengo ya una macro creada con el grabador de macro que me suma los valores de la columna "C" cuando me posiciono sobre la celda "A" que está vacía. el problema es que también (obviamente) se ejecuta la macro si el cursor está en una celda que no está vacía. ¿Me podéis decir qué tendría que insertar en la macro ya realizada) Muchas gracias demo.xls

Cordial saludo. Por favor aquien me pueda ayudar le agradezco enormemente . Tengo el siguiente codigo para cargar los nombres de ciertas hojas de un libro en un listbox, lo que requiero hacer es que me carguen en orden alfabetico. Private Sub UserForm_Initialize() ListBox1.Clear Me.ListBox1.ListStyle = fmListStyleOption For x = 5 To Sheets.Count ListBox1.AddItem Sheets(x).Name Next End Sub Mil gracias.

Buenos días, Tengo una macro en la que tomo el contenido de una celda con un texto tal que así: "Ranking Reposiciones. [25/07/2016 - 01/08/2016]" y en el que trato las fechas para calcular los días laborables entre ellas. Una vez conozco los días laborables los almaceno en una variable: Dim Work_Days As Long Y más adelante quiero utilizar la variable Work_Days en una división, pero siempre obtengo el resultado "¿NOMBRE?." Con esto obtengo el error mencionado. With Sheets("REPOSICIONES").Range("G4:G" & UltimaFila) .Formula = "=RC[-1]/DiasInforme" .Formula = .Value .NumberFormat = "0.00" End With En cambio, si el valor …

Estimados, Buenos días, agradecería su apoyo con una macro que me permita insertar filas y copiar la cabecera según una condición: - En la hoja3 "Datos" la primera columna es Ciudad, lo que debería hacer la macro es identificar si el valor (ciudad) de la celda A3 es diferentes al de la celda A2, si son diferentes inserta 2 filas en blanco y copia la cabecera en la 2da fila en blanco, si son iguales pues repetir la validación hasta la ultima fila con valor. - Les pongo un ejemplo del resultado en base a la hoja3 para que se puedan guiar, la idea es que la macro modifique directamente en la hoja3 "Datos" y no tenga que crear otra hoja. * Las demás hoja…

Hola a todos de nuevo. Tengo un problema al cargar los datos de una consulta SQL de una Access a mi archivo Excel. La consulta funciona bien, de hecho ya tengo el formulario casi listo. El problema viene porque quiero modificar el formato de varias columnas. Por ejemplo la columna 4 a pesar de estar el Access en moneda cuando lo cargo en el listbox lo hace en números con decimales. Estoy leyendo pero no encuentro exactamente esto, al menos al cargar todos los datos en el listbox de manera multiple. Agradezco vuestra ayuda como de costumbre. Pongo el código, creo que no es necesario todo el archivo para ver que código me falta poner. Sub Llenar_Checklist…

Hola amigos mesecito una ayuda con una macro que estoy relizando para enviar mensajes masivos por WHATSAPP usando el excel, tengo una archivo hoja 1 donde en una celda en mi caso E4 tengo una formula donde esta concatenado el mensaje que quiero enviar. y la macro la estoy extructurando de esta manera Mensaje = Hoja1.Cells(i, 5).Value ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%" & NumeroTelefono & _ "&text=" & Mensaje & "&app_absent=1&send=1" que sucede con el mismo me da un error '-2146697208 (800c0008)' en tiempo de ejecucuón: No se puede des…

Hola buenas tardes, mi nombre es Isabel. Mi Problema es el siguiente: necesito realizar una consulta SQL a una tabla dbf desde una macro en excel, y poner los resultados en una hoja de excel, mi problema es con una consulta que sobrepasa los 255 caracteres ya que ese es el límite de los String, lo intente con variables Variant pero a la hora de pasar los parametros para hacer la consulta en la tabla me lo corta a 255 cáracteres y por consecuencia me marca error de ODBC, para las consultas menores a 255 no tengo ningun problema, abajo agrego el código que uso: En esta macro tomo la primera parte del select que es lo que varia en mis consultas Dim columna As String …

Hasta hace poco usaba un ordenador con Windows Xp y ahora he cambiado a otro con Windows7. En ambos casos con office 2.007. El caso es que no sé muy bien porque, pero ahora hay macros que no puedo interrumpir, mientras que antes si podía. Uso las teclas control + Interr y tambien ESC pero la macro no se para. La única forma de interrumpir la macro es a lo bruto con el administrador de programas cerrando excel. Además normalmente en mis macros para saber como evoluciona la misma pongo dentro del código que en la barra de estado me muestre la evolución de ciertos parámetros, sobre todo en bucles for. En este caso la macro a lo mejor empieza funcionando bien y muestra lo…

Hola a todos, Tengo el siguiente problema: He creado un formulario para grabar contactos dentro de una hoja de datos llamada "CONTACTOS" y cada vez que introduzco algún dato incorrecto, de manera alguna el formulario vuelve a grabar el mismo registro tantas veces como haya fallado dentro de la hoja de datos. Muestro por aquí mi formulario... Como se puede observar en la imagen adjunta, tiene un casillero inicial para elegir el tipo de contacto ("Proveedor" o "Cliente") y el resto de los datos están dispuestos en modo multipágina. "Denominación" para grabar los datos fiscales, "Domiciliación" para los datos de localización y "Comunicación" para los dat…

Buenas tardes, vuelvo a escribir para comentaros un problema. Tengo una petición pro REST API que me trae unos valores, y necesito que calcular el % de cada uno de estos valores, me estoy descargando el total y el valor de cada celda, asi que simplemente seria calcular el procentaje por cada una de las celdas, pero no consigo hacer funcionar el for, si uso formular de excel, me fallan en ocasiones, asi que estoy implementado el uso de una macro.Os pongo lo que estoy intentando y me falla: Sub calcular() Set rng = Sheets("AAA").Range("G11:G40") ' Rango donde se descargan los valores individuales Set percent_total = Sheets("AAA").Range("G10")' celd…

Hola que tal soy nuevo en el foro y estoy realizando un pequeño inventario , solo que tengo muy poco conocimiento sobre el tema de vba , espero alguien me pueda ayudar con la siguente cuestion 1. tengo una tengo una hoja llamada bodega y tengo una hoja llamda interfase(ahi capturo mis entradas) 2. en la hoja llamada bodega tengo las ubicaciones disponibles 3,quiero que al presionar un boton( despues de realizar mi captura ) me busque los datos de un rango (interfase) en la hoja llamda bodega me los filtre , copie lo de las siguientes celdas segun corresponda y pegue los datos (bodega) 4 por ultimo me limpie el area de captura nota: de ser posible no importando …

Buenos días; Necesito ayuda para hacer funcionales los botones de opción "curso" y "publi". Intento, sin suerte, que sea posible seleccionar cualquiera de los dos botones, independientemente de los que ya existen en el formulario, para introducir en la hoja (fila h, destino) las palabras curso o publi respectivamente y teniendo en cuenta que la tabla crece con el contenido. Muchas gracias por adelantado. CONTROL STOCK LIBROS 2015-2016-2017.rar

Hola: Tengo un Listbox que lista una carpeta y al hacer doble click en cualquier item se debería abrir el archivo. Antes de hacer pruebas, se me abrian todos los tipos (doc, pdf, y jpeg entre otros), salvo los tipo excel (xls*), pero ahora no se abre ninguno. Aun así, la consulta es para saber cómo abrir cualquier tipo de archivo incluyendo los de Excel, porque tengo varios códigos que abren archivos (del tipo ShellExecute, etc) , pero fallan con los xls* Abrir archivos.rar

Estimados amigos. Me surge una duda, existe una forma de saber si se ha deseleccionado un Item de un ListBox ¿? Es decir, si tengo el primer item de un ListBox seleccionado, y lo destildo, hay manera de registrar esta acción para poder ejecutar una macro ¿? Agradecido de antemano por vuestra ayuda.

Hola, buenos dias a todos, antes que nada les deseo que esten todos en genial estado de salud, y agraezco los post que publican, en esta ocacion quisiera pedir apoyo para lograr un control de Inventario Bajo tres Varialbes de Control, es decir, en lugar de solo controlarlo por medio del Item, tambien se pueda ese control con Lotes y Caducidades. He intentado varias cosas pero no logro cristalizar mi idea.... Dado esto, es que no subo un archivo, solo comparto la idea por si alguien lo tiene o lo sabe hacer. Se Ingresarian al Inventario Productos que tienen un codigo de Referencia, un Lote de Fabricacion y una Fecha de Caducidad, el proveedor puede surtir un solo codico…

Hola a todos los Expertos necesito de su gran conocimiento, tengo un form hace de filtro con combobox(4) lo hice con filtros avanzados este cuando filtro datos de mi base me muestra en la hoja "Resultado" y también lo carga en un Listbox pero lo que tengo problemas esque quiero contar dichos registros cargados y que me muestre la cantidad en un label.Hast un punto lo consegui gracias a Ustedes pero tiene falla la primera vez lo hace pero toca hacer click en el listbox para que cuente y lo muestre en el label pero al filtrar nuevamente solo me muestra el encabezado y no cuenta en el label y peor muestra. Esto debería ser automático al tener datos en la "Resultado" deber…

hola hola tengo una pregunta por que he estado quebrando me la cabeza tengo un textbox en el que capturo una serie de numero aproximadamente 8 números por ejemplo 38562135 , y tengo una pequeña base de datos y comparo lo que hay en esa columna lo capturado pero no me sale solo con caracteres, lo que quiero saber es si es posible hacer esa comparación, que capture en mi textbox así números y los pueda comparar, por que siento que mi textbox solo captura eso texto, caracteres nada mas. si alguien me pude ayudar por favor.

alguien tiene un excel con una formula para convertir de cielab a rgb

Hola buenas tardes foreros. Retomando una macro que tenía a medias, a ver si podéis ayudarme porque mis conocimientos en VBA no son muy amplios y por más referencias que miro en ejemplos de "exportar a pdf" no saco el error. Describo: - Función: Exportar un rango de la hoja a pdf en función de 2 variables, para esto utilizo "if" con ocultar y mostrar filas para que entrase justo en 1 o 2 hojas. - Errores: 1 - El msgbox de la ruta donde guarda el archivo SIEMPRE muestra la ruta donde se ENCUENTRA el excel, NO donde lo ha guardado. 2 - Da igual el nombre que pongas en en el msgbox de "guardar como", siempre utiliza el pre-programado. …

Hola buen día...tengo esta macro para habilitar y deshabilitar un botón CommandBooton, como seria para hacer pero con una inserción de Forma? If Status = "Admin" Then Hoja28.btn_admin.Enabled = True End If If Status = "usuario" Then Hoja28.btn_admin.Enabled = False End If

Estimados, tengo el siguiente problema, quiero hacer filtro con una variedad de datos ( estos datos los quiero sacar de una tabla X, que pueden ser números tan diferentes como 4, 5060, 876, etc. como puedo hacer para introducir estos números en una variable y que se pueda filtrar por esta? he tratado simplemente con 1 numero y ni por eso me sale: Sub Macro1()Dim suma As Double Dim reparto As Double suma = 0 Range("P3").Select 'Range(Selection, Selection.End(xlDown)).Select Do While ActiveCell <> "" suma = suma + ActiveCell.Value ActiveCell.Offset(1, 0).Activate Loop reparto = suma * 0.016 Range("p1127").Value = reparto Ac…

buenas tardes, quiero cargar un listbox dependiendo el valor de la celda, me funciona como lo hice pero queria saber si hay una forma mas resumida de hacerlo. asi es como lo hice Private Sub CommandButton1_Click() Range("a1").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = Range("c1").Value Or ActiveCell.Value = Range("c2").Value Or ActiveCell.Value = Range("c3").Value Then ListBox1.AddItem ActiveCell.Value End If ActiveCell.Offset(1, 0).Select Loop End Sub pero enves de eso me pregunto si se podra hacer de esta manera o algo parecido Private Sub CommandButton1_Click() Range("a1").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = Range…

Buenas tardes, Resulta que tengo un Userform que su finalidad es editar la información de una hoja, dentro de este Userform hay un Text Box que extrae la fecha de la hoja, al momento de abrir el UserForm este se muestra de forma correcta, pero al guardar y sobreescribe le cambia el formato, ya intente darle formato al TextBox pero no funciona. ElUser Form esta bloquedo, hay que dar click en editar para que de la opcion de editarlo, y depues el boton cambia de nombre a guardar. Requiero de su apoyo. Prueba.zip

Hola: Tengo una macro de excel que a partir de una plantilla de word, genera un nuevo archivo de Word y lo guarda en una ubicación especifica. El tema es que al final de todo esto necesito que ese documento de word generado se muestre en primer plano pero no lo consigo, aparece siempre detras del resto de programas o minimizado. He probado lo siguiente sin exito: Static objword As Object . . wdDoc.SaveAs Filename:=rutainf, FileFormat:=wdFormatXMLDocument wdDoc.Activate wdDoc , vbMaximmizedFocus Muchas gracias. Saludos.

Muy buenas tardes a todos! El motivo de esta consulta es para ver si me pueden ayudar a crear un formulario para poder llevar un registro de mercadería que se solicita y traslada entre almacenes (bodegas). Actualmente tengo un ERP el cual no me ayuda en esta gestión y manejamos un formulario que se llena en excel y se envía en formato PDF, pero no lleva ningún folio único y dependemos de la persona que lo llena los campos que ingresa etc. Adicionalmente no tengo como encargado una opción de poder ver las gestiones que se realizan entre ciudad y cuales se dejan de atender y por otro lado la fuerza de venta no sabe si su gestión del otro almacén atendió su solicitud. …