كود نسخ الرقم من صفحة1 الى اي صفحة في يتم الدخول عليها من خلال الفورم ونسخها في الخلية D5

[ابو طيبه]

السلام عليكم اساتذتنا الكرام

محتاج كود يقوم بنسخ الرقم من خليه في ورقة١ الى خليه D5 في اي ورقه يتم الدخول عليها من خلال الفورم الموجود في الصفحات

مع الشكر لجهود الجميع 

نموذج الملف.xls

[ابو طيبه]

وان يقوم الكود باستثناء صفحة٢ وصفة ٣ من نسخ الرقم اليها

وان يكون مرجع الخليه ( الخليه النشطه  ) لاي ورقة يتم الدخول اليها من خلال الفورم هي D5 ايضآ

مع الشكر والتقدير لجهود جميع الاساتذه 

[الرائد77]

تفضل

 

Private Sub ListBox1_Click()
If ListBox1.ListIndex > -1 Then
     Sheets(ListBox1.Value).Activate
     
    
    If Sheets(ListBox1.Value).Name <> "ورقة2" And Sheets(ListBox1.Value).Name <> "ورقة3" Then
     Sheets(ListBox1.Value).Range("d5") = Sheets("ورقة1").Range("f1")
     End If
  End If
End Sub

 

نموذج الملف.xls

[ابو طيبه]

اشكرك استاذ العزيز على هذا الكود الرائع  هل يمكن ان تكون الخليه النشطه في اي ورقة يتم الدخول عليها هي D5 ومحتاج اني اخفي ورقه ٤ وورقه ٥ من اليست بوك مع جزيل الشكر والامتنان لحضرتك جعلها الله في ميزان حسناتك

[الرائد77]

تفضل

نموذج الملف (1).xls

[ابو طيبه]

مشكوره جهودك استاذ سوف اقوم بتجربة الملف غدا لعدم توفر الحاسبه الان تحياتي لك 

[الرائد77]

بالننسبة لاستثناء اوراق معينة ييمكنك االتغيير فيي كود listbox click الى هدا الكود

Private Sub ListBox1_Click()
If ListBox1.ListIndex > -1 Then
     Sheets(ListBox1.Value).Activate
     
    
    If Sheets(ListBox1.Value).Name <> "ورقة1" And Sheets(ListBox1.Value).Name <> "وررقة2" And Sheets(ListBox1.Value).Name <> "ورقة3" Then
     Sheets(ListBox1.Value).Range("d5") = Sheets("ورقة1").Range("f1")
     Sheets(ListBox1.Value).Range("d5").Select
     End If
  End If
End Sub

 

نموذج الملف (1) (1).xls

[ابو طيبه]

شكرا جزيلا كود رائع بارك الله فيك وبجهودك وجعلها في ميزان حسناتك تحياتي لحضرتك 

تم تعديل يوليو 17, 2020 بواسطه ابو طيبه