الاستاذ مجدى
ترحيل والأستدعاء حسب اسم العميل 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا ترحيل والأستدعاء حسب اسم العميل 829894
ادارة المنتدي ترحيل والأستدعاء حسب اسم العميل 103798

ترحيل والأستدعاء حسب اسم العميل Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل tota_2012 فمرحبا به


شاطر
 

 ترحيل والأستدعاء حسب اسم العميل

اذهب الى الأسفل 
كاتب الموضوعرسالة
wahid-chaoui



عدد المساهمات : 1
تاريخ التسجيل : 14/06/2017

ترحيل والأستدعاء حسب اسم العميل Empty
مُساهمةموضوع: ترحيل والأستدعاء حسب اسم العميل   ترحيل والأستدعاء حسب اسم العميل Avatarالأربعاء نوفمبر 28, 2018 9:10 am

اساتذتنا الكرام السلام عليكم ورحمة الله تعالى وبركاته
ارجوا المساعدة في كيفية ترحيل البيانات واستدعائها حسب اسم العميل
في الترحيل بعد مجهود من احد الأصدقاء اصبح يعمل ولكن في زر الأستدعاء فإنه لايعمل
لذا ارجوا من سيادكم الكريمة تعديل الماكرو
الكود:
E7] = ListBox1.Value
 With Sheets("Data")
    LR = .[B10000].End(xlUp).Row
        For r = 4 To LR
            x = .Cells(r, 2).Value
            If Format(x, "#") = ListBox1.Value Then GoTo 10
        Next r
10  If r <> LR Then n_LR = .Cells(r, 2).End(xlDown).Row - 1: GoTo 20
    n_LR = .[H10000].End(xlUp).Row
20  .Range("G" & r & ":J" & n_LR).Copy ([C12])
    [d8] = .Cells(r, 3)
    [D9] = .Cells(r, 4)
    [F9] = .Cells(r, 5)
    [D10] = .Cells(r, 6)
 End With
 Me.Hide
End Sub

Private Sub CommandButton2_Click()
Call deleteRange
[E7] = ListBox1.Value
 With Sheets("Data")
    LR = .[B10000].End(xlUp).Row
        For r = 4 To LR
            x = .Cells(r, 2).Value
            If Format(x, "#") = ListBox1.Value Then GoTo 10
        Next r
10  If r <> LR Then n_LR = .Cells(r, 2).End(xlDown).Row - 1: GoTo 20
    n_LR = .[H10000].End(xlUp).Row
20  .Range("G" & r & ":J" & n_LR).EntireRow.Delete Shift:=xlUp
 End With
Me.Hide
End Sub

Private Sub Label2_Click()
Me.Hide
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Activate()
Dim x
ListBox1.Clear
'ÍÕÑ ÚÏÏ ÇáÝæÇÊíÑ ÇáãæÌæÏÉ ÈÇáæÑÞÉ ÏÇÊÇ
    With Sheets("Data")
        LR = .[B10000].End(xlUp).Row
            For r = 4 To LR
                x = .Cells(r, 2).Value
                If x <> "" Then ListBox1.AddItem x
            Next r
    End With
End Sub

وجزاكم الله خيرا

الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

ترحيل والأستدعاء حسب اسم العميل Empty
مُساهمةموضوع: رد: ترحيل والأستدعاء حسب اسم العميل   ترحيل والأستدعاء حسب اسم العميل Avatarالخميس نوفمبر 29, 2018 7:39 am

اين الملف للعمل عليه

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

ترحيل والأستدعاء حسب اسم العميل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
ترحيل والأستدعاء حسب اسم العميل
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: