Dante Amor

Crear una macro para que se adapte a todas las posibilidades que se te puedan ocurrir no es muy posible. Para que te des una idea, - La condición es sobre una columna o sobre varias columnas. - Cuántas condiciones establecerás. - Las condiciones...

Prueba con lo siguiente: Option Explicit ' Private Sub cmb_art_borrar_filtro_Click() Range("e15").CurrentRegion.AutoFilter Hoja4.txt_art_buscar.Value = "" End Sub ' Private Sub txt_art_buscar_Change() Application.ScreenUpdating = False Dim Criterio...

Cambia esta línea: If Cells(I, qcol) = qcrits(j) Then Por esta: If lcase(Cells(I, qcol)) like "*" & lcase(qcrits(j)) & "*" Then

Pon el siguiente código en tu hoja2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub Sheets("Hoja1").CommandButton1.Caption = Range("A1").Value End If End...

Te refieres a cambiar el nombre que se muestra en el botón. Si es así, pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C5")) Is Nothing Then If Target.Count > 1...

Si cargaste los datos con rowsorce, por ejemplo: ListBox1.RowSource = "A2:A6" Entonces para limpiar el listbox: ListBox1. RowSource = "" Pero si cargar con el método .AddItem, entonces para limpiar: ListBox1.Clear[Si te ayudó la información, no...

Puedes poner en una columna los 4 dígitos y realizar un filtro sobre la columna. Por ejemplo, si tus números están en la columna A y empiezan en la fila 2, entonces en la celda B2, pon la siguiente fórmula: =DERECHA(A2,4) En pantalla se vería así:...

Agrega dos formatos condicionales. Utilizando un fórmula para el formato. El primero El segundo En Se aplica a: en ambos formatos puedes poner toda la columna o cambar por un rango específico Si no quieres que se pinten las celdas cuando la celda de...

Te anexo la macro actualizada para eliminar las filas con ! Sub eliminar_filas() Application.ScreenUpdating = False Application.Calculation = xlManual If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False u = Range("A" &...

Sí, ya ha pasado algo de tiempo. Te anexo la macro Sub Copiar_Celda() For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "B") <> "" Then fila = i Else Cells(fila, "B").Copy Cells(i, "B") Next End Sub [sal u dos