Extracting a text string Problem

[fari1]

my below code is perfect of extracting my another text string, but when i modify it to extract my another text string, it is not giving me results, trying real hard but unable to find the problem.

the text string to find is

BIK=0000055135

out of this line

<td bgcolor="#E6E6E6" valign="top" align="left"><a href="/chi-kin/browse-gar?action=getcompany&BIK=0000055135&owner=include&count=100">KELLY SERVICES INC (0000055135) (Filer)</a></td>

Sub GetCIK()
  Sheets("wquery").Select
  Dim X As Long, LastRow As Long, OutputRow As Long, CellContent As String
  Const StartRow As Long = 1
  Const DataCol As String = "A"
  Const OutputSheet As String = "URLs"
  Const OutputCol As String = "B"
  LastRow = Sheets("wquery").Cells(Rows.Count, DataCol).End(xlUp).Row
  OutputRow = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol).End(xlUp).Row
  For X = StartRow To LastRow
    If LCase(Sheets("wquery").Cells(X, DataCol).Value) Like "*getcompany&""CIK*&*" Then
      OutputRow = OutputRow + 1
      CellContent = Sheets("wquery").Cells(X, DataCol).Value
      Worksheets(OutputSheet).Cells(OutputRow, OutputCol).Value = Split(Mid(CellContent, InStr(1, CellContent, "getcompany&""CIK", vbTextCompare) + 15), """amp")(0)
    End If
  Next

 

[fari1]

i guess u still didn't separate the two codes, they are still still referencing two columns, why r they?

 

[kpark91]

some part of your code is up there as well, is it also the part of the code, right?

What do you mean?

Some variables are not used but that's nothing to worry about since it won't cause a huge delay.

And it is separate now.. if that's what you mean to ask.

 

[kpark91]

i guess u still didn't separate the two codes, they are still still referencing two columns, why r they?

that's because I was lazy to delete one of them. you can do that tho.
Just try it yourself, the code is extremely readable.
(What variables I am using and such..)

 

[fari1]

its giving error invalid call or procedure element on this line

 Worksheets(OutputSheet).Cells(OutputRow2, OutputCol2).Value = Mid(CellContent, pos1 + 9, pos2 - pos1 - 9)

 

[fari1]

Help with the code

Option Base 0
Option Explicit
Sub GetType()
Dim X As Long, LastRow1 As Long, OutputRow1 As Long, CellContent As String, lastRow&
    Dim pos1&, pos2&, OutputRow2&
    Const StartRow As Long = 1
    Const DataCol As String = "A"
    Const OutputSheet As String = "Filings"
    Const OutputCol1 As String = "A"
    Const OutputCol2 As String = "C"
 
    lastRow = Sheets("wquery").Cells(Rows.Count, DataCol).End(xlUp).Row
    OutputRow1 = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol1).End(xlUp).Row
    OutputRow2 = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol2).End(xlUp).Row
    
    For X = StartRow To lastRow
        If Sheets("wquery").Cells(X, DataCol).Value Like "*""nowrap*" Then
        OutputRow2 = OutputRow2 + 1
        CellContent = Sheets("wquery").Cells(X, DataCol).Value
        pos1 = InStr(1, CellContent, """nowrap""")
        pos2 = InStr(1, CellContent, "")
        Worksheets(OutputSheet).Cells(OutputRow2, OutputCol2).Value = Mid(CellContent, pos1 + 9, pos2 - pos1 - 9)
        End If
        Next X
End Sub

i need to extract the text from in between

nowrap"> and </

i-e 10-Q or whatever text is in between from the below line. the above code is not working somehow,any help on it

<td nowrap="nowrap">10-Q</td>

 

[kpark91]

What is the whole code you have used (including the declaration of the Sub)

 

[kpark91]

Re: Help with the code

change

pos2 = InStr(1, CellContent, "")

to

pos2 = InStr(1, Cellcontent, " < / t d > </TD>" )

without the spaces

 

[fari1]

Option Base 0
Option Explicit
Sub GetType()
Dim X As Long, LastRow1 As Long, OutputRow1 As Long, CellContent As String, lastRow&
    Dim pos1&, pos2&, OutputRow2&
    Const StartRow As Long = 1
    Const DataCol As String = "A"
    Const OutputSheet As String = "Filings"
    Const OutputCol1 As String = "A"
    Const OutputCol2 As String = "C"
 
    lastRow = Sheets("wquery").Cells(Rows.Count, DataCol).End(xlUp).Row
    OutputRow1 = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol1).End(xlUp).Row
    OutputRow2 = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol2).End(xlUp).Row
    
    For X = StartRow To lastRow
        If Sheets("wquery").Cells(X, DataCol).Value Like "*""nowrap*" Then
        OutputRow2 = OutputRow2 + 1
        CellContent = Sheets("wquery").Cells(X, DataCol).Value
        pos1 = InStr(1, CellContent, """nowrap""")
        pos2 = InStr(1, CellContent, "")
        Worksheets(OutputSheet).Cells(OutputRow2, OutputCol2).Value = Mid(CellContent, pos1 + 9, pos2 - pos1 - 9)
        End If
        Next X
End Sub

i could not understand so made some changes that i could get to know

 

[kpark91]

Re: Help with the code

This html tag manipulation is really annoying because the forum can't handle it very well..

So, basically what my previous reply is... "" should be replaced with the end tag of td.
The /td with < > around it.
So giving you
""

html tag = /td

So,

pos2 = InStr(1, Cellcontent, "/td with <> around it")

</TD>

 

[fari1]

again the same error, invalid procedure and call on this line

Worksheets(OutputSheet).Cells(OutputRow2, OutputCol2).Value = Mid(CellContent, pos1 + 9, pos2 - pos1 - 9)

also plz tell me, should i use the outputrow1 or 2, because i just need one column paste