Buenos días Foro, Necesito vuestra ayuda y conocimiento para un error con VBA. Hace un mes que lleva dándome problema una línea de código (no había pasado en más de un año) y tras mirar en mil páginas no encuentro solución, por si pudierais echarme una mano. Os adjunto la línea de código: El error se encuentra en el "end if" del final. No sabéis lo importante que me es solucionarlo y no encuentro la solución... Mil gracias Sub ImportarModelos() Dim strSource As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim consulta As String Dim archivoAbrir As Excel.Workbook Dim RUTAExcel As String Dim strRespu…

Buenos dias, tengo una celda (M4) que es donde quiero el resultado, quiero hacer que por medio de una macro recorra todos los datos que estan hacia la derecha (desde N4 hacia la derecha). El inconveniente se presenta porque no tengo un rango fijo, es variable, hoy puedo tener datos desde N4 hasta AZ4, y otro dia tener datos desde N4 hasta quien sabe donde... alguna sugerencia? Los datos siempre empiezan en N4. Gracias por el tiempo

Buenas, necesito ayuda con esta plantilla para crear libros, os agradecería mucho que le echéis un vistazo. Os adjunto el archivo y os cuento el funcionamiento y lo que falta por hacer. En el archivo, en la hoja "Tabla de datos" se deberán pegar los datos correspondientes a las columnas Origen, Variety, field nº, tswv y tm3; momento en el que se actualizará la celda G2 con el número de páginas que va a tener el libro que queremos crear. Cada fila será una futura hoja de nuestro libro. (Los datos que hay ahora son solo para probar, los libros tendrán más de 100 hojas). Si probáis a darle ahora a crear libro veréis que se crean 3 hojas, tantas como filas hay rellenas…

Hola a Tod@s, Espero me puedan ayudar,... al intentar insertar una imagen a un formulario en tiempo de creación por medio de VBA, me dice que el objeto no esta disponible. Sub CreaForm() Dim MiNewForm As Object Set MiNewForm = Application.VBE.ActiveVBProject.VBComponents.Add(3) With MiNewForm .Properties("Height") = 300 .Properties("Width") = 300 .Name = "Prueba" .Properties("Caption") = "Prueba_LBV" .Properties("BackColor") = RGB(0, 255, 0) .Properties("Picture") = ActiveWorkbook.Path & "\Imagen1.jpg" ' .... AQUI ME SALTA EL ERROR? .Properties("PictureSizeMode") = 1 End With End Sub …

Ya no estoy realizando un archivo con macro incluida. Como no estoy atascado, no solicito vuestra ayuda. Gracias por la ayuda. Mode ironic off. Saludos.

Buenos días comunidad Ayudaexcel Quiero agradecer en general a los que me han ayudado en los temas que he publicado anteriormente. De nuevo solicito ayuda en relación a una optimizaciónde una Base de Datos que me facilitó el compañero chileman2010. En el archivo adjunto verán la base de datos que al presionar el botón "buscar" indicara todos los datos de la persona, pero me gustaría que además de publicar sus datos muestre su Currículo ya sea inscrustado como un objeto y que al dar doble clic se abra. O no sé si habrá alguna otra forma. En realidad esta base estará en un dispositivo USB junto a todos los currículos de los candidatos! Dichos currículos estaran algunos en …

Amigos, una consulta. Tengo archivos de pruebas que quiero compartir con otras personas, pero quiero que solo lo pueda instalar en 1 o 2 PCs ¿hay alguna manera de hacer esto?. ps no quiero que compartan el archivo con otros. Gracias, Adjunto mi archivo. Formulario-en-VBA-aplicado-al-Registro-de-Ventas-de-un-Restaurant 12-04.xls

Buenos días Solicito de su ayuda de favor con este tema, espero me puedan ayudar. En este Ejemplo La Cedula 1 tiene dos cuentas, pero es un dato variable ya que puede ser desde una cuenta hasta 50 quisiera hacer un ciclo que coloque las cuentas capturadas en la hoja “Base_V21” correspondientes por “Cedula” como se muestra en el ejemplo (Hoja Cedula) El archivo lleva un consecutivo pongo un ejemplo en la hoja “Base_V21” como podría venir mi archivo, cada Cedula (Cedula1, Cedula2, Cedula3) es un archivo que se genera en pdf Dentro de la macro hay un código que hice, pero solo me lo hace con un registro De antemano agradezco su apoyo …

Tengo un Listbox que por necesidad debo abrirlo muchas veces para seleccionar un item, llega un momento en que ya no muestra los datos. Tengo que reiniciar Excel y comienzo de nuevo. ¿Que puede estar sucediendo?

Estimados amigos de la comunidad, para solicitarles su apoyo referente al asunto: La pregunta es que cada vez que hago una consulta siempre queda registrado en la cadena de conexión la ruta del libro fuente incluyendo el directorio, sin embargo cuando cambio de directorio al libro fuente y ejecuto nuevamente la consulta en el libro destino envía un mensaje : "El motor de la base de datos no puede encontrar el objeto... asegúrese del que el objeto exista... Espero me pueda ayudar Libro1.zip

Buenas tardes Tengo un libro de excel con varias hojas y en la última deseo que mensualmente se copien los últimos datos actualizados y que salte a la siguiente columna del siguiente mes, y así sucesivamente, esto con el objetivo de guardar el avance mensual para posteriormente realizar gráficas o análisis, espero haberme explicado correctamente. Hoja1 Hoja2 Hoja3 Hoja4 ResumenMensual, Ene Feb Mar Ab May Lo que necesio es que de las hojas 1 a 4 tome los datos y el total los copie en la columna en Ene, luego el siguiente mes cambian los datos y debe saltar al siguiente mes copia…

Buenas tardes estimados, espero y me puedan ayudar con este dilema se trata de lo siguiente. tengo un archivo "01 PCP.xlsx - v02 - copia" el cual entre otras hojas contiene tres principalmente, y son: "Proy.-Comer" - "BD_Recetas" - "Mat_Stock" En la hoja "Proy.-Comer" tenemos en color naranja las semanas del año, y en color amarillo los productos, y en plomo las cantidades (que se digitan manualmente). ***Lo que necesito es que en la hoja "BD_Recetas" , a partir de la celda "M65" Sume la cantidad correspondiente a la semana según el producto de la columna en color amarillo "L10:L193" Y sus cantidades (celdas de color plomo), y lue…

Hola a todos, estoy tratando de hacer una "calculadora" u hoja de cálculo para hacer consultas estandarizadas a una base de datos compuesta por los los registros pluviométricos diarios de una estación meteorológica sobre los que hay rescatar una información sobre fechas concretas para rellenar los datos correspondiente a las celdas con los siguientes encabezados: mm max 24h mm tot Evento Nº Dias Evento 1º Días sin lluvia antes prec máxima mm 5 dias antes mm 7 dias antes Días sin lluvia antes del evento mm lluvia evento lluvia anterior - mm max 24h. Hace referencia a la información de la primera estación sobre el máximo día de lluvia en mm. La información que debería …

Buenas a todos, tengo un problema al cargar datos de una base de datos Access a Excel, el problema surgio cuando en mi empresa se actualizo el Office 2007 a la version 2010, el problema es el siguiente, hay una serie de datos en formato fecha/hora en el archivo Access, cuando los importo por macro a excel, me trae estos datos con el valor "0", al pasarlo a formato hora se pone 12:00:00 am. en Office 2007 no existia este problema. Dejo la parte del codigo que se encarga de traer los datos de Acces a Excel, agradeceria su ayuda. Dim PATH_ As String, varianame As String Dim dr As String Dim ay As String, by As Integer Dim ayS As String, byS As Integer, bySb As Integer …

Hola estimados foreros, espero puedan nuevamente apoyarme con lo que necesito, esta vez, busco pintar las celdas que tengan un número entero (en columna específica, para este ejemplo lo dejé en Columna A), busqué algún ejemplo por la web, lo más cercano que encontré no me sirve del todo, ya que no he podido adaptarla a mis necesidades, además mencionar que el/los archivo(s) al que necesito detectar los números enteros los recibo de manera masiva desde una fuente externa, por lo que varían sus nombres, nunca son iguales, adjunto archivo ejemplo y ahí mismo muestro visualmente lo que necesito finalmente. pintar si un valor es entero_ayudaexcel.xlsm

Hola a todos Queria hacerles una pregunta. Es un poco tonta pero no logro hacer que trabaje. Lo que quiero hacer es ejemplo: tener una hoja de excel, indiferentemente le haga un cambio en una celda "x" o "y" me aparezca en una celda que yo le especifique, la fecha y hora de modificación. Encontre este código y me funciona bien, el tema es que quiero colocarlo en vez de (1,1) lo quiero colocar digamos en la O4. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cells(1, 1).Value = "Last saved: " & Format(Date, "dd-mm-yy") & " " & Time End Sub Referecia: Can I make a cell in Excel that stamps the time of the last time the .xl…

hola necesito saber cual es el procedimiento paraa recorrer un label y que me devuelva una palabra por ejemplo en la segunda posicion, el problema es que es dinamico el texto va cambiando segun otras operaciones, entonces necesito que me devuelva la palabra en una pocicion especifica independiente del largo de la palabra o numero de caracteres proque variara la palabra que se quiere devolver. saludos

Hola Para pedirles su colaboración con una macro en la cual me ayudaron pero cuando la aplique con otra hoja esta no trabajo. Lo que realiza la macro es: Toma los datos de la Hoja Comentar de las celdas B4 hasta la AJ10 y los envía a la hoja Planeación, asignandolos según la maquinas en las celdas donde están ubicadas las fechas y la trae como comentario. Por ejemplo en la Hoja Comentar la celda B4 contiene mantenimiento debe llevar esta información a la Hoja Planeación en la celda C6 que es la correspondiente a ese día y colocar un comentario de mantenimiento al igual con las otras maquinas donde tengan asignada una información de la hoja Comentar, debe llevarlo …

Hola a todos, esta vez tengo una duda, tengo una instruccion para agregar 2 columnas al final de las columnas, pero no me hace nada... me gustaria que se copiaran con el formato de la izquierda... Anexo instruccion ucol = Cells(1, Columns.Count).End(xlToLeft).Column + 2[/PHP] Gracias a todos, agradesco su ayuda! Saludos. Gerardo. ya logre resolverlo [b]TEMA FINALIZADOOOOO!!![/b]

Estimados amigos del foro, junto con saludarlo queria que me ayudaran con una planilla que quiero implementar, bueno quiero que por un combobox se genere una tabla con los siguientes filtros (segun archivo adjunto): E-CL A por escalon I me entregue el coordinado, S/E y el valor asociado. Lo mismo para E-CL B y los distintos escalones... por lo tanto filtrar por escalon I, II, III, etc. y que me entregue coordinado, S/E y el valor asociado tanto para E-CL A y E-CL B... Espero puedan ayudarme.... EDAC.zip

Buenas noches a todos!! Tengo un archivo en Excel con unos 2500 contactos (nombre y apellidos, teléfono móvil, TFNO fijo y el email. Lo que necesitaría es poder abrir dicha carpeta de contactos en Excel y poder crear diferentes grupos de cintactos(150 en cada carpeta). Lo ideal sería que crease automáticamente carpetas con 150 contactos en cada una y que se pudiesen guardar fuera de dicho Excel. La idea es poder luego importarla por carpetas al outlook (cada carpeta de 150 contactos). Gracias amigos

Hola que tal quiera ver si em podrian decir como el hago toye n proyecto y quiero poner un boton que al precionarlo me muetre los libros en otra ventana se los agradeciria mucho si me ayudaran cone ste pequeño problema

Control de Existencias Prueba.rar

Hola a todos, mi nombre es de Y mi nuevo problema es este: Tendría la diversidad de obtener dos listas de artículos en la hoja 1, una en la columna (A) y la otra en la columna (B) Por lo tanto, en la columna (A) puedo escribir "Tabla roja"; "Mesa azul"; "Flor roja"; "Flor azul", etc ...! Ahora lo que me gustaría lograr sería tener la última entrada de color real en color (B) ejemplo si en la columna (A) escribo tabla roja En la columna (B) debe aparecer la palabra (tabla de Roso) pero solo la palabra roja Realmente debería ponerse rojo. eso es todo! Gracias de A.Maurizio Treslation : ############### Hi everyone, my name is de And my new …

Hola a todos y desde ya le agradezco por su tiempo y paciencia.. Tengo una planilla, en la cual tengo un Userform no modal, en esta tengo dos Textbox, en los que hago búsquedas, y que al darle doble click me arroja en cualquiera de las celdas de la columna "B" donde se encuentra mi cursor....ademas... Tengo un TextBox3, en la cual quiero ingresar números ej. 123-123-465799 y que este número me arroje a la celda de la columna "D", a partir de la fila 7, ademas tengo 3 ComboBox, en los cuales tengo lista a seleccionar, del ComboBox1 al seleccionar el tipo de documento que me arroje a la celda de la columna "F", a partir de la fila 7 del ComboBox2, al seleccionar e…