Buenas Tardes Tengo dos cadenas de texto, la idea es averiguar si todos los caracteres que contiene una cadena están en la otra, no importando el orden. Saludos Cordiales Pedro Cadenas de texto.xlsx

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

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

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

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

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…

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, 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.

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…

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.

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…

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, Tengo una hoja excel con varias pestañas con datos. Estos datos los consolido en otra hoja en el mismo documento. Lo hago manualmente utilizando la función del menú Datos-> Consolidar. Quería automatizar el proceso y crear una macro para que sólo pulsando un botón lo hiciera, A través de Menú Programador, quise grabar la macro, pero me da error al grabarla. He estado buscando por internet y en el foro y no encuentro como usar la función "Consolidar" en una macro. ¿Alquien me podría ayudar por favor? Gracias!

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

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

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

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

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.