ترحيل بيانات

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

ارجوا مساعدتي في تعديل كود ترحيل للبيانات بطريقة اوتوماتيكية حيث انني ارغب ترحيل من SHEET4 الى SHEET10و SHEET11

 

شاشة الدخول مع صلاحيات 5.xlsb

[محمد هشام.]

ماهي البيانات او الاعمدة  المطلوب ترحيلها اخي  طلبك غير واضح 

[husain alhammadi]

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets.Sheet10.Range("F9:F200") (Worksheets("sheet4").Range("I9:I200"))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets.Sheet11.Range("F9:F200") (Worksheets("sheet4").Range("L9:L200"))
Worksheets.Sheet11.Range("H9:H200") (Worksheets("sheet4").Range("O9:O200"))
End Sub

 

[محمد هشام.]

اولا مادا تقصد بالارتباط التشعبي وما دخله في نقل البيانات 

يكفي شرح طلبك فقط بدون اظافة اي اكواد  ببساطة ممكن تكتب مثلا 

  عمود رصيد البداية في شيت 4 يتم نسخ بياناته الى    عمود الكمية شيت 10 

عمود الرصيد الي هو  عمود ( L ) شيت 4 الى عمود العدد الكلي شيت 11

عمود الرصيد الي هو اخر عمود يتم نسخه الى عمود التكلفة الشيت  11

ادا كان هدا هو طلبك ما هو شرط النسخ هل عند كل تغيير في ورقة 4  او بشرط اخر 

 

تم تعديل أكتوبر 26, 2023 بواسطه محمد هشام.

[husain alhammadi]

جزاك الله خير على الرد و الاهتمام جعله الله ذلك فى موازين حسناتك 

 عمود رصيد البداية الجرد في شيت 4 يتم نسخ بياناته الى رصيد البداية f   عمود الكمية شيت 10 

عمود الرصيد الي هو  عمود ( L ) شيت 4 الى عمود كلفة المخزون في بداية الفترة H شيت 11

عمود الرصيد الي هو تاريخ  نهاية الفترة دوران المخزون  يتم نسخه الى عمود كلفة المخزون في نهاية الفترة Hالشيت  11

 عند كل تغيير في ورقة 4 

 

[محمد هشام.]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
Set V1 = Sheet4: Set V2 = Sheet10: Set V3 = Sheet11

Lr = V1.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

Application.ScreenUpdating = False
    V2.Range("F9:F" & Lr).Value = V1.Range("F9:F" & Lr).Value
    
    V3.Range("F9:F" & Lr).Value = V1.Range("L9:L" & Lr).Value
    
    V3.Range("H9:H" & Lr).Value = V1.Range("O9:O" & Lr).Value
    
Application.ScreenUpdating = True
End Sub

 

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

جعل الله يوم الجمعه لك نوراً، وظهره سروراً، وعصره استبشاراً، ومغربه غفراناً، وجعل لك دعوة لا ترد ووهبك رزقاً لا يعد وفتح لك باباً إلى الجنة لا يسد.