Home Conditional copy Excel File-2 data to excel file-1?
Reply: 0

Conditional copy Excel File-2 data to excel file-1?

user10314
1#
user10314 Published in September 19, 2018, 7:03 pm

I am using Excel 2007. I try to copy Unit-price from the Excel file-2 data to the Excel file-1 when certain columns data matching from file-1 with file-2.

Thanks for the helps & guidance.

My VBA Code:

Sub mySales() 
    Dim LastRow As Integer, i As Integer, erow As Integer, Pipe_Class As String, Pipe_Description As String, End_Type As String, Pipe_Size As String
    Dim wbk As Workbook
    strPriceFile = "C:\Temp\File-2.xlsx"
    LastRow = ActiveSheet.Range(“A” & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        Pipe_Class = ""
        Pipe_Description = ""
        End_Type = ""
        Pipe_Size = ""
        Pipe_Class = ActiveSheet.Cells(i, 1).Value
        Pipe_Description = ActiveSheet.Cells(i, 2).Value
        End_Type = ActiveSheet.Cells(i, 3).Value
        Pipe_Size = ActiveSheet.Cells(i, 4).Value
        Set wbk = Workbooks.Open(strPriceFile)
        Worksheets("SOR2").Select
        If Cells(i, 1) = Pipe_Class And Cells(i, 2) = Pipe_Description And Cells(i, 3) = End_Type And Cells(i, 4) = Pipe_Size Then
            Range(Cells(i, 12), Cells(i, 12)).Select
            Selection.Copy

??? After Here how select my current file & paste ????????

            Worksheets("SOR1").Select
            erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            ActiveSheet.Cells(erow, 12).Select
            ActiveSheet.Paste
            ActiveWorkbook.Save
        End If
    Next i
    ActiveWorkbook.Close
    Application.CutCopyMode = False
End Sub
share|improve this question
  • 1
    And the question is .... ? (P.S. If your problem is that LastRow = ActiveSheet.Range(“A” & Rows.Count).End(xlUp).Row crashes out, change and to ".) – YowE3K Dec 22 '16 at 2:36
  • 1
    P.P.S. If your problem is that you aren't able to open strSecondFile because it is already open, move the open statement outside the loop. – YowE3K Dec 22 '16 at 2:38
  • STILL I AM NOT SUCCEEDED. DOES ANY BODY CAN HELP ME ? THANKS – Paramu Dec 22 '16 at 3:35
  • Can you please let us know what the problem is? Without a description of the error message, and which line is causing problems, we are just having to guess at what is wrong. – YowE3K Dec 22 '16 at 3:38
  • Hi YowE3K, Thanks for the reply....Now I edit my post, Confusion with paste area....Pls. check the post again....Thanks – Paramu Dec 22 '16 at 7:31

1 Answer 1

active oldest votes
up vote 2 down vote accepted
You need to login account before you can post.

About| Privacy statement| Terms of Service| Advertising| Contact us| Help| Sitemap|
Processed in 0.289529 second(s) , Gzip On .

© 2016 Powered by mzan.com design MATCHINFO