Hi,
I have been searching hi & low to solve this on my own. I am @ my whits end. I want to point @ a specific workBooks that I have open or am opening in the code.
I am trying to do this as a VBA formula that I fill down a Column.
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
Set Awbk = ActiveWorkbook 'This is the current workbook that we want to populate.
Set CurPop = ActiveWorkbook.ActiveSheet 'This is the sheet we will be working with
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
If dLast > 0 Then
Workbooks.Open strPrevFolder & Dir(strPrevFolder & "*.xlsb", vbNormal)
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
Set Swbk = ActiveWorkbook 'This is the workbook that we are drawing the data from.
Set DrawDat = ActiveWorkbook.ActiveSheet 'This is the sheet we will be working with
Set Twbk = ThisWorkbook 'This is the workbook that the code is being ran from.
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Awbk.Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A1").Select
'This works from the cell I want to run it from, but when I try to run it in VBA it gets hung-up.
'=IFERROR(MATCH(C:C,'[test_DB 10-16-13 @ 2.06AM 17_seconds_.xlsb]test10-16-13 @2.06AM.17_sec'!$C:$C,0),"")
'This is really what I wanted to do, because we come to this code through a loop & the workBooks & sheet names change each time.
'=IFERROR(MATCH(C:C,'[Swbk]DrawDat'!$C:$C,0),"")
Selection.FormulaR1C1 = "PDat"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(C:C,'[Swbk]DrawDat'!$C:$C,0),"""")"
Any help offered is much appreciated.
Thanks,
dlow :D
Bookmarks