Gracias a la ayuda del forista y amigo "pajuma" tngo esta macro que me hace que en una lista de codigo de cuentas con su nombre de cta, me elimine unas cuentas que tengo en otra lista.
Ahora bien, la macro funciona casi perfecta solo que me elimina el formato de las celdas de abajo y unas formulas ocultas que se encuentran en ellas (las celdas de abajo). En el archivo adjunto, la primera pestaña llamada "Gastos estimados por el áre (2" es el archivo antes de activar la macro, el la pestaña siguiente llamada "Gastos estimados por el área" es como me deja la macro el archivo (visualicen desde las fila 63 para abajo que me borro las formulas que tenia oculta con formato en la primera pestaña) y la 3era pestaña llamada "Ctas. para elminar" se encuentran las cta que elimina la macro de la primera pestaña.
He aqui el codigo:
Sub ElminarCtasNoPresupuestadas()
Rem by Macro antonio
On Error Resume Next
Dim H1, H2, x1 As Long, Rango As Range
Dim Total As Long, Celda As Range, Hora
Set H1 = Sheets("No presupuestados por el área")
Set H2 = Sheets("Ctas. para elminar")
Hora = Time
H2.Select: H2.Range("A2").Select
Application.ScreenUpdating = False
For x1 = 1 To H1.Range("C" & Rows.Count).End(xlUp).Row
Total = Total + 1
If Total Mod 10000 = 0 Then
Application.StatusBar = Hora & " Procesando Control de asistencia " & _
Total & " de un total de " & _
H1.Range("E" & Rows.Count).End(xlUp).Row & " "
End If
Set Celda = H2.Range("A2:A" & H2.Range("A" & Rows.Count).End(xlUp).Row).Find _
Buenos Dias,
Ayer no obtuve respuestay probare hoy de nuevo,
Gracias a la ayuda del forista y amigo "pajuma" tngo esta macro que me hace que en una lista de codigo de cuentas con su nombre de cta, me elimine unas cuentas que tengo en otra lista.
Ahora bien, la macro funciona casi perfecta solo que me elimina el formato de las celdas de abajo y unas formulas ocultas que se encuentran en ellas (las celdas de abajo). En el archivo adjunto, la primera pestaña llamada "Gastos estimados por el áre (2" es el archivo antes de activar la macro, el la pestaña siguiente llamada "Gastos estimados por el área" es como me deja la macro el archivo (visualicen desde las fila 63 para abajo que me borro las formulas que tenia oculta con formato en la primera pestaña) y la 3era pestaña llamada "Ctas. para elminar" se encuentran las cta que elimina la macro de la primera pestaña.
He aqui el codigo:
Sub ElminarCtasNoPresupuestadas()
Rem by Macro antonio
On Error Resume Next
Dim H1, H2, x1 As Long, Rango As Range
Dim Total As Long, Celda As Range, Hora
Set H1 = Sheets("No presupuestados por el área")
Set H2 = Sheets("Ctas. para elminar")
Hora = Time
H2.Select: H2.Range("A2").Select
Application.ScreenUpdating = False
For x1 = 1 To H1.Range("C" & Rows.Count).End(xlUp).Row
Total = Total + 1
If Total Mod 10000 = 0 Then
Application.StatusBar = Hora & " Procesando Control de asistencia " & _
Total & " de un total de " & _
H1.Range("E" & Rows.Count).End(xlUp).Row & " "
End If
Set Celda = H2.Range("A2:A" & H2.Range("A" & Rows.Count).End(xlUp).Row).Find _
(What:=H1.Range("E" & x1).Value, LookIn:=xlValues)
If Not Celda Is Nothing Then
If Rango Is Nothing Then
Set Rango = H1.Rows(x1)
Else
Set Rango = Application.Union(Rango, H1.Rows(x1))
End If
End If
Next
H1.Select
Application.StatusBar = "Eliminando ....."
If Not Rango Is Nothing Then Rango.Delete
Application.StatusBar = Hora & " Listo " & Time
Application.StatusBar = ""
End Sub
Lo que deseo es que no me elimine las formulas ni el formato de las celdas de abajo, gracias por su atencion y espero sus comentarios!
Ahorasi.zip