D
deej
I'm trying to use a macro to select the first blank cell in a column
(amongst other things), but keep getting this error. Here is the code:
Sub Tfr_to_DB()
Select Case Application.MailSystem
Case xlMAPI
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SendMail "...@...", _
"Fee Book - " & Range("B1")
.Close False
End With
Case xlNoMailSystem
MsgBox "no mail client"
Case Else
Application.CommandBars("worksheet menu bar") _
.Controls("File").Controls("Send To").Controls("Mail
Recipient...").Execute
End Select
Application.ScreenUpdating = True
Range("A4:g16").Select
Selection.Copy
Worksheets("Database").Activate
Dim ws As Worksheet
Set ws = Worksheets("Database")
With ws
.Range("A1").End(xlDown).Offset(1, 0).Select
'ERROR IS HERE
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:G").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:
=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End With
Sheets("New Invoices").Select
ActiveWindow.ScrollRow = 1
Range("A4:f16").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("A4").Select
End Sub
You can probably tell I'm a novice.
Any help is appreciated.
deej
(amongst other things), but keep getting this error. Here is the code:
Sub Tfr_to_DB()
Select Case Application.MailSystem
Case xlMAPI
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SendMail "...@...", _
"Fee Book - " & Range("B1")
.Close False
End With
Case xlNoMailSystem
MsgBox "no mail client"
Case Else
Application.CommandBars("worksheet menu bar") _
.Controls("File").Controls("Send To").Controls("Mail
Recipient...").Execute
End Select
Application.ScreenUpdating = True
Range("A4:g16").Select
Selection.Copy
Worksheets("Database").Activate
Dim ws As Worksheet
Set ws = Worksheets("Database")
With ws
.Range("A1").End(xlDown).Offset(1, 0).Select
'ERROR IS HERE
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:G").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:
=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End With
Sheets("New Invoices").Select
ActiveWindow.ScrollRow = 1
Range("A4:f16").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("A4").Select
End Sub
You can probably tell I'm a novice.
Any help is appreciated.
deej