Hola a todos,esta macro me da problemas de compilacion,alguien me podria indicar la solucion?

La intencion es que solo me borre las filas que sean diferentes a la condicion

Gracias a todos

Sub Macro1()

'

' Macro1 Macro

' Macro grabada el 21/11/2012 por Paco

'

'

Dim Rango As Range, Fila As Long, ÚltimaFila As Long

Application.ScreenUpdating = False

ÚltimaFila = 1

For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila

Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila

If (Range("I" & Fila).Value <> TRANSPORTES Y LOGISTICA SORIA, S.L.) Then en esta linea me da el error

If Rango Is Nothing = True Then

Set Rango = Rows(Fila)

Else

Set Rango = Application.Union(Rango, Rows(Fila))

End If

End If

Next Fila

If Rango Is Nothing = False Then

Rango.Select

Selection.Delete

ActiveCell.Select

End If

Application.StatusBar = "Listo"

Application.ScreenUpdating = True

End Sub

Gracias a todos

Buenas.

Esto tiene que estar entre "TRANSPORTES Y LOGISTICA SORIA, S.L."

Lo he intentado con esta y el resultado ha sido que me ha borrado toda la hoja

Sub BorrarTransportistas()

Dim r As Long

For r = 25000 To 1 Step -1

If Cells(r, 9).Value <> "TRANS SESE SOCIEDAD LIMITADA. TRANSPORTES SESE" Then Cells(r, 9).EntireRow.Delete

Next r

End Sub

como podeis observar ya esta entre comillas:culpability: alguna solucion?

Gracias por vuestro tiempo

Buenas.

Suponiendo que los datos están en la columna A y que no hay celdas vacías prueba con esto:

Sub Ejecuta()

    Dim Rango As Range
    Dim i As Double, Contador As Double


    Set Rango = Range("A:A")


    i = 1

    For Contador = 1 To Rango.Rows.Count
        If Rango.Cells(i) = "" Then Exit For
        If Rango.Cells(i) <> "TRANS SESE SOCIEDAD LIMITADA. TRANSPORTES SESE" Then
            Rango.Cells(i).EntireRow.Delete
        Else
            i = i + 1
        End If

    Next

End Sub

Hola a todos,puede ser que los puntos y las comas sean incompatibles con la programacion?

Gracias por todo

No tendría porque.... en donde te falla??

S2

Buenas noches estepanuno,

Creo que si aportas un fichero... será más fácil para todos.

Juan.

Buenos dias a todos,so envio un archivo que tiene dos macros

La primeroa que es borrar 3 y 0 funciona bien,el problema llega cuando intento ejecutar la segunda que se llama intento de borrar transportista,la intencion es que me borre todos las columnas que sean diferentes de TIR BAGES SL, al ejecutarla se me borra todo

Gracias a todos por vuestra ayuda

prueba de macro.xls

El problema es que el nombre contiene blancos al final. Prueba así:

Sub IntentoDeBorradoTransportistas()


    Dim r As Long

    For r = 1000 To 1 Step -1

       If [COLOR=#ff0000][B]Trim([/B][/COLOR]Cells(r, 9).Value[COLOR=#ff0000][B])[/B][/COLOR] <> "TIR BAGES SL" Then Cells(r, 9).EntireRow.Delete

    Next r


End Sub



[/CODE]

La solucion anterior ha funcionado de fabula,como podria hacerlo para que me quedaran dos o mas transportistas en la hoja?

Mucha gracias a todos,en especial a ti Marco Antonio

Buenos dias a todos,necesito si pudiera ser que la macro que ha arreglado Marco Antonio me permitiera eliminar ademas de un "transportista" una serie de ellos,me explico.

Solo me gustaria quedarme en pantalla con algunos de ellos,son 7 en concreto,los demas me gustaria que me los eliminara

:mushroom: llevo todo el fin de semana intentandolo pero como estoy empezando en este mundillo(que me apasiona) estoy un poco desesperado

Gracias a todos

Solo tienes que cambiar los nombres de los transportistas:

Sub IntentoDeBorradoTransportistas()


For x = Range("I" & Rows.Count).End(xlUp).Row To 1 Step -1

   If Trim(Range("I" & x).Value) <> "Transportista 1" And _

      Trim(Range("I" & x).Value) <> "Transportista 2" And _

      Trim(Range("I" & x).Value) <> "Transportista 3" And _

      Trim(Range("I" & x).Value) <> "Transportista 4" And _

      Trim(Range("I" & x).Value) <> "Transportista 5" And _

      Trim(Range("I" & x).Value) <> "Transportista 6" And _

      Trim(Range("I" & x).Value) <> "Transportista 7" Then

      Rows(x).Delete

   End If

Next r



End Sub



[/CODE]

Hola a todos.

Gracias de corazon,esto es increible,con vosotros creo que mi aprendizaje va ser buenisimo

Gracias por vuestra paciencia

Un saludo

P.D. el tema lo doy por cerrado pero no se como ponerlo