mismatched data types
 

Hi, I've created a VB 6.3 program that works just fine when run alone but
when I insert the same program within a second program, the 1st doesn't work
and gives me the "mismatched data type" error. Any ideas what I've done
wrong????

mismatched data types
 

Any code to show?

--
Tim Williams
Palo Alto, CA


"sonia210c" <u32835@uwe wrote in message news:6fc825643f892@uwe...
Hi, I've created a VB 6.3 program that works just fine when run alone but
when I insert the same program within a second program, the 1st doesn't work
and gives me the "mismatched data type" error. Any ideas what I've done
wrong????

mismatched data types
 

Tim Williams wrote:
Any code to show?

Hi, I've created a VB 6.3 program that works just fine when run alone but
when I insert the same program within a second program, the 1st doesn't work
and gives me the "mismatched data type" error. Any ideas what I've done
wrong????


Oops - I forgot about that part - sorry. Here's the code.

I get the error on any of the "Sheets(SheetName).Range("C" & x).Value = "
commands below.

Thanks for the help.
Sonia

If (InStr(1, UCase(strNames), _
Left(UCase(Sheets("IssueDataSource").Range("F" & i).Text), 5)) 0
And _
strNames < "" And _
Trim(Sheets("IssueDataSource").Range("F" & i).Text) < "") Then
'Project EXISTS
intShow = 1
End If
If intShow = 1 Then
If Sheets("IssueDataSource").Range("L" & i).Value = "New" Or _
Sheets("IssueDataSource").Range("L" & i).Value = "Open" Or _
Sheets("IssueDataSource").Range("L" & i).Value = "In Review" Then
Sheets(SheetName).Activate
Sheets(SheetName).Range("A" & x).Select
Sheets(SheetName).Range("A" & x).Hyperlinks.Add Anchor:
=Selection, _
Address:="http://wss023/sites/NextGen/Lists/Next%20Gen%
20Issues%201/DispForm.aspx?ID=" & _
Sheets("IssueDataSource").Range("B" & i).Text, TextToDisplay
_
:=Sheets("IssueDataSource").Range("B" & i).Text 'ID
Sheets(SheetName).Range("B" & x).Value = Sheets
("IssueDataSource").Range("C" & i).Text 'Issue Name
Sheets(SheetName).Range("C" & x).Value = Sheets
("IssueDataSource").Range("K" & i).Text 'Escalated Level
Sheets(SheetName).Range("D" & x).Value = Sheets
("IssueDataSource").Range("L" & i).Text 'Status
Sheets(SheetName).Range("E" & x).Value = Sheets
("IssueDataSource").Range("M" & i).Text 'Target Resolution Date
Sheets(SheetName).Range("F" & x).Value = Sheets
("IssueDataSource").Range("J" & i).Text 'Priority
Sheets(SheetName).Range("G" & x).Value = Sheets
("IssueDataSource").Range("D" & i).Text 'Assigned To
If Sheets(SheetName).Range("E" & x).Value < Sheets
("Selections").Range("B4").Value Or UCase(Trim(Sheets(SheetName).Range("C" &
x).Value)) = "PROGRAM" Then
Sheets(SheetName).Rows(x & ":" & x).Interior.ColorIndex =
6
Sheets(SheetName).Rows(x & ":" & x).Interior.Pattern =
xlSolid
Sheets(SheetName).Rows(x & ":" & x).Font.FontStyle =
"Bold"
End If
x = x + 1
End If
End If

mismatched data types
 

What's the value of x when it errors ?

Tim


"sonia210c" <u32835@uwe wrote in message news:6fc880f1b046e@uwe...
Tim Williams wrote:
Any code to show?

Hi, I've created a VB 6.3 program that works just fine when run alone
but
when I insert the same program within a second program, the 1st doesn't
work
and gives me the "mismatched data type" error. Any ideas what I've done
wrong????


Oops - I forgot about that part - sorry. Here's the code.

I get the error on any of the "Sheets(SheetName).Range("C" & x).Value = "
commands below.

Thanks for the help.
Sonia

If (InStr(1, UCase(strNames), _
Left(UCase(Sheets("IssueDataSource").Range("F" & i).Text), 5)) 0
And _
strNames < "" And _
Trim(Sheets("IssueDataSource").Range("F" & i).Text) < "") Then
'Project EXISTS
intShow = 1
End If
If intShow = 1 Then
If Sheets("IssueDataSource").Range("L" & i).Value = "New" Or _
Sheets("IssueDataSource").Range("L" & i).Value = "Open" Or _
Sheets("IssueDataSource").Range("L" & i).Value = "In Review"
Then
Sheets(SheetName).Activate
Sheets(SheetName).Range("A" & x).Select
Sheets(SheetName).Range("A" & x).Hyperlinks.Add Anchor:
=Selection, _
Address:="http://wss023/sites/NextGen/Lists/Next%20Gen%
20Issues%201/DispForm.aspx?ID=" & _
Sheets("IssueDataSource").Range("B" & i).Text,
TextToDisplay
_
:=Sheets("IssueDataSource").Range("B" & i).Text 'ID
Sheets(SheetName).Range("B" & x).Value = Sheets
("IssueDataSource").Range("C" & i).Text 'Issue Name
Sheets(SheetName).Range("C" & x).Value = Sheets
("IssueDataSource").Range("K" & i).Text 'Escalated Level
Sheets(SheetName).Range("D" & x).Value = Sheets
("IssueDataSource").Range("L" & i).Text 'Status
Sheets(SheetName).Range("E" & x).Value = Sheets
("IssueDataSource").Range("M" & i).Text 'Target Resolution Date
Sheets(SheetName).Range("F" & x).Value = Sheets
("IssueDataSource").Range("J" & i).Text 'Priority
Sheets(SheetName).Range("G" & x).Value = Sheets
("IssueDataSource").Range("D" & i).Text 'Assigned To
If Sheets(SheetName).Range("E" & x).Value < Sheets
("Selections").Range("B4").Value Or UCase(Trim(Sheets(SheetName).Range("C"
&
x).Value)) = "PROGRAM" Then
Sheets(SheetName).Rows(x & ":" & x).Interior.ColorIndex
=
6
Sheets(SheetName).Rows(x & ":" & x).Interior.Pattern =
xlSolid
Sheets(SheetName).Rows(x & ":" & x).Font.FontStyle =
"Bold"
End If
x = x + 1
End If
End If