Paste special syntax Book to Book
Hi Howard,
Am Mon, 21 Jul 2014 08:17:03 +0200 schrieb Claus Busch:
try:
bit more universally. You can copy from columns, from rows and also a
single cell:
Sub CopyBookToBook()
Dim RngFrm As Range
Dim RngTo As Range
Dim varFrm As Variant
Set RngFrm = Application.InputBox(Prompt:="Enter a Copy from Range.", _
Title:="Enter Copy from Column", Type:=8)
If RngFrm Is Nothing Then Exit Sub
varFrm = RngFrm
'Workbooks.Open Filename:= _
"C:\Users\Howard Kittle\Documents\Copy To This Book.xlsm"
'Application.Goto Workbooks("Copy To This
Book").Sheets("Sheet1").Range("A1")
Set RngTo = Application.InputBox(Prompt:="Enter a single cell.", _
Title:="Enter Copy to Column", Type:=8)
' If RngTo Is Nothing Then Exit Sub
MsgBox RngTo.Address
If IsArray(varFrm) Then
RngTo.Resize(RngFrm.Rows.Count, RngFrm.Columns.Count) = varFrm
Else
RngTo = varFrm
End If
'ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub
Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
|