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.

Buena tarde a todos: Necesito hacer un resumen de folios y con los nombres de pacientes a una hoja resumen. Pero los datos de cada hoja son extensos. La informacion que quiero extraer son de las columnas en que se encuebntran los Folio, fecha, y nombre de paciente. Muchas gracias Extraccion de datos.xls

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…

Tengo un pequeño libro de excel que he hecho salseando con aportes vuestros y cuando envío el archivo xlsm por correo a alguien para que lo utilice le dice que está dañado y no le funciona. En mi ordenador va perfectamente ¿que puedo hacer? Gracias Almacen Marichu.rar

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 Estoy recien aprendiendo e intentando crear macros en VB,pero esta vez necesito por favor ayuda... Debo crear lo siguiente: 1. Crear una macro que tome las primeras 10 celdas de la hoja 1 y las copie en la segunda hoja a partir de A1 2. Crear una macro que tome de la celda 11 en adelante y la copie a una tercera hoja a partir de A1 Este es el codigo que intente hacer pero no me resulta el traspaso a la tercera hoja Public Sub traspasohoja2() Sheets("hoja1").Select Dim i As Integer For i = 1 To 10 Cells(i, 1).Select Selection.Copy Sheets("hoja2").Select Cells(i, 1).Select ActiveSheet.Paste Sheets("hoja1…

Hola: El archivo contiene un código para enviar email a través de Hotmail. En la celda "adjunto" hay que poner la ruta del archivo que quieres adjuntar, y solicito lo siguiente: crear un botón mediante el cual se abra una ventana, explores hasta llegar al fichero que se quiere enviar y, al aceptar, se inserte la ruta en la celda. Ejemplo1.zip

Buen día amigos quisiera ayuda en esto. 1.- Uso Excel 2007. 2.- Tengo una macro plantilla que crea a su vez varios archivos con macros para cada uno de mis alumnos. 3.- La macro plantilla hace que automáticamente se le asigne una contraseña a vbaProject y asi no puedan ingresar a ver el código vba. 4.- Pero como ustedes ya saben este código se rompe fácil, hasta en youtube hay videos de como hacerlo. Investigando en páginas en ingles veo que la mejor manera es ocultando el código vba creando un add-in, pero no se como hacerlo, ayuda porfavor.

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

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 …

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

hola amigos , tengo el siguiente codigo para calcular el digito de verificacion del nit para colombia pero no se como usarlo para que me funcione utilizando dos textbox uno es donde se digita el nit y el otro donde arroja el resultado del DV : Public Function DV(Nit) Dim TipoRet, lnRetorno, Arreglo_PA(15), WSuma, WDato, WDig_Ver As Integer TipoRet = VarType(Nit) Select Case TipoRet Case TipoRet = "C" Nit = Trim(Nit) Case TipoRet = "N" Or TipoRet = "Y" Nit = Trim(Str(Nit)) End Select Arreglo_PA(1) = 71 Arreglo_PA(2) = 67 Arreglo_PA(3) = 59 Arreglo_PA(4) = 53 Arreglo_PA(5) = 47 Arreglo_PA(6) = 43 Arreglo_PA(7) = 41 Arreglo_PA(8)…

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

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

Buenas Noches a todos!!! Pidiendo de su ayuda, tengo una carpeta varios archivos que tienen informacion, yo quiero generar un reporte en donde me abra cada archivo de excel y me copie toda la informacion a un archivo de excel, solo que ese reporte quiero tenerlo en una solo hoja, es decir que vayan pegando uno abajo del otro como lista. se podra? Anexo archivos Gracias!!! Archivos.zip

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

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

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

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