¿Como mostrar imagen en formulario? Hola. Deseo mostrar una imagen fija en un formulario, buscando encontre un codigo que no me funciona: Image1.Picture = LoadPicture("c:\imagen.jpg") Me da un error 481 que dice Imagen no valida, ¿estare haciendo algo mal? Saludos.

Buenas tardes a todos, necesito una ayuda para copiar un rango de filas de una hoja a un archivo externo(Base de Datos), la situacion es la siguiente: 1. Un archivo tiene varias hojas, numeradas del 1 al 30, que son los dias del mes, en este caso el ejemplo es 1,2. 2. En cada hoja hay unas filas, o sea registros del dia, estan de la fila 500 hasta máximo la fila 649, pueden ser menores, o sea, un dia puede ser de la 500 a la 510, otro de la 500 a la 520, así sucesivamente. 3. Estos registros los debo copiar a Una Base de Datos Externa, o sea, adicionarlos dia a dia, es decir buscar el ultimo registro de la base de datos externa y copiarlos al final. 4…

Saludos, tengo un archivo de Excel, con una especie de control de inventario de un almacén de construcción, en el cual necesito validar la recepción de productos que han sido solicitado por previa orden de compra, con los temas que he visto en este y otros foros ya he logrado hacer el formulario de registro de ordenes, pero en el segundo formulario no logro visualizar las ordenes y seleccionar los productos para validar la recepción, solo he logrado cargar al combobox los números de ordenes sin duplicados, pero no logro cargar los artículos de dicha orden, aun no trabajo con el formulario de despacho porque esta parte me tiene ofuscado, y necesito resolver esto para poder…

buenas noches nesecito un poco de ayuda con una macro lo explico la macro busca la ultima fila con datos y luego deberia copiar desde esa selda seleccionada hacia la derecha(rango variable) luego pegar en una columna de otra hoja buscando la ultima fila vacia con trasponer espero haberme explicado lo mejor posible a continuacion solo he llegado hasta esta, pero no encuentro el resto Dim ultimaFila As Integer ultimaFila = Cells(Rows.Count, 3).End(xlUp).Select

Hola, tengo el siguiente problema. En una hoja Excel tengo varias columnas con datos. Tengo la macro en la que en dos columnas concretas busca los datos repetidos, hasta aquí todo bien. No se continuar con la macro para que una vez que me ha detectado los duplicados en cada una de las columnas, me deje en la columna solo un registro de los duplicados y coincidentes en ambas columnas, borre o corte el resto y me los copie en otra hoja. Saludos Ejemplo.xlsm

Hola a todos señores foristas...Estoy intentando introducir un control calendar en mi formulario pero no lo encuentro por ningun lado... mi version de Excel es la 2007. Hace tiempo ya utilice este control en otras versiones de Excel y no recuerdo de donde las saque ,pero .... no estaban tan ocultas seguro ( porque las encontre ) Muchas gracias por su ayuda Un saludo Salvador

Hola Espero No Violar El reglamento pero ya habia cerrado el tema anterior ya que la duda rerferente a el ha sido resuelta antes que nada Hola Macro Antonio Saludos de Nuevo y molestando de nuevamente fijate que como te comente el codigo que hiciste quedo super excelente te doy las gracias nuevamente pero fijate que tengo el problema que al anexar mas columnas tanto en la base de datos como en codigo para el listbox me marca el siguiente error " error 380 en tiempo de ejecucion" estube inventigando un poco y parece ser que la propiedad de listbox en este caso no admite en la propiedad mas de 10 columnas quisiera tu opinion y tu punto de vista al respecto y alguna sujere…

Hola, Antes de nada agradecer al que me esté leyendo para intentar resolver la duda que tengo y solucionar la misma duda que pueda tener otra gente. Mi problema es que utilizando macros en Excel me sale el siguiente error: Se ha producido el error '1004' en tiempo de ejecución: Error en el método Insert de la clase Range Si entro en el Visual Basic me aparece resaltado: Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow La verdad que no tengo ni idea de que significa, porque la macro funcionaba hasta que bloqueé las hojas y guarde el trabajo. Al volver a abrirlo ya me aparecía el error. No tengo ni idea de utilizar macros...lo fui consiguiendo po…

Estimadísimos. Tengo otra consulta, necesito realizar una funcion dentro de macro excel que me entregue el nombre del último archivo modificado de un formato específico. Esto teniendo la ruta en la que quiero buscar y el formato. He conseguido el siguiente código, que en teoría debería ser parte del programa: Function encontrar_ultimo(sitio As String) As String Set fsearch = CreateObject("Scripting.FileSystemObject") ruta = ActiveWorkbook.Path & "\" & sitio & "\" 'file() se accede a todas las propiedades de un archivo Set Carpeta = fsearch.getfolder(ruta) Set ficheros = Carpeta.Files 'hacer algo para cada archivo den directorio, utilizando arreg…

Hola amigos, espero estar siguiendo bien las normas del foro. Les explico, tengo un listado de "datos importantes" en una de las hojas del archivo Excel. En la otra tengo simplemente la hoja de entrada de datos por parte del usuario. La idea es que ingresará los datos en X rango, es decir, es arbitrario ese rango, pero lo importante sería poder comparar lo que ingrese el usuario, con los valores en la lista de "Datos importantes". De tal forma que si el usuario ingresa un dato considerado importante, la celda en la que lo ingrese se pinte de cierto color, y además aparezca un message box avisándole que es un dato importante. Esto lo quiero hacer porque el listado real es…

Quería acabar mi proyecto hoy... y dando los toques finales me dice que EL PROCEDIMIENTO ES DEMASIADO LARGO.. CREO QUE POR HOY LE PARO Y ME VOY POR UN TEQUILA...PARA EL FRIO.... YA MAÑANA VEREMOS de a como nos toca... P.D.: ALGUNA IDEA a parte de PARTIR EL CÓDIGO EN VARIOS SUB? Saludos.

Saludos. Investigando sobre TAG en la Ayuda de VBA, encontré un código que ilustra como utlizar esta propiedad. He tratado de poder usarlo, sin resultados favorables. Adjunto el archivo donde he estado probando, sin lograr que funcione. Agradezco mucho la ayuda al respecto. PROPIEDAD TAG.xls

Buenas Tardes es posible hacer validación de CURP masivo en RENAPO? mediante una macros o algún programa? Gracias.

Buen día a todos!!! Solicito de su apoyo para saber si es posible agregar código a un formulario para que verifique la ortografía de un cuadro de texto (o varios) mientras se escribe como lo hace Word. Hasta el momento solo he hecho lo mas facil que es agregar el código Cells.CheckSpelling SpellLang:=2058 para que verifique el texto una vez exportado a excel, pero esto me quita tiempo, por lo que quisiera hacerlo desde el mismo formulario. Gracias! PD: No me permite subir el archivo, me marca un error

Hola, Tengo el siguiente problema. Tengo un PDF con varias hojas (unas 500) y quiero separarlo en 1 archivo por cada hoja. Actualmente hay varios programas que ofrecen ese servicio, el problema es que al separarlo en varios archivos, los archivos quedan nombrados con un numero (ej: pdf1, pdf2, pdf3... etc) Todas estas hojas llevan los datos de personas en el mismo lugar siempre. Entonces lo que necesito es separar el PDF en varios archivos y que cada archivo se nombre con el criterio del DNI de cada persona, el cual se encuentra siempre en la misma ubicación. En el ejemplo que adjunto, les dejo un PDF que tiene 3 hojas, el cual debería ser separado en 3 archivos que …

Hola a todos, existe alguna manera mediante una macro de que al insertar un objeto empiece a numerar estos objetos insertados desde un número concreto. Es decir, cuando seleccionas un objeto, arriba a la derecha donde indica la celda en la que estás situado, aparece el nombre del objeto seleccionado (por ejemplo: Objeto 1), existe alguna manera de que al insertarlo empiece desde un número concreto. Gracias

Hola a tod@s!! Necesito me ayuden por favor, necesito guardar el formulario activo en formato pdf. Lo he intentado a través de Me.PrintForm, pero lo envía a la impresora predeterminada en mi equipo. Busqué en la web y encontré en esta página algo como lo que necesito, pero me arroja error: Pendiente - Guardar como pdf un un userform Espero alguien pueda ayudarme, gracias de antemano, Saludos!!

Al ejecutar un fichero Excel con macro me salta el "error de compilación en módulo oculto" en una computadora. En otra computadora funciona perfectamente. ¿Alguien podría aportarme alguna idea para solventarlo?. Adjunto fichero en cuestión. Gracias. Acciones formativas.xlsm

Buenas espero la corrección de algún experto, tengo este código y me da este mensaje Error de Compilación Calificador no Valido ...cual es mi error? Private Sub Buscar(TextBox As Control, Columna As Integer)...................... (esto me pinta en amarillo) Dim RUC As String Dim uf As String Dim i As Integer uf = RUC.Range("D" & Rows.Count).End(xlUp).Row .....................................(y la palabra RUC ne selecciona) If Trim(TextBox) = "" Then ListBox1.RowSource = "'" & RUC.Name & "'!D2:E" & uf Exit Sub End If ListBox1.RowSource = "" For i = 2 To uf If UCase(CStr(RUC.Cells(i, Columna))) Like "*" & UCase(TextBox…

saludos deseo ayuda para alguna macro que me muestre en las columnas G y H de una planilla de calculo, el numero de decimales conforme al numero ingresado en la celda B3. si en la celda B3 esta 2 el numero de formato de numeros de las columnas debe estar con 2 decimales, si el valor de B3 es 5 debe mostrase 5 decimales, etc. he subido un ejemplo "mostrar Numero de decimales" Gracias MOSTRAR NUMERO DECIMALES.xls

Hola de nuevo espero me podais ayudar con esta nueva duda. Para colocar una imagen en un boton de comando en un UserForm, voy a picture elijo la ruta de la imagen y la pongo en el botón, hasta ahi todo bien, mi problema empieza cuando quiero quitar la imagen de ese mismo botón de comando, que no se como hacerlo. Gracias por vuestra atención. Un saludo.

Hola buena noche estoy tratando de hacer una macro sencilla, de cambiar puntos por comas y viceversa, pero el inconveniente es que me deja los números como texto cada vez que los connvierto... si alguien puede que me ayudarme se lo agrederia, Mil bendiciones. Open abrir.xlsm

Hola, Quiero ordenar automáticamente los datos en una tabla, de forma que al ingresar los datos en una fila los datos se organicen según un criterio (fecha) al ingresar los datos en la última celda del rango o al teclear intro. Lo he intentado con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then With Range("A:D") .Sort key1:=.Cells(1, 1), Header:=xlYes End With End If End Sub Pero solo sirve para rangos normales, no para tablas dinámicas. ¿Alguien me puede sugerir algo similar? Gracias. tabla_dinámica.xlsm

Hola colegas. Buenos días a todos. Espero se encuentren bien de salud al igual que su familia. Mi consulta de hoy en bien sencilla. Es el mismo Proyecto de Conciliación Bancaria. Yo le tengo creado una creación e incremento de ID en el evento Initialize del Formulario, pero no me cambia a medida que voy ingresando los registros nuevos, o sea, se mantiene con un mismo numero y yo necesito que cada vez que inserte un nuevo registro este sume uno al anterior y me lo muestre en el TxtID. Dim fila As Long fila = Hoja10.Range("A" & Rows.Count).End(xlUp).Row If Hoja10.Cells(7, 1) = Empty Then TxtID = 1 Else TxtID = Hoja10.Cells(fila, 1…

Amigos estoy metido en un proyecto donde necesito generar un numero consecutivo para los registros guardado, lo primero que se me ha ocurrido es generarlo manualmente mediante la digitacion en un textbox pero al cabo de cierto tiempo perderé el hilo del consecutivo porque seran muchos registro. entonces lo que necesito es que al momento de llamar el userform se asigne automaticamente el numero consecutivo en el textbox Idregistro. me pueden orientar como seria este caso. y nuevamente les agradezco su apoyo.