Is it possible to have two worksheets in a workbook(input and output) to where if the code scans through all rows in column one, and if it recognizes a semicolon--copy the whole row to the second(output) worksheet?

Here is an example

Sub Copy_Based_On_SemiColon()

    Dim oWB1 As Workbook
    Dim oWB2 As Workbook

    Dim bRet As Boolean

    Set oWB1 = ActiveWorkbook
    Set oWB2 = Workbooks.Add

    Dim i1 As Long
    Dim i2 As Long

    Dim arSemiColonAdd() As String
    Dim iRow

    bRet = FindAll(";", oWB1.Sheets(1), "A:A", arSemiColonAdd)

    i2 = 1
    If bRet = True Then

        For i1 = 1 To UBound(arSemiColonAdd)
            i2 = i2 + 1
            iRow = Right(arSemiColonAdd(i1), Len(arSemiColonAdd(i1)) - InStrRev(arSemiColonAdd(i1), "$"))
            oWB1.Sheets(1).Rows(iRow).EntireRow.Copy Destination:=oWB2.Sheets(1).Range("A" & i2)
        Next i1

    End If


End Sub


You need to tweak the oWB1 and oWB2 to suit your requirments

also copy the function

http://vbadud.blogspot.com/2007/10/e...ll-method.html to your code

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

hey buddy...this code worked great...but i have a few more questions about it and maybe more code being integrated into it.

My project is to make this machine work on this code and my boss is asking me to work in steps, since both him and I are new to VBA.

YOu have helped me with two pieces of code:

above post ^

http://p2p.wrox.com/topic.asp?TOPIC_ID=65807 (the first piece of code you helped me with)


I need to know (referring back up the original question)If you could help me with some code that scans through column 1 again, but this time, looks for the column 1(and only column 1) to be equal to "25", and if does not then again add said line(s) to the output workbook like in earlier code in this thread. (see original question in current thread)


any questions, we can talk over email if you'd prefer....

again, sorry for all the questions, but you are a great help with this stuff!!
Thanks in advance


btw....all this stuff is going to be one big piece of code, but i can place the code where it needs to be later on. These code pieces are for a circuit board pick and place machine.....we need to get the machine to intake this information and be able to comprehend it and pick parts and pieces and place them on the board.

thats what this is all about! if that helps at all! haha

also Shasur, in your "FindAll" sub routine, you wrote:

bRet = FindAll(";", oWB1.Sheets(1), "A:A", arSemiColonAdd)

Is that referring to Column 1 Row 1 or could you inform me on that really quick?

i have seen it written a couple of ways, and want to make sure i follow your code correctly.

Thanks