Hola compañeros, Acabo de crear un formulario y no me reconoce las variables objeto declaradas en la zona de declaraciones... ' Zona de declaraciones Dim PRUEBAS As Worksheet Private Sub cbAceptar_Click() Set PRUEBAS = Sheets("Hoja1") Dim ultimaFila As Long ultimaFila = PRUEBAS.Range("A1048576").End(xlUp).Row ' Y por aquí el resto del código... end sub Me salta un error que no me reconoce el objeto. A qué podrá deberse? Muchas gracias de antemano por cualquier tipo orientación.

Buenos días compañeros, Me enfrento a un problema complejo con VBA, el cual estoy intentando resolver pero no consigo hallar la solución. Tengo la siguiente página web: https://www.metals4u.co.uk/materials/aluminium En la pestaña "Materials", se encuentran varios materiales como "Aluminium, Brass, Copper, ..." Si seleccionamos cualquiera de esos materiales (por ejemplo Aluminium) la pagina nos lleva a todas las formas disponibles de este material (Ver figura adjunta). Para ver las caracteristicas de una forma pulsamos en "Show Details", y la pagina nos lleva a una ventana como las caracteristicas de esa forma (Ver figura adjunta) En dicha …

Buenas Tardes: Adjunto enlace para ver el archivo https://drive.google.com/file/d/14uWHGoaRKftjRRHZpbXoKHWpyMLdSOVC/view?usp=sharing Descargan el archivo para poder ejecutarlo Para iniciar solo deben dar click sobre la hoja llamada "INICIO", el pasa al USERFORM1 donde deco escoger un representante y un médico y dar click en "SIGUIENTE" es donde me aparece el error. Otra vez mas estoy atado por este error

Buenas tardes Tengo una duda a ver si me puede ayudar. tengo un libro de excel donde quiero hacer un filtro de una hoja a otra de acuerdo a un rango de fechas determinado pero al momento de ejecutar la macro me envía un error por desbordamiento, no entiendo muy bien porque sucede si me pudieran apoyar en indicarme cual es el error lo agradecería. Gracias por su apoyo. prueba filtro.xlsm

buenas tardes expertos mi libro tiene un problema al ejecutar el codigo ordenarhoja2 me pasa los datos de la hoja 2 a la hoja 3 ordenadamente , hasta ahi esta bien y entiendo que en la hoja 2 hay varios numeros repetidos al pasarlo a la hoja 3 desaparecen pero ejecuto el codigo eliminar repetidos en la hoja 2 observo en la barra de excel de abajo que el recuento es diferente la cantidad entre las dos hojas a que se debe ese error ? Libro10.xlsm

Buenos días; Ayer me surgió un pequeño problema en la macro que estoy montando, os comento para ver si me podéis ayudar. Al intentar hacer una consulta sql de un Excel nuevo ( sin guardar ) me está dando error en la ruta ( al no estar guardado no tiene ruta ) y no sé cómo ponerlo. Esto es lo que he puesto pero sin éxito. Excel_Nuevo = ActiveWorkbook.Name RutaExcel = "Data Source=" & Workbooks(Excel_Nuevo).Path & "\" & Excel_Nuevo & ";Extended Properties=""Excel 12.0;HDR=Yes;""" Adjunto excel. Gracias y un saludo, Libro3.xlsm

Buenos días amigos, podrían ayudarme, tengo varias dudas: 1. Ando buscando pero no consigo hacerlo funcionar, al introducir datos en el campo buscar que me valla buscando en todas las columnas lo que valla escribiendo sobre la marcha (Las coincidencias que valla escribiendo). 2. Por otro lado ¿como enlazo dos combox?. En el campo alta a seleccionar un modelo por ejemplo C500 y que me seleccione en el combox de abajo el tipo 1 automáticamente. Muchas gracias de antemano por vuestras aportaciones, gracias y saludos para todos. Formulario.xlsm

Buenos dias No se si me puedan ayudar, lo que quiero intentar hacer es que al darle click a una celda en este caso la de "folio de alta de productos" en la pestaña "folios vencidos" me filtre en la hoja "seguimiento" ese valor. E intentado haciendo un filtro con doble click pero no e entendido como hacer para trasladar esta función a otra hoja y también lo intente grabando una macro pero no e tenido mucha suerte. espero puedan apoyarme Prueba.xlsm

Buenas tardes amigos. Tengo una duda. Estoy usando el siguiente codigo para colocarle clave de activacion a un boton que esta en la hoja de excel (el codigo funciona perfecto), pero no encuentro una manera de ocutar la clave cuando se ingresa. Habra alguna forma de que no se vea lo que se digita ? 'Caja para el ingreso del Password para poder borrar ultimo registro Dim PS As String Dim PS2 As String PS2 = "clave" PS = InputBox("Por favor ingrese su Password") If PS = PS2 Then 'Fin de la caja Agradecido de antemano por vuestra ayuda

Buenas tardes. Queria saber si habra alguna forma de indicarle al userform que se ubique en una posicion especifica. Voy a tratar de ser mas explicito, el userform en este momento se ubica en el centro de la pantalla, mas yo quiero que se ubique en la misma posicion centrada, pero unas lineas mas abajo. Es decir, debajo de la celda 7, pero centrado. Dejo una imagen que vale mas que mil palabras. Agradecido de antemano por vuesta ayuda

Buenas tardes a todos los compañeros de este fantastico foro :D Estoy intentando hacer una macro para almacenar en un vector (array) los dias laborales entre dos fechas (sin contar festivos ni fines de semana). Por ejemplo; Fecha inicio: 03/08/2020 Fecha fin; 10/08/2020 Si el día 08/08/2020 y 09/08/2020 es fin de semana, y consideramos/especificamos que el dia 07/08/2020 es festivo. ¿Como podría obtener un vector de la siguiente forma)? Vector: (03/08/2020; 04/08/2020; 05/08/2020; 06/08/2020; 10/08/2020) Agradeceria muchos vuestra valiosa ayuda. Muchas gracias Un abrazo

Sub cargaRecib() Dim ws2, ws1 As Worksheet, Mat Dim Q& Set ws1 = ActiveSheet 'mio = ActiveWorkbook.Name ws2 = "selecciona el libro a procesar" MsgBox ws2, vbOKOnly ws2 = Application.GetOpenFilename(Title:=ws2) If ws2 = False Then Exit Sub On Error GoTo 0 Set ws2 = Workbooks.Open(ws2) Sheets("XML").Select If [B2] = "" Then MsgBox "Libro u Hoja sin Informacion." End If ReDim Matt(1 To 58) Q = Range([B1], Cells(Rows.Count, "b").End(xlUp)).Rows.Count Mat(1) = Application.Transpose(ws2.[B1].Resize(Q)) End Sub

Expertos, los escribo esta vez con un pequeño archivo que contiene dos formularios uno de ellos con registro de perfil de cliente que cuando escojo un registro y lo edito pulso editar aparentemente dice registro editado pero no guarda los datos editados, y la otro formulario es cuando ingreso nuevos datos en los controles y lo pulso registrar sale error y windows cierra a excel, bueno esos dos casos que me sale en este pequeño proyecto...Lo agradezco a todos por la ayuda que me van a brindar. Ajunto el archivo Inventario.xlsm

como puedo modificar este codigo para que me deje un numero de los que se repiten Sub Eliminar_repetidos() Dim Mat, Q%, i%, R%, j%, Dic, Rng As Range, Valor, iniTime! iniTime = Timer Set Dic = CreateObject("Scripting.Dictionary") Mat = Range("A1:SX42"): Q = UBound(Mat): R = UBound(Mat, 2) For i = 1 To Q For j = 1 To R Valor = Mat(i, j) If Valor <> Empty Then Select Case Dic.Exists(Valor) Case True Set Rng = Union(Dic(Valor), Cells(i, j)) Case False Set Rng = Cells(i, j) End Select Set Dic(Valor) = Rng End If Next Next Application.ScreenUpdating = Fa…

Hola buenos días amigos de Ayuda Excel, acudo nuevamente a ustedes para que me ayuden con esta macro. Muchas gracias La macro debe buscar los datos o valores indicados en la columna C de la hoja COLORES en la columna A de la hoja LISTADO GENERAL y una vez localizado, asignar el valor del precio ubicado en la columna F de la hoja COLORES en la columna I del respectivo dato y muy importante, que se actualice automáticamente cuando el valor del precio de la hoja COLORES varie. NOTA: En esta hoja COLORES se van añadiendo constantemente nuevos datos. EN CASO QUE NO ENCUENTRE EL PRODUCTO, DEBE ADVERTIRLO MEDIANTE UN MENSAJE BUSCAR DATO EN OTRA HOJA.xlsm

buenos dias: les envio un archivo en TXT en donde al oprimir un optionbutton me habilita un inputbox donde se solicita digitar un numero, pero al dejar vacio y dar aceptar o dar boton cancelar me sale "ERROR 13 NO COINCIDEN LOS TIPOS" en la siguiente linea del archivo adjunto. CANTPEQ = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR") Agradezco su ayuda MUESTRA.txt

como le puedo agregar a este código que las celdas que escoge aleatoriamente en mi hoja estadística me las rellene de color amarillo Sub Aleatorios() For x = 1 To 22 f = Int((42 * Rnd) + 1) c = Int((256 * Rnd) + 1) Sheets("analisis").Range("C" & x) = _ Sheets("estadisticas").Cells(f, c) Next End Sub

Hola buenas tardes comunidad Esta vez les cuento que tengo el siguiente tema, tengo un archivo Excel donde debo hacer un listado de otros archivos pero con hipervinculos. El tema es que debo dejar el nombre original del archivo e hipervincular todos los archivos de una carpeta a través de Macros y no hacerlo manualmente. Les dejo un ejemplo con uno que hice pero lo necesito para mas archivos. ¿qué se les ocurre? https://drive.google.com/drive/folders/1J_GSiVRJshedZtJPg2zIQNBIkplXH7ua?usp=sharing Les agradezco la ayuda de antemano, saludos.

Buenas Estoy intentando crear un macro para generar un reporte entre periodos que están en las celdas " D5 " y " F5 " de una tabla de Access, pero no logro que funcione. acudo a ustedes para que me ayuden a definir cual sera el error. Formato de la fecha en Access "29/07/2020 10:48:51" Application.ScreenUpdating = True NumId = (Format(Worksheets("usuarioF1").Range("D5").Value, "DD-MMM-YYYY") & "# ") NumIh = (Format(Worksheets("usuarioF1").Range("F5").Value, "DD-MMM-YYYY") & "# ") Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "\01.Datos\Registro.accdb" .Open End With Set Rs = New A…

Hola amigos del foro, Estoy ejecutando esta macro, y continuamente me muestra 'Error definido por la aplicación o el objeto': Sub ProtegerHoja() Dim fila As Long fila = Sheets("Hoja1").Range("A1048576").End(xlUp).Row Dim contraseña As String contraseña = "abcd" With ActiveSheet .Protection.AllowEditRanges.Add Title:="Rango1", _ Range:=Range("A3:H" & fila), _ Password:=contraseña .Protect Password:=contraseña, _ DrawingObjects:=True, _ Contents:=True .EnableSelection = xlNoRestrictions End With End Sub No sé dónde …

Estimados, Espero que se encuentren muy bien, necesito ayuda para poder realizar un buble con for para encontrar un valor que no se en que fila y columna esta, entonces estoy tratando de buscarlo con tres for, pero no logro traspasar la fila y columna encontradas para despues ejecutar el ultimo for para llenar mi tabla. por favor su ayuda. saludos.

Buenas, Quisiera realizar una lista desplegable que dependiera de la siguiente forma. Si alguien puede ayudarme os lo agradeceria mucho. Tengo una pestaña (BASE DATOS) con las siguientes listas Tuberia y sus categorias y variantes. Cableado y sus categorias y variantes Elementos y sus categorias y variantes. La idea es que en LISTADO al seleccionar una celda (A1) pueda elegir entre tuberia, cableado o elementos. Al realizar eso en (A2) pueda elegir entre las categorias de cada uno y en (A3) pueda elegir su variante Estamos intentando crear una base de datos que se pueda ir ampliando, para la realizacion de mediciones. Por ejemplo A1…

Estimados, junto con saludarles, quisiera pedirles ayuda con respecto a un código el cual he estado trabajando. Se me produce el siguiente error 1004 al momento de ejecutar sin valores una macro, la cual he intentado agregarle un If Rango = 0 Exit Sub, o tambien he intentado If Rango is Nothing GoTo label, y ninguno me ha solucionado el problema. Les dejo el video que explicará mejor que mis palabras. El error se me produce en el Userform 3, en el código de Initialize, al parecer se genera cuando la macro intenta crear el rango "MiRango". 1004.mp4 Se les ocurre como podría solucionarlos? Agradecido por vuestro tiempo. Felipe,

Estimados, necesito hacer una macro para reemplazar valores automaticamente en una formula, que seria la siguiente: =INDICE(Lista!C$2;COINCIDIR($B$8;Lista!A$2;0)) necesitaria que C$2; y A$2; sean reemplazados por $3, por $4, etc. y asi sucesivamente hasta un numero tal. Abajo dejo el ejemplo de como seria. =INDICE(Lista!C$3;COINCIDIR($B$8;Lista!A$3;0)) =INDICE(Lista!C$4;COINCIDIR($B$8;Lista!A$4;0)) =INDICE(Lista!C$5;COINCIDIR($B$8;Lista!A$5;0)) etc... Desde ya muchas gracias!!

Buenos días chicos , He revisado que mi consulta no estuviera resuelta y no la he encontrado.He visto algunas parecidas pero lo que necesito concretamente. 1-OBJETIVO Tengo un archivo excel donde llevo el control economico de proyectos de inevrsión y quiero que desde el excel me baje los archivos adjuntos de los emails seleccionados en el outlook y me los guarde en la carpeta OFERTAS.Estos archivos son ofertas relacionadas con el proyecto de inversión y quiero ahorrar tiempo en la acción de bajar estos archivos adjuntos. Lo que me interesa es que me baje los archivos del email seleccionado o emails que yo seleccione , y no de los emails marcados como …