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 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 …

Buenas tardes, Perdonad mi ignorància en excel pero he creado un boton para ocultar y mostrar hojas. He puesto en el VBA la macro pero supongo que la he escrito mal, me gustaría que alguien con mas conocimientos que yo me pudiera ayudar, Me pone el siguiente error: Se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo gracias Sub MostraryOcultarHojas() Sheets("Hoja10").Visible = False Sheets("Hoja11").Visible = False Sheets("Hoja12").Visible = False Sheets("Hoja13").Visible = False Sheets("Hoja14").Visible = False Sheets("Hoja3").Visible = False Sheets("Hoja5").Visible…

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

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 amigos del foro, Primeramente quisiera agradecerles por su ayuda de antemano y desearles a todos ustedes un próspero año nuevo. Actualmente estoy en una problematica con mi formulario VBA-EXCEL, y para ello necesito su ayuda lo más rápido posible. Estoy seguro que para ustedes debe ser fácil. El objetivo del formulario, es que el utilizador lleve acabo la selección de una lista de datos concernientes a montos ejercidos por diferentes empresas. El filtro será elegido mediante los siguientes requisitos: - El utilizador escogerá mediante una fecha de inicio y una fecha final, el tipo de sociedad (una o varias), y la sociedad (una o varias). Estos requesitos…

Buenas tardes Escribo por que necesito ayuda con un tema que me esta rompiendo la cabeza. Necesito crear una lista despegable, donde el usuario pueda elegir varias provincias, y después en función de los que eligió en antes, se muestren las ciudades relacionadas, donde el usuaria también pueda elegir mas de una ciudad. Adjunto excel para clarificar mejor mi pregunta. Gracias!!!!! Excel Ayuda.rar

Amigos : Quiero introducir con números separados por dos puntos, minutos y segundos. Ej. 15:23 ( quince minutos con veintitres segundos ) Necesito que en otra celda muestre " quince minutos veintitrés" o algo similar , con letras. Gracias!

Hola a todos, necesito me auden por favor a crear una macro para consultar en una base da datos que se actualiza diariamente. esto es para la investigación que debo hacer en los reclamos clientes que me hacen llegar. Necesito esto debido a la gran cantidad de tiempo que me demanda muchas veces esta investigación. Bueno les cuento la idea es que a la macros yo ingrese con un pedido o documento modelo y que al ingresar este, me solicite ingresar una marca determinada de ese pedido. La idea es que estos datos me los envíe a la hoja tres donde esta el formato. No se la complejidad del tema pero se que se puede hacer, lamentablemente no encontré nada muy parecido como para…

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

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 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…

Estoy utilizando esta simbología (Labels) donde el circulo azul es Nuevo o ALTAS - La Paloma Verde es Actualizar y el Tache o cruz es Eliminar. La idea es que cuando el Mouse pase sobre de estos Labels salga una etiqueta lo que significa. Nuevamente gracias por su ayuda.

Buenas tardes: Disculpen la molestia necesito que me ayuden. Solo le falta esto a mi proyecto. Necesito que al momento de darle grabar a mi formulario, se borren los datos que ingrese en el userform3 o sea en los textboxs, pero que no afecte en nada la validación de datos. A ver si me pueden ayudar intento cambiar los hide por unload pero se malogran las validaciones. Espero que alguien me pueda ayudar Control Km..zip

hola chicos necesitaria que alguien me escribiera una macro ,necesito importar unas fotos que estan ubicadas en la carpeta de imagenes y dentro de estas hay otra carpeta que se llama lamparas pues bien necesito importar estas fotos a un hoja activa de un archivo excel que se encuentra en el escritorio mi sistema operativo es vista,me pasaron esta macro pero no funciona Sub Makro2() Dim Pfad As String, Wiederholungen As Long Dim PicBild As Picture Dim lngRow As Long, lngLast As Long Dim dblOHeight As Double, dblOWidth As Double On Error Resume Next Pfad = "C:\sergio\Imagenes\lamparas" Application.ScreenUpdating = False For Wiederholungen = 2 To Range("A35").En…

Buenas tardes amigos: Es mi primera consulta aquí, espero no estar violando alguna regla. Mi consulta es si, por medio de alguna macro o algún código, se puede ocultar los campos de la lista desplegable que no tienen nada que ver con lo que filtras en la anterior. Me explico mejor, tengo la tienda "TIENDA 1" que tiene historial de ventas en los años 2012 y 2013, y tienda "TIENDA 2" que tiene solo datos de ventas del 2013. Al poner tienda y año como filtro de informe en la tabla dinámica, quiero que al filtrar "TIENDA 2" y luego al filtrar año, solo me en la lista desplegable solo el 2013, más no el 2012, así como los meses. Se podrá? Ayudenme, si se pudiera mediante …

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.

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.

Tengo un archivo con una hoja Compras donde estan los datos correspondientes a productos comprados a varios proveedores. la macro que tengo busca los códigos de la columna A de la hoja Tomate en la hoja Compras y me copia en la hoja Tomate todas las filas donde aparece el código buscado. lo que quiero es que cuando termine de ejecutar la macro en la hoja Tomate, pase a la hoja Papa, ejecute la macro, luego pase a la hoja Cebolla y asi sucesivamente hasta la última hoja del libro, que pueden ser hasta 20 productos. no quiero escribir todo el código para cada hoja, quiero hacerlo con una variable con la hoja activa, para que cada vez que agregue una hoja no escribir el c…

Quisiera ver si es posible que una macro se ejecute solo el día 30 de diciembre de cada año siempre y cuando no sea domingo, ahora si es domingo que se ejecute un día antes es decir el sábado, 30 de diciembre.

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…

buen día a todos, les comento que estoy tratando de armar una macro para un generador de facturas o notas de venta. el asunto es que necesito que tenga las siguientes características: 1.- al dar clic en un botón asignado guarde como archivo nombre: folio de factura"(G4) y la fecha de expedición (E8) en formato .xls 2.- imprima el documento (si es posible con dos copias). 3.- el folio (G4) aumente +1 después de imprimir y deje en blanco los rangos de celdas "B16:C34" y "C7". quedando de esta forma listo para generar la próxima factura. de antemano gracias y saludos!!! ayuda excel.zip

Buenos dias, En principio muchas gracias a todas las personas que participan en este foro preguntando y respondiendo gracias a muchos de los mensajes publicados en la web e logrado avanzar un poco con la organizacion de mi empresa. Mi Pequeña empresa se encarga de la elaboracion y comercializacion de productos de limpieza. En el proyecto de excel que estoy elaborando, en la hoja7 quiero poner el producto que elaboro y al costado la cantidad en galones que deseo ingresar(Preparar o Producir) y apriete un boton que diga ingresar entonces automaticamente este busque el producto en la hoja 6 donde pondre mis formulas y descuente la materia prima y los envases de la hoja4 …

Buenas tardes Me pueden ayudar, necesito que se generen del archivo excel los recibos de pagos del personal y que se me guarden automáticamente en pdf cada uno de los trabajadores por separado en alguna carpeta que le pueda colocar una ruta, tengo la hoja de datos donde tengo los cálculos, y en la siguiente hoja tengo el recibo de pago. De antemano gracias por la ayuda que me puedan prestar Saludos RECIBOS PAGOS PRUEBA.xltm

Buenas Tardes Foristas. Una vez más acá. tengo una pequeña duda y me gustaría que ustedes me ayuden . Quiero sumar dos o más TextBox y que el resultado me lo ponga en un Label en tiempo real. Necesito el código. Una amistad me dio este, y aunque no me pareció lo implementé y no suma. Private Sub LblImporte_Change () LblImporte.Caption = Val(TxtCantidad.valuie) * Val(TxtPrecio.Value) End Sub Gracias de antemano. Tengan un feliz resto del día. Pino