Home |
Search |
Today's Posts |
#20
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
In , Dave Peterson
spake thusly: Dallman Ross wrote: [H]ow to I tell VBA to print the result to the screen so I can test things? You can use msgbox sometextvariablehere or debug.print sometextvariablehere Okay, I'll try these. I saw your further clarification as well. Thanks much. My question about break/continue, etc., isn't from the FORTRAN world, though I did take a FORTRAN class in college in 1980. (I can't remember a thing about it.) But I am a Unix scripter. So I have quite a fair bit of experience with syntax from, e.g., the Bourne shell under Unix. By the way, in you sample code snippet you put in declarations: Dim csvRG As Worksheet Dim csvUG As Worksheet 'stuff deleted Set csvRG = Worksheets("2006 Realized - CSV Data") Set csvUG = Worksheets("Current - CSV Data") I have a question about it. I actually had that originally, then took out the Dim statements because in testing I found it worked fine without them and with just the Sets. You put them back. So I, also, put them back. But how come it works without them? Now I've started to make another loop higher up in the macro. I've run into trouble and need help to get it working. Previously, we had "Dim whatever As Range"; but now I want that to be in a loop as well. So I tried: 'snip stuff Dim wsRG As Worksheet Dim wsUG As Worksheet Set wsRG = Worksheets("2006 Realized Gains") Set wsUG = Worksheets("Current Positions") ' Loop through regular worksheets Dim iCtr As Long Dim wsNames As Variant Dim wsLastRows As Variant Dim wsLastCols As Variant Dim wsRng As Variant wsNames = Array(wsRG, wsUG) ReDim wsLastRows(LBound(wsNames) To UBound(wsNames)) ReDim wsLastCols(LBound(wsNames) To UBound(wsNames)) ReDim wsRng(LBound(wsNames) To UBound(wsNames)) For iCtr = LBound(wsNames) To UBound(wsNames) With wsNames(iCtr) .Activate wsLastRows(iCtr) = .Cells(1, .Columns.Count).End(xlToLeft).Column wsLastCols(iCtr) = .Cells(.Rows.Count, "A").End(xlUp).Row ' next line barfs <====================== wsRng(iCtr) = .Range("A1", .Cells(wsLastRows, wsLastCols)) 'snip rest Okay, so how do I fix that type mismatch? Dallman Ross |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
error when running cut & paste macro | Excel Worksheet Functions | |||
Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Closing File Error | Excel Discussion (Misc queries) | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |