اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by الرائد77,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

تفضل

 

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

بالننسبة لاستثناء اوراق معينة ييمكنك االتغيير فيي كود 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

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information