Dante Amor

Puedes poner una imagen de tu hoja, para ver el nombre de la hoja, en qué columna están los ceros, qué datos quieres cargar en el listbox. R ecuerda cambiar la valoración en las otras preguntas. Al final de mi respuesta tienes 2 opciones para valorar...

Te regresa #value porque el valor buscado no existe en la hoja "Simplex" Para evaluar si existe o no el valor buscado, primero tienes que cambiar Application. WorksheetFunction. VLookup Por Application. VLookup Después, tienes que validar con un If,...

Envíame tu archivo y me explicas con ejemplos y con comentarios en las celdas. Recuerda poner tu nombre de usuario en el asunto del correo.

Te anexo la macro para que la pongas en los eventos de tu hoja2 "catalogo" Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A2:A11")) Is Nothing Then If Target.Count > 1 Then Exit Sub If...

No es posible habilitarlo de forma automática. Tienes que configurar tu excel en Opciones de excel, Centro de confianza, Configuración del centro de confianza, Configuración de macros, ahí seleccionas la opción: "Habilitar todas las macros" Ahora...

Para saber cuál registro borrar en la hoja, tengo que ver cómo cargaste el listbox Envíame tu archivo y me explicas en cuál userform estás trabajando Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Alam Figueroa” y...

Si estás contando los datos de la columna 1 de tu listbox, podría ser así: cuenta = 0 For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i, 0) <> 0 Then cuenta = cuenta + 1 End If Next TextBox1 = cuenta . 'S aludos. Dante Amor. Recuerda valorar la...

Me puedes comentar sobre lo siguiente: - En cuál control vas a capturar para tomar esa información y realizar el filtro - Cómo se llama la hoja donde tienes la información - En cuál columna quieres que se haga busque para filtrar - En cuál fila...

Prueba con la siguiente macro Sub Restas() 'Por.Dante Amor ' num = InputBox("Introduce un monto") Range("B1:B9").ClearContents If num <= 0 Or num = "" Or Not IsNumeric(num) Then Exit Sub ' For i = 1 To 9 If Cells(i, "A") < num Then num = num -...

No entiendo a que te refieres con "enllavarlos", no conozco el término. Pero, haber si entendí, quieres escribir algo en la hoja1, columna A, por ejemplo, en la celda A4; y quieres que en la hoja2, celda A4, se ponga la fórmula =Hoja1!$A$4 Si es así,...