Results 1 to 3 of 3
  1. #1
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: serac in column, copy and delete... (2000 sr 1)

    Try <code>"OK-*"</code> instead of <code>"OK-"</code>.

  2. #2
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    serac in column, copy and delete... (2000 sr 1)

    I use this my old code to copy from sheet, delete ad insert entire line in other sheet.
    Sub COPY_LINE_EST()

    Application.ScreenUpdating = False

    Dim I As Long, lastrow As Long
    lastrow = Sheets("STORICO").Range("A65536").End(xlUp).Row
    For I = lastrow To 3 Step -1
    If Not Sheets("STORICO").Rows(I).Find(What:="OK", LookIn:=xlValues, lookat:=xlWhole) Is Nothing Or _
    Not Sheets("STORICO").Rows(I).Find(What:="OK-", LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
    Sheets("STORICO").Rows(I).Copy
    Sheets("DEFINITE").Range("A3").EntireRow.Insert
    Sheets("STORICO").Rows(I).Delete
    End If
    Next

    Application.ScreenUpdating = True

    End Sub

    this first line of condition
    Not Sheets("STORICO").Rows(I).Find(What:="OK", LookIn:=xlValues, lookat:=xlWhole) Is Nothing
    work but the second condition with "OK-" in a cells dont work....
    In effect i would want to delete copy and paste all line with the first tree charcter is "OK-"

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: serac in column, copy and delete... (2000 sr 1)

    Simple...!
    Good and tks.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •