tengo el siguiente problema quiero buscar un código en una hoja de excel en formulario el codigo para buscarlo no tiene ningun problema el problema es cuando la refrencia no esta me saca un error en vez de un menaje espero me puedan ayudar EF = REFERENCIA.Value BUSCAR = Cells.Find(What:=REF, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If BUSCAR Is Nothing Then A = MsgBox("REFRENCIA NO ENCONTRADA") End If BRELOJ.Hide[/CODE]

Hola a todos, ¿Alguien sabe como se pueden recorrer los valores de los argumentos que se reciben en una función en VBA? Estoy aprendiendo a utilizar JavaScript desde el propio Excel con Script Lab y hay una sentencia que es "arguments.length" que te da el número de argumentos que recibe la función, y con un bucle puedes recorrerlos ya que a cada argumento se accede a través de un índice. arguments[1], arguments[2], etc. La verdad que no he visto nunca como hacer esto con VBA, si alguien tiene idea de cómo hacerlo, sería interesante aprenderlo (yo no lo he visto antes) Saludos.

Hola a todos. ¿Cómo crear una macro que permita eliminar (no ocultar) los ítems de una lista desplegable una vez estos hayan sido seleccionados? Muchas gracias por su ayuda. Subo un archivo para mayor comprensión. Eliminar item de lista desplegable.xlsx

Estimadisimos amigos del foro: Estoy creando una planilla para controlar avance de una construcción, necesito solucionar el siguiente problema. En la comuna E tengo las fechas de cada día de trabajo. y al lado de cada fecha, tengo campos como avance, rendimiento, etc.. Lo que quiero hacer es que al principio de la hoja (digamos, celda M35), uno pueda escribir la fecha que quiere revisar, y al apretar enter (o pulsar un boton), una macro busque la fecha indicada en la columna B, y si encuentra tal fecha, la seleccione. Esto para que cada día que se quiera ingresar un avance, no halla que navegar para encontrar la fila correspondiente al día que se quiere rellenar, sino…

Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias

Hola soy nuevo por acá enviarles un saludo, y espero que me ayuden, tengo un Archivo Ejemplo que contiene en la primera ventana el detalle de la facturación el mismo que ira creciendo conforme se ingrese información. En la segunda Hoja 2 deseo una vez se apreté uno de los controles emita un reporte en una ventana emergente que quede casi a la altura del marco que he colocado, el primer reporte debería emitir los datos que indico y asi sucesivamente los otros dos controles, el botón cerrar haría la función de cerrar el reporte cada vez que deseo realizar otra consulta.... bueno espero no molestar su tiempo Saludos César EJEMPLO.xls

Buenos días, tengo una duda sencilla a priori pero que no entiendo el problema: - He creado un botón que activa un reemplazar espacios (cuando las unidades son + 1000 hay un espacio). Si lo hago manualmente se queda el valor como numero pero si lo hago con la macro se queda como texto. El archivo de partida es un .txt y se pega en un excel. adjunto el ejemplo txt. como veís la ultima fila es superior a 1000 rtoyprod.txt

Saludos amigos foristas, recurro a su apoyo de un archivo el cual consta de dos hojas, y se carga mediante un userform que contiene 12 columnas, de la columna 6 a la 12 contiene números, al activar el userform, me carga la información de la Hoja1, y suma las columnas de la 6 a la 12, el error que se origina es que al filtrar por Nombre de Emisor, las columnas 11 y 12, no aparecen los números y no filtra los subtotales pertenecientes al Nombre del Emisor, sino que suma el total de los números en dichas columnas, ¿podrían indicarme o proporcionar información para corregir este error?, de antemano les agradezco mucho. CONTROL 2021.xlsm

Buenos días, Estoy intentando generar un código ID por fila en un excel (p.e. 20PG_01, 20PG_02...). La idea que cada vez que inserte o elimine una fila de mi excel se actualice el ID en todas las filas automaticamente. ¿podríais ayudarme?

Hola amigos de Ayuda Excel Muy buenos días. Estoy haciendo un indicador visual el cual consiste en que una forma (compuesta de 3 objetos) debe cambiar de color en función del resultado de una formula en una celda. En este sentido, si el resultado de E17 es mayor o igual a 0, el circulo y flecha arriba de la forma deben ser de color verde y la flecha abajo sin color. Y si el resultado de E17 es menor de 0, el circulo y flecha abajo de la forma debe ser de color rojo y la flecha arriba sin color. Agradecido de antemano por la ayuda y valiosa colaboración COLOR DE OBJETO.xlsm

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 estoy avanzando un pequeño proyecto de mi trabajo, pasa que quiero concatenar la hora de un textbox con un combobox (am y pm) y que aparezca concatenado en un label de otro userform. Quisiera que me ayuden please Gracias de antemano Ayudaexcel control km.zip

Hola a todxs. Soy Lobato, un publicista de 58 tacos, que a base de copiar y pegar cosas que encuentro, he podido proteger mi plantilla para un cliente con Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "Lo sentimos,..etc", vbCritical, "EXCELeINFO" Cancel = True End Sub Y va bien, no permite salvar, pero aparece ya al abrir el fichero, y no mola, es muy agresivo para el cliente, a mi me gustaría que solo apareciese al tratar de salvar. Eso no sería agresivo pues el cliente está informado de la protección, lo que no deseo es hacérselo saber constantemente. Saludos desde Gijón.

tengo en un form de visual 6.0 un combobox el cual tiene 4 items (planilla1, planilla2 planilla3 y planilla4) tengo un botón en el cual quiero agregar que al darle click al buton en el cual quiero que ejecute un código dependiendo de la planilla seleccionada en el bombo ejemplo di es la planilla 1 ejecute el código plani1, planilla dos y ejecute plani2 y así sucesivamente.

Hola a todos Tengo tres libros protegidos y cifrados. Los tres libros tienen la misma contraseña. Mi pregunta se refiere, a que cuando se carga el imputbox de petición de contraseña al abrir el primer libro, sería posible, copiar esa contraseña introducida de alguna menera haciendo que se abra el segundo libro y se pegue en el imputbox correspondiente, haciendo lo mismo con el tercer libro. He mirado y en vba no queda constancia de ese imputbox de apertura que usa el excel 365 al proteger con contraseña y cifrar el fichero. Un saludo y muchas gracias

Buenas quiero diseñar una macro que me permita halar la información de una hoja de excel hacia un listbox en un formulario, pero tambien deseo que contenga dos textbox que me permitan filtrar la informacion a la hora de pulsar algun boton estos textbox necesito que filtren la informacion con las opciones que dan los filtros en excel "igual o mayor a" e "igual o menor que" pero adicional algun combobox que contenga los titulos de mi base de excel para poder seleccionar por medio de que titulo sera el filtrado ademas con algun label que me muestre los totales...!!!! Agradecere me puedan ayudar...

Buenas ? A ver si me podéis echar una mano, tengo un formulario que lo llamo desde cualquier hoja del libro y quiero que en una hoja fija y en una fila fija me inserte una fila entera, sin que el formulario cambie independiente de la hoja en la que em encuentre, es decir copie el formato de su fila superior lo desplace hacia abajo y lo copie en el huco desplazado. Sheets("Hoja Fija").Select Rows("4:4").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove con esto me lo hace lo que quiero , pero claro me lleva a la hoja en cuestión, y no es lo que necesito, ya que el formulario que lo hace solo es para mirar los datos de una tab…

Buenas, necesito resolver esta macro simple, voy hasta base definida con "nombre" y luego quiero que abra el formulario que está en "Datos"..."Formulario..." para que ingresen los datos por ahí. Pero se frena en ShowDataForm creo que esta macro es para 2007 y yo trabajo con el 2003. La idea es que se abra el formulario y se termine la macro. Sub auto_openForm() ' Activate the sheet that contains your database. Worksheets("Hoja3").Activate Application.Goto Reference:="base" ' Show the data form for the selected range. ActiveSheet.ShowDataForm End Sub desde ya muchas gracias.

hola amigos de excel mi inquietud que no he podido resolver es la siguiente: 1 - tengo un formulario que me registra, crea y guarda facturas en una base de datos que tengo en acces y también me guarda en una carpeta especifica en formato pdf lo que requiero es que cada vez que cree una factura, me adjunte el archivo en formato pdf a la base de datos de acces espero alguien me pueda ayudar saludos,

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 …

Buen día estimados, Pase un buen rato buscando en el foro una solución pero no la he podido encontrar, como soy nuevo ruego me disculpen si la solución ya estaba, de ser así si me pueden linkear el tema también lo agradeceré. Paso a explicarles: Tengo varios libros de proveedores, y cada libro tiene una serie importante de hojas, mi interés es poder copiar las filas que necesito de cada hoja de cada libro de una carpeta, en una nueva hoja que me sirva de resumen. Opciones: La que mas me conviene Como verán en el adjunto, el formato es similar pero no siempre se respetan la posición (numero) de las filas. Yo lo que necesito copiar es desde donde arranca la fila col…

Quisiera saber como puedo hacer para que en un userform me aparezca en una casilla tres valores hallados en la hoja excel y además que grafique una gráfica de barras de dos de esos valores. macrocontar.xls

Hola a todos, Tengo el clásico formulario de Log In con una dirección de correo electrónico y una contraseña para acceder a la aplicación ofimática. Sin embargo, me gustaría conseguir lo siguiente: Cuando el usuario haga click en el icono del ojo , entones que se le muestre / oculte la contraseña que haya introducido. Pues bien, eso (más o menos) lo he conseguido con el siguiente código: Private Sub cbContraseña_Click() If tbContraseña.PasswordChar = "*" Then tbContraseña.PasswordChar = "" Else tbContraseña.PasswordChar = "*" End If End Sub Sin embargo, me gustaría modificar al mismo tiempo el icono del ojo en funci…

Necesito una macro que cuando encienda la pc se abra un archivo de excel en la fecha determinada

Buenas tardes!, me gustaría consultarles como crear la correcta consulta sql para conseguir el valor de stock de cada producto en la hoja (ingresos de excel. Tengo la hoja ingresos, que se va a vaciar en la BD de access, pero ahí necesito conocer el stock de cada unidad (columna STOCK IZQ Y STOCK DER), que voy colocando para que pueda saber que no puedo exceder las salidas del inventario esto con la ayuda de una macro en el evento change () Cree una consulta pero solo me arroja la suma total sin descontar las salidas. Adjunto los archivos de trabajo para ver si pueden darme una mano. Agradezco mucho su atención. ¡Saludos! SQL_CONSULTA.rar