Results 1 to 3 of 3

Thread: Searching for a string and move it's data to different sheets

  1. #1

    Searching for a string and move it's data to different sheets



    Register for a FREE account, and/
    or Log in to avoid these ads!

    Hi all,

    I'm trying to import a .txt file to Excel and the program will filter a string called "¯ Starting Leak Checking(negative pressure)..." in column A only, and once it is found, the program will move this string onwards to the next sheet. For instance, the data is shown below :

    ¯ Starting Leak Checking(negative pressure)...

    00:00:00 00:00:01 L -86 1 115
    00:00:00 00:00:02 L -80 2 123
    00:00:00 00:00:03 L -90 2 122
    00:00:00 00:00:04 O -98 2 156
    00:00:00 00:00:05 P -104 2 135
    00:00:00 00:00:06 L 5 1 453
    00:00:00 00:00:07 L 10 2 123

    ¯ Starting Leak Checking(negative pressure)...

    00:00:01 00:00:01 L -87 1 117
    00:00:02 00:00:02 P -86 1 154
    00:00:03 00:00:03 O -91 2 167
    00:00:04 00:00:04 O -98 2 156
    00:00:05 00:00:05 P -104 2 135
    00:00:06 00:00:06 L 7 1 453
    00:00:07 00:00:07 L 10 2 127

    ¯ Starting Leak Checking(negative pressure)...
    00:00:08 00:00:01 L -87 1 117
    00:00:09 00:00:02 P -86 1 154
    00:00:10 00:00:03 O -91 2 167
    00:00:11 00:00:04 O -98 2 156
    00:00:12 00:00:05 P -104 2 135
    00:00:13 00:00:06 L 7 1 453
    00:00:14 00:00:07 L 10 2 127

    ¯ Starting Leak Checking(negative pressure)...
    00:00:15 00:00:01 L -87 1 117
    00:00:16 00:00:02 P -86 1 154
    00:00:17 00:00:03 O -91 2 167
    00:00:18 00:00:04 O -98 2 156
    00:00:19 00:00:05 P -104 2 135
    00:00:20 00:00:06 L 7 1 453
    00:00:21 00:00:07 L 10 2 127

    Since there are 4 strings of "¯ Starting Leak Checking(negative pressure)...", what I'm trying to achieve now is to move these data into 4 different sheets, with the first string of "¯ Starting Leak Checking(negative pressure)..." and it's data in the first sheet, second string of "¯ Starting Leak Checking(negative pressure)..." in the second sheet and ultimately, there will be 4 different sheets. Is it possible to do this? Any help will be appreciated. I tried the code below but it doesn't work.

    Code:
    Dim c As Range, i As Long
        Dim firstAddress As String
        i = 1
        With Range("A1:Q18215")
            Set c = .Find("Dim c As Range, i As Long    Dim firstAddress As String
        i = 1
        With Range("A1:Q18215")
            Set c = .Find("» Starting Leak Checking(negative pressure)...")
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    .Range(c, c.End(xlDown)).Copy Sheets("sheet" & i).Range("A1:Q18215")
                    i = i + 1
                    Set c = .FindNext(c)
                Loop Until c.Address = firstAddress
            End If
        End With")
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    .Range(c, c.End(xlDown)).Copy Sheets("sheet" & i).Range("A1:Q18215")
                    i = i + 1
                    Set c = .FindNext(c)
                Loop Until c.Address = firstAddress
            End If
        End With

  2. #2

  3. #3

    renaming sheets

    Quote Originally Posted by Bob Phillips View Post
    Cross-posted at VBAExpress
    Hey dude, yeah. I posted in more than 1 forums. The problem is almost solved, just that throughout my calculation of codes, i assigned the sheet value as "Sheet1". Any idea how do i rename the sheets or the activesheets so that i could calculate for the rest of the sheets too? Any help is appreciated, thank you.

Posting Permissions

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