Hello,
I have hidden 3 worksheets, and just after hidding I am not able to submit entry.
When I debug the error is below:
Sub TrainingDatabaseFinal2()
'
' TrainingDatabaseFinal2 Macro
' This macro submits and deletes data
'
'
Sheets("Intermediate").Select
Range("A2:Q2").Select
Selection.Copy
Sheets("DataBase").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("R3").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Table1[[#Headers],[Training Type]]").Select
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=-6
ActiveWindow.SmallScroll Down:=-3
ActiveCell.Offset(1, 0).Range("Table1[#Headers]").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data Entry").Select
ActiveWindow.SmallScroll Down:=21
Range("G33").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D33").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("M25").Select
Selection.ClearContents
Range("J25").Select
Selection.ClearContents
Range("G25").Select
Selection.ClearContents
Range("D25").Select
Selection.ClearContents
Range("M23").Select
Selection.ClearContents
Range("J23").Select
Selection.ClearContents
Range("G23").Select
Selection.ClearContents
Range("D23").Select
Selection.ClearContents
Range("D21").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-12
Range("G12").Select
Selection.ClearContents
Range("D12").Select
Selection.ClearContents
Range("M10").Select
Selection.ClearContents
Range("J10").Select
Selection.ClearContents
Range("G10").Select
Selection.ClearContents
Range("D10").Select
Selection.ClearContents
End Sub
I have hidden 3 worksheets, and just after hidding I am not able to submit entry.
When I debug the error is below:
Sub TrainingDatabaseFinal2()
'
' TrainingDatabaseFinal2 Macro
' This macro submits and deletes data
'
'
Sheets("Intermediate").Select
Range("A2:Q2").Select
Selection.Copy
Sheets("DataBase").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("R3").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Table1[[#Headers],[Training Type]]").Select
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=-6
ActiveWindow.SmallScroll Down:=-3
ActiveCell.Offset(1, 0).Range("Table1[#Headers]").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data Entry").Select
ActiveWindow.SmallScroll Down:=21
Range("G33").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D33").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("M25").Select
Selection.ClearContents
Range("J25").Select
Selection.ClearContents
Range("G25").Select
Selection.ClearContents
Range("D25").Select
Selection.ClearContents
Range("M23").Select
Selection.ClearContents
Range("J23").Select
Selection.ClearContents
Range("G23").Select
Selection.ClearContents
Range("D23").Select
Selection.ClearContents
Range("D21").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-12
Range("G12").Select
Selection.ClearContents
Range("D12").Select
Selection.ClearContents
Range("M10").Select
Selection.ClearContents
Range("J10").Select
Selection.ClearContents
Range("G10").Select
Selection.ClearContents
Range("D10").Select
Selection.ClearContents
End Sub