Try

Dim c As Range
For Each c In Range("A1:H1000")
    If c Like "FF*" Then
    c.EntireRow.Delete
     End If
Next c

Yorkeyite

On Feb 2, 5:55 am, Mehdi_21 <meh.i...@gmail.com> wrote:
> hey guys, how r u all?
>
> i started a macro that imports a text file to a worksheet, it all
> worked but when it comes to the part where the program must suppress
> specific cells it doesn't work , here's the code, plz do help ;)
>
> Private Sub parcourir_Click()
>
>     Dim vFile As Variant
>
>     'Showing Excel Open Dialog Form
>     vFile = Application.GetOpenFilename("Text Files (*.txt)," & _
>     "*.txt", 1, "Select Text File", "Open", False)
>
>     'If Cancel then exit
>     If TypeName(vFile) = "Boolean" Then
>         Exit Sub
>     End If
>
>     'Open selected file
>     Workbooks.OpenText vFile, Origin:=xlMSDOS, StartRow:=1,
> DataType:=xlDelimited, TextQualifier:= _
>         xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
> Semicolon:=False, _
>         Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array
> (1, 1), _
>         Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6,
> 1), Array(7, 1), Array(8, 1), _
>         Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array
> (13, 1), Array(14, 1), Array(15 _
>         , 1)), TrailingMinusNumbers:=True
>
>    ' here's where the program doesn't seem to work
>
> For Each c In [A1:H1000]
>     If c.Value Like "FF*" Then
>     c.Select
>      c.Delete
>     ActiveCell.EntireRow.Delete
>
>      End If
> Next
>
> Unload Me
> End Sub
>
> thanks ;)

--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at 
http://www.excel-macros.blogspot.com

To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/excel-macros?hl=en

Visit & Join Our Orkut Community at 
http://www.orkut.com/Community.aspx?cmm=22913620

To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com

To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
 
If you find any spam message in the group, please send an email to Ayush @ 
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---

Reply via email to