מתחילן צמרת
Member
חוזר לבעית קריאה מקובץ אחד וכתיבה בקובץ שני- בלולאה
EXCEL 2013
WIN 10
ותודה מראש.
מבקש להפעיל מ TAPUZ2 מאקרו, שיפתח את TAPUZ1 ובלולאה,
יקרא נתונים ב2 כולל מפתח ראשי - BARZEL.
יחפש ב1 את המפתח.
יבצע ב 1 בשורת המפתח, כמה פעולות וירשום שם נתונים אם הם חסרים.
בתחילת התהליך עמודה BBB ב 1 ריקה.
בעזרתך יודע לפתוח ולסגור את 1 .
לא יודע להעביר את נקודת ההתייחסות מקובץ לקובץ.
מצ"ב שני הקבצים ודוגמא גנרית למאקרו. המאקרו המקורי אצלי , בקובץ האמיתי, עובד- למעט מעבר מקובץ לקובץ
תודה מראש
דוגמת המאקרו:
תודה מראש
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
תודה מראש