Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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???? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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???? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 error "some chart types cannot be combined with other chart types. Select a different chart types" | Charts and Charting in Excel | |||
Data types when importing Excel data to SQLServer | Excel Discussion (Misc queries) | |||
Prevent mismatched columns following sort operation | Excel Programming | |||
Compare List and Show Mismatched | Excel Worksheet Functions | |||
Type mismatched in Listbox | Excel Programming |