Macro que se ejecute automáticamente
En una pregunta anterior me ayudaste una macro, para ejecutarla debo hacerlo manualmente, me podrías por favor ayudar para que esta se ejecute automáticamente sin necesidad de crear un botón, solo al seleccionar el estado "cerrado".
Feliz día
Sub Borrar_Filas() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h3 = Sheets("Hoja3") col = "H" If h1.AutoFilterMode Then h1.AutoFilterMode = False h1.Range("A1").CurrentRegion.AutoFilter Field:=Columns(col).Column, Criteria1:="Cerrado" u1 = h1.Range(col & Rows.Count).End(xlUp).Row If u1 > 1 Then h1.Rows("2:" & u1).Copy u3 = h3.Range(col & Rows.Count).End(xlUp).Row + 1 h3.Range("A" & u3).PasteSpecial xlValues If h1.AutoFilterMode Then h1.AutoFilterMode = False For i = h1.Range(col & Rows.Count).End(xlUp).Row To 2 Step -1 If h1.Cells(i, col).Value = "Cerrado" Then h1.Rows(i).Delete End If Next msj = "Registros copiados y borrados" Else msj = "No existen registros a copiar" End If If h1.AutoFilterMode Then h1.AutoFilterMode = False Application.ScreenUpdating = True MsgBox msj End Sub
1 respuesta
Respuesta de Dante Amor
2