أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نقل (ترحيل) البيانات عند الضغط على زر الترحيل الى شيت معين

السلام عليكم : عند كل ضغط على زر الترحيل تنقل نسخة من العملية الى شيت المتغيرات وكما مبين بالشيت (المتغيرات) واذا كانت ..



03-12-2017 12:56 مساء
زيد2017
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2017
رقم العضوية : 1165
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 23
الاعجاب : 6
 offline 

السلام عليكم :



عند كل ضغط على زر الترحيل تنقل نسخة من العملية الى شيت المتغيرات وكما مبين بالشيت (المتغيرات) واذا كانت البيانات نفسها مرحلة رسالة تنبيه بان البيانات مرحلة (نفسه) هذا في حالة الضغط على زر الترحيل مرتين سهوا ، وكما مبين بشيت المتغيرات


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  نقل - ترحيل - عند الضغط على زر الترحيل.rar   تحميل rar مرات التحميل :(7)
الحجم :(27.417) KB





03-12-2017 06:09 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif نقل (ترحيل) البيانات عند الضغط على زر الترحيل الى شيت معين
تفضل الملف بعد التعديل اتمنى ان يكون المطلوب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

الكود هو 

Sub Abo_Dahab()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim sh2     As Worksheet
    Dim x       As Range
    Dim cel     As Range
    Dim z       As Range
    Dim lr      As Long
    
    Application.ScreenUpdating = False
        Set sh = Sheets("التحويل")
        Set sh2 = Sheets("المتغيرات")
        lr = sh2.Cells(Rows.Count, 3).End(xlUp).Row + 1
        
        
    For Each z In sh2.Range("A2:A" & sh2.Cells(Rows.Count, 1).End(xlUp).Row)
          If z.Value = sh.Range("a2").Value And z.Offset(, 1).Value = sh.Range("b2").Value And _
           z.Offset(, 2).Value = sh.Range("c2").Value And z.Offset(, 3).Value = sh.Range("d2").Value _
           And z.Offset(, 4).Value = sh.Range("e2").Value And z.Offset(, 5).Value = sh.Range("f2").Value Then
           MsgBox "بيانات مرحلة من قبل", 64
           Exit Sub
        End If
    Next z
    
    sh2.Range("a" & lr).Value = sh.Range("a2").Value
    sh2.Range("b" & lr).Value = sh.Range("b2").Value
    sh2.Range("c" & lr).Value = sh.Range("c2").Value
    sh2.Range("d" & lr).Value = sh.Range("d2").Value
    sh2.Range("e" & lr).Value = sh.Range("e2").Value
    sh2.Range("f" & lr).Value = sh.Range("f2").Value
    sh2.Range("g" & lr).Value = Format(Date, "yyyy/mm/dd")
    
    
       For Each ws In Worksheets
            If ws.Name = Sheets("قسم1").Name Or ws.Name = Sheets("قسم2").Name Or ws.Name = Sheets("شعبة1").Name Or ws.Name = Sheets("شعبة2").Name Then
                For Each x In ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
                    If x = sh.Range("A2").Value Then
                        x.Value = sh.Range("D2").Value
                        x.Offset(, 1) = sh.Range("E2").Value
                        x.Offset(, 5) = sh.Range("F2").Value
                        Exit For
                    End If
                Next x
            End If
        Next ws
    Application.ScreenUpdating = True
    
    MsgBox "تم الترحيل", 64
End Sub



تقبل تحياتى وتقديرى
 
 
  نقل - ترحيل - عند الضغط على زر الترحيل.rar   تحميل rar مرات التحميل :(5)
الحجم :(30.377) KB


أثارت هذه المشاركة إعجاب: زيد2017، malik،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



03-12-2017 06:10 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif نقل (ترحيل) البيانات عند الضغط على زر الترحيل الى شيت معين
ممكن من الخبرا طلب هل يمكن اختصار السطر التالى وما افضل اختصار له 

         If z.Value = sh.Range("a2").Value And z.Offset(, 1).Value = sh.Range("b2").Value And _
           z.Offset(, 2).Value = sh.Range("c2").Value And z.Offset(, 3).Value = sh.Range("d2").Value _
           And z.Offset(, 4).Value = sh.Range("e2").Value And z.Offset(, 5).Value = sh.Range("f2").Value Then


هل يمكن استخدام الدالة Resize 
ام هناك دوال اخرى تحقق الطلب 
وشكرا للجميع 


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:03-12-2017 06:11 مساء


أثارت هذه المشاركة إعجاب: زيد2017،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



03-12-2017 06:17 مساء
مشاهدة مشاركة منفردة [3]
زيد2017
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2017
رقم العضوية : 1165
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 23
الاعجاب : 6
 offline 
look/images/icons/i1.gif نقل (ترحيل) البيانات عند الضغط على زر الترحيل الى شيت معين
تسلم يا ذهب
جزيت خيرا
تم المطلوب - الله يرضى عليك
 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،






الكلمات الدلالية
(ترحيل) ، البيانات ، الضغط ، الترحيل ، معين ،


 







الساعة الآن 08:27 صباحا