J
John Quinn
In the following code the ActiveCell is always empty.
If the computer reads the WorkBook, where is the data in memory?
Option Explicit
Sub TestIntl()
Dim wkst As Worksheet
Dim wslb As Worksheet
Dim lastRow As Long
lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select
Set wkst = ActiveSheet
Do Until ActiveCell.Row > lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop
lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select
Set wslb = ActiveSheet
Do Until ActiveCell.Row > lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop
End Sub
In the example above if I did not have a:
Set wkst = ActiveSheet or
Set wslb = ActiveSheet
This routine works. When I add the two lines above the ActiveCell is empty.
I am trying to understand how Excel works and things like this confuse me.
In VB6 if I create a skelaton file and activate it, there is data in it.
Is this the same concept in Excel?
Thanks For the Help!
John
If the computer reads the WorkBook, where is the data in memory?
Option Explicit
Sub TestIntl()
Dim wkst As Worksheet
Dim wslb As Worksheet
Dim lastRow As Long
lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select
Set wkst = ActiveSheet
Do Until ActiveCell.Row > lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop
lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select
Set wslb = ActiveSheet
Do Until ActiveCell.Row > lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop
End Sub
In the example above if I did not have a:
Set wkst = ActiveSheet or
Set wslb = ActiveSheet
This routine works. When I add the two lines above the ActiveCell is empty.
I am trying to understand how Excel works and things like this confuse me.
In VB6 if I create a skelaton file and activate it, there is data in it.
Is this the same concept in Excel?
Thanks For the Help!
John