חוזר לבעית קריאה מקובץ אחד וכתיבה בקובץ שני- בלולאה

[מתחילן צמרת]

חוזר לבעית קריאה מקובץ אחד וכתיבה בקובץ שני- בלולאה

EXCEL 2013
WIN 10
ותודה מראש.

מבקש להפעיל מ TAPUZ2 מאקרו, שיפתח את TAPUZ1 ובלולאה,
יקרא נתונים ב2 כולל מפתח ראשי - BARZEL.
יחפש ב1 את המפתח.
יבצע ב 1 בשורת המפתח, כמה פעולות וירשום שם נתונים אם הם חסרים.
בתחילת התהליך עמודה BBB ב 1 ריקה.

בעזרתך יודע לפתוח ולסגור את 1 .
לא יודע להעביר את נקודת ההתייחסות מקובץ לקובץ.
מצ"ב שני הקבצים ודוגמא גנרית למאקרו. המאקרו המקורי אצלי , בקובץ האמיתי, עובד- למעט מעבר מקובץ לקובץ

תודה מראש

דוגמת המאקרו:

Sub COPY()
    Dim AppendWb As Workbook
    Dim D_array() As Double
    Dim site_S As String
    Dim site_N As Integer
    
    On Error Resume Next
    Set AppendWb = ThisWorkbook
    ' master workbook
    MWB = AppendWb.FullName
    Sheets("BBB").Select
    
   
    Path = "D:\My PATH\"
    wb = "TAPUZ1.XLSX"
    Workbooks.Open Path & wb
    
'==================
'MAIN LOOP
'==================
Workbooks(MWB).Activate
Worksheets("BBB").Select
For r_l = 2 To 6
barzel = Cells(r_l, 1)
  
 
    site_S = Cells(r_l, 2).Value
      
    If InStr(site_S, "ב") > 0 Then
        site_N = 1
    Else
        site_N = 2
    End If
    
   Workbooks(wb).Active
   Worksheets("DATA").Select
   If r_l = 2 Then WB_length = Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row

    
    For S_I = 1 To WB_length
        If Cells(S_I, 1).Value = barzel Then
            NUM_sites = Cells(S_I, 4).Value
            If Cells(S_I, 2).Value = "" Then
                    Cells(i, 4).Value = site_N
     
                S_I = WB_length + 1
     
            Else
            End If
        Cells(S_I, 2).Value = site_N
        End If

    
    Next S_I
    Workbooks(MWB).Activate
    Worksheets("BBB").Select
    Next r_l
End Sub

תודה מראש

 

[מתחילן צמרת]

תודה למתעניינים - שם את הפוסט ב HOLD - חושב שפתרתי את הבעיה.