Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
How can I modify the code below to reference a non-active worksheet, I do not
want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
Dim dX As Double, dCount As Double with Worksheets("test") sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, .Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To .UsedRange.Rows.Count If .Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem .Cells(dX, 2).Value dCount = dCount + 1 End If Next end with End Sub "Mekinnik" wrote: How can I modify the code below to reference a non-active worksheet, I do not want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
Sorry but it doesn't work, for some odd reason it will only work with
'activesheet' "Joel" wrote: Dim dX As Double, dCount As Double with Worksheets("test") sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, .Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To .UsedRange.Rows.Count If .Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem .Cells(dX, 2).Value dCount = dCount + 1 End If Next end with End Sub "Mekinnik" wrote: How can I modify the code below to reference a non-active worksheet, I do not want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
which statement fails???
"Mekinnik" wrote: Sorry but it doesn't work, for some odd reason it will only work with 'activesheet' "Joel" wrote: Dim dX As Double, dCount As Double with Worksheets("test") sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, .Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To .UsedRange.Rows.Count If .Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem .Cells(dX, 2).Value dCount = dCount + 1 End If Next end with End Sub "Mekinnik" wrote: How can I modify the code below to reference a non-active worksheet, I do not want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
This one
For dX = 1 To .UsedRange.Rows.Count "Joel" wrote: which statement fails??? "Mekinnik" wrote: Sorry but it doesn't work, for some odd reason it will only work with 'activesheet' "Joel" wrote: Dim dX As Double, dCount As Double with Worksheets("test") sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, .Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To .UsedRange.Rows.Count If .Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem .Cells(dX, 2).Value dCount = dCount + 1 End If Next end with End Sub "Mekinnik" wrote: How can I modify the code below to reference a non-active worksheet, I do not want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code repair
I'm not seeing any problems, but used range varies with different type date.
I think you need to check if usedrange is returning the same vaule ifthe page is selected or not selected. If you single step through the code and one time have Test selected and another time have a different sheet slected do you get the same results? Your problem may not be with the activesheet. "Mekinnik" wrote: This one For dX = 1 To .UsedRange.Rows.Count "Joel" wrote: which statement fails??? "Mekinnik" wrote: Sorry but it doesn't work, for some odd reason it will only work with 'activesheet' "Joel" wrote: Dim dX As Double, dCount As Double with Worksheets("test") sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, .Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To .UsedRange.Rows.Count If .Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem .Cells(dX, 2).Value dCount = dCount + 1 End If Next end with End Sub "Mekinnik" wrote: How can I modify the code below to reference a non-active worksheet, I do not want to use 'Activeworksheet' Dim dX As Double, dCount As Double Worksheets("test").Activate sSelected = Me.Cbo1.Value dCount = 0 If IsError(Application.Match(sSelected, ActiveSheet.Columns(1), 0)) Then frm1.Hide frm2.Show End If For dX = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(dX, 1).Value = sSelected Then Me.Cbo2.AddItem Cells(dX, 2).Value dCount = dCount + 1 End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unknown repair | Excel Discussion (Misc queries) | |||
Looking For a repair tool | Excel Discussion (Misc queries) | |||
I need to repair an invalid hyperlink | Excel Worksheet Functions | |||
open & repair through vba | Excel Programming | |||
detect and repair vs regserver | Excel Programming |