VBA copy data from a workbook to another

[mark692]

Good day sir i have two workbooks

1. workbookSource- where we will get the data

2. workbookPastehere- where the data will be pasted


what code will i use if i want data from workbookSource column A and Column D to be paste in workbookPastehere Sheet INPUT, column B and column F,

i start in using this VBA code

Sub CopyPaste()
Selection.copy
Workbooks.Open Filename:="C:\Users\Record\workbookPastehere.xlsm"
Sheets("Input").Select
Activesheet.paste
Application.cutcopymode = False


End sub

this code work if the workbookPastehere.xlsm is not yet open, problem occur when workbookPastehere.xlsm is already open an error "workbookPastehere.xlsm is already open. Reopening will cause". i want a code that will not reopen the workbookPastehere.xlsm if its already open. thanks

 

[mark692]

How about

Sub chkFileOpen()
   Dim wbk As Workbook
   Dim Fname As String
   Dim pth As String
   Dim Addr As String
   
   pth = "C:\Mrexcel\"
   Fname = "Book1.xlsm"
   Range("A:B").Copy
   Addr = Selection.Address
   If Not wbkExists(Fname) Then
      Set wbk = Workbooks.Open(pth & Fname)
   Else
      Set wbk = Workbooks(Fname)
   End If
   wbk.Sheets("Input").Range("A1").PasteSpecial

End Sub

Sub chkFileOpen()
Dim wbk As Workbook
Dim Fname As String
Dim pth As String
Dim Addr As String

pth = "C:\Mrexcel"
Fname = "Book1.xlsm"
Range("A2:A8").Copy
Addr = Selection.Address
If Not wbkExists(Fname) Then
Set wbk = Workbooks.Open(pth & Fname)
Else
Set wbk = Workbooks(Fname)
End If
wbk.Sheets("Sheet1").Range("D4").PasteSpecial



End Sub



i edit your code sir so i can use it on my workbook and it work, but my problem is after pasting the range "a2:a8" to cell D4, i want to go back in the orignal workbook and copy another range, i think we need a code after "wbk.Sheets("Sheet1").Range("D4").PasteSpecial" so i can go back in the source workbook


****** id="cke_pastebin" style="position: absolute; top: 632px; width: 1px; height: 1px; overflow: hidden; left: -1000px;"> wbk.Sheets("Sheet1").Range("D4").PasteSpecial</body>

 

[mark692]

i solved the problem thanks fluff!

 

[Fluff]

Glad you got it sorted & thanks for the feedback