W
Wes_A
Firstly thank you all for your patience and valued assistance, it is really
appreciated.
I have the following code which does not find the record to paste into.
Maybe there is an easier way? Or can someone assist in finding what is wrong
here?
The macro is activated with the sheet "SCHOOL1_FEES.xlsm" active and the
workbook "SCHOOL_Account_Codes.xlsm" in memory.
'
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
Range("L8").Activate 'Starting point for offsets
ActiveCell.Offset(0, -2).Select
Selection.Copy 'Content of cell J8
ActiveCell.Offset(0, 2).Activate
Dim varRange As Range
Dim varFound As Variant, varSearch As Variant
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
varSearch = ActiveCell.Value 'Should be value in cell L8
Windows("SCHOOL_Account_Codes.xlsm").Activate
Sheets("School1").Activate
Set varRange = ActiveSheet.Range("B5:QV5")
Set varFound = varRange.Find(varSearch, lookat:=xlWhole)
If Not varFound Is Nothing Then varFound.Activate
ActiveCell.Offset(21, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Should be contents of cell J8 above
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
For i = 1 To Worksheets("Sheet1").Range("$A$4").Value
ActiveCell.Offset(1, 0).Activate 'Should now be cell L9 & on next "i" L10,
etc.
ActiveCell.Offset(0, -2).Select
Selection.Copy ' Should be content of cell J9
ActiveCell.Offset(0, 2).Activate
varSearch = ActiveCell.Value 'Should now be cell L9
Windows("SCHOOL_Account_Codes.xlsm").Activate
Sheets("School1").Activate
Set varRange = ActiveSheet.Range("B5:QV5")
Set varFound = varRange.Find(varSearch, lookat:=xlWhole)
If Not varFound Is Nothing Then varFound.Activate
ActiveCell.Offset(21, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Should be contents of cell J9 above
Next i
Application.ScreenUpdating = True
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
appreciated.
I have the following code which does not find the record to paste into.
Maybe there is an easier way? Or can someone assist in finding what is wrong
here?
The macro is activated with the sheet "SCHOOL1_FEES.xlsm" active and the
workbook "SCHOOL_Account_Codes.xlsm" in memory.
'
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
Range("L8").Activate 'Starting point for offsets
ActiveCell.Offset(0, -2).Select
Selection.Copy 'Content of cell J8
ActiveCell.Offset(0, 2).Activate
Dim varRange As Range
Dim varFound As Variant, varSearch As Variant
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
varSearch = ActiveCell.Value 'Should be value in cell L8
Windows("SCHOOL_Account_Codes.xlsm").Activate
Sheets("School1").Activate
Set varRange = ActiveSheet.Range("B5:QV5")
Set varFound = varRange.Find(varSearch, lookat:=xlWhole)
If Not varFound Is Nothing Then varFound.Activate
ActiveCell.Offset(21, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Should be contents of cell J8 above
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate
For i = 1 To Worksheets("Sheet1").Range("$A$4").Value
ActiveCell.Offset(1, 0).Activate 'Should now be cell L9 & on next "i" L10,
etc.
ActiveCell.Offset(0, -2).Select
Selection.Copy ' Should be content of cell J9
ActiveCell.Offset(0, 2).Activate
varSearch = ActiveCell.Value 'Should now be cell L9
Windows("SCHOOL_Account_Codes.xlsm").Activate
Sheets("School1").Activate
Set varRange = ActiveSheet.Range("B5:QV5")
Set varFound = varRange.Find(varSearch, lookat:=xlWhole)
If Not varFound Is Nothing Then varFound.Activate
ActiveCell.Offset(21, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Should be contents of cell J9 above
Next i
Application.ScreenUpdating = True
Windows("SCHOOL1_FEES.xlsm").Activate
Sheets("INPUT").Activate