Snasui Excel Forum

Code: Select all

Sub HideUnhide()
Dim r As Range
Dim i As Integer
With Worksheets("PrintReport")
    .Range("C1:AG1").EntireColumn.Hidden = False
    i = 31 - (.Range("B3") - .Range("B2") + 1)
    If i < 0 Then
        MsgBox "Please check date."
        Exit Sub
    End If
    Set r = .Range("AG1") _
        .Offset(0, -i + 1).Resize(1, i + 1)
End With
If r.Count = 1 Then
    Exit Sub
End If
r.EntireColumn.Hidden = True
End Sub

Code: Select all

Sub PasteData()
Dim rSource As Range
Dim rTarget As Range
Set rSource = Worksheets("Template").Range("A2", Range("J61"))
Set rTarget = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Code: Select all

Sub PasteData()
Dim rSource As Range
Dim rTarget As Range
Set rSource = Worksheets("Template").Range("A2", Range("M61"))
Set rTarget = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Code: Select all

Sub PasteData()
Dim rSource As Range
Dim rTarget As Range
Set rSource = Worksheets("Template").Range("A2:N61")
Set rTarget = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub