Snasui Excel Forum

Code: Select all

Sub BeenArL()                               
    Dim wbShare As Workbook
    Dim wdShare As Workbook
    Dim formBook As Workbook
    'Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBookShare.xlsx")
    Set wdShare = Workbooks("PoBookShare.xlsx")
    'For Each wdShare In Workbooks
    'If wdShare.Name = "PoBookShare.xlsx" Then
       ' wdShareOpen = True
    'End If
    'Next wdShare
    'If Not wdShareOpen Then
    'Workbooks.Open Filename:="\\Server\DATA (E)\My P S  Project.xls\PS.BookShare\PO.ãºÊè§ÊÔ¹¤éÒ\PoBookShare.xlsx"
   ' End If

    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    With wdShare.Sheets("Sheet1")
        Set rTarget = .Range("E2", .Range("E" & Rows.Count).End(xlUp))
    End With

Code: Select all

With wdShare.Sheets("Sheet1")

Code: Select all

Sub BeenArL()
    Dim wbShare As Workbook
    Dim wb As Workbook ' declare wb as workbook
    Dim wdShare As Workbook
    Dim formBook As Workbook
    Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBookShare.xlsx")
    For Each wb In Workbooks ' loop wb not loop wdShare
        If wb.Name = "PoBookShare.xlsx" Then
            wdShareOpen = True
        End If
    Next wb
    If Not wdShareOpen Then
        Workbooks.Open Filename:="\\Server\DATA (E)\My P S  Project.xls\PS.BookShare\PO.ãºÊè§ÊÔ¹¤éÒ\PoBookShare.xlsx"
    End If
    Set wdShare = Workbooks("PoBookShare.xlsx") 'set wdShare after open not before open
    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    'Other code
End Sub