Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 2 temas más a

Código VBA de Macro que no ejecuta lo requerido al no detectar cambios en las columnas b c y e simultáneamente

Te anexo el código, tal vez falta afinar algo en los colores, pero prueba el funcionamiento de las operaciones y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Row < 3 Then...
Respuesta en y en 2 temas más a

Macro para bloquear u ocultar columnas según la condición de una celda de la misma hoja

Para preparar la macro, puedes poner por cada planta qué columnas van a quedar visibles. Si tú quieres se puede hacer que las columnas, además de ocultas también queden protegidas, esto para evitar que las muestren y las modifiquen. Si las quieres...
Respuesta en y en 2 temas más a

Buen día, ¿Alguien sabe como podría quitarle el error run time 1004 a esta macro?

Ya revisé ambas macros y están bien. Pero si ejecutas la macro "noparpadear", sin haber ejecutado previamente la macro "Parpadear", entonces te aparece el error: 1004 en tiempo de ejecución. Podrías solucionarlo si pones la sentencia On Error Resume...
Respuesta en y en 2 temas más a

¿Cómo válido si hay existencia en un campo para que si el valor ingresado es inferior arroje error? Excel

La captura la estás haciendo con un userform o estás capturando en una hoja. Quieres que la validación sea con una macro. Envíame tu archivo para revisarlo y me explicas dónde capturas, en dónde está el código y su existencia. Mi correo...
Respuesta en y en 2 temas más a

Cómo Buscar Valor de una Celda en una Columna e ir al lugar donde esta ese valor con un botón?.

Pon la siguiente macro en un módulo Sub Buscar_Valor() Set valor = Range("D2") If valor.Value = "" Then MsgBox "Introducir un dato en la celda" valor.Select Exit Sub End If Set b = Columns("A").Find(valor.Value, lookat:=xlWhole) If Not b Is Nothing...
Respuesta en y en 3 temas más a

Tengo arriba dos Combobox y necesito que cuando este cargado el otro este en cero más ununo de los textbox de abajo, (2)

Sí se puede, pero no entendí en qué momento hay deshabilidar un control. Si pudieras explicarlo con ejemplos y describiendo una especie lista de pasos, por ejemplo: 1. Abro el userform 2. Capturo datos en el combobox1 3. En ese momento deshabilito el...
Respuesta en y en 2 temas más a

Como puedo seelccionar determinadas columnas en un Textbox para copiarlas en otra hoja..

Te anexo el código para copiar las columnas Private Sub UserForm_Initialize() ' Set h1 = Sheets("Kabel") Set h2 = Sheets("temp") h2.Cells.Clear cols = Array("A", "C", "E", "F", "G", "R") total_cols = UBound(cols) + 1 For c = LBound(cols) To...
Respuesta en y en 2 temas más a

Copiar en una hoja los últimos datos de una hoja filtrada VBA

Después de aplicar el filtro en tu hoja1, ejecuta la siguiente macro: Sub Copiar_Filas() 'Por.Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja con los datos Set h2 = Sheets("Hoja2") 'hoja destino ' col = "D" 'columna...
Respuesta en y en 2 temas más a

¿Como tomar el valor de un item seleccionado si el valor que necesito se encuentra en la columna 8 de un ListBox VB excel?

Revisa lo siguiente Variable = listbox1.list(listbox1.listindex, 8) If isnumeric variable then Num = val(variable) - val(textbox1) End if Considera lo siguiente: Cambia los nombres por tus nombres de controles. En la columna 8 debes tener un número,...
Respuesta en y en 2 temas más a

Como Filtrar por medio de una macro varios Criterios

En tu código tienes esta instrucción: On Error Resume Next Lo que pasa es que en esta instrucción: ActiveSheet.Range("$A$:$N").AutoFilter Field:=6 Pusiste un símbolo $ de más. La macro debe enviarte un error "1004 en tiempo de ejecución". Pero como...