مساعدة في الترحيل بواسطة القائمة المنسدلة

[amir501]

اخواني جزاكم الله كل خير هل يمكن الترحيل بواسطة القائمة المنسدلة

الشرح في المرفق

ولكم جزيل الشكر

Book1.rar

[ابو اسامة العينبوسي]

السلام عليكم

ان كان المقصود نكمل

Dim LR, LR2 As Integer

With Sheets(1)

LR = .Cells(1000, 1).End(xlUp).Row + 1

    For i = 1 To 6

     If IsNumeric(Me.Controls("textbox" & i)) Then

     .Cells(LR, i) = Val(Me.Controls("TextBox" & i))

     Else

     .Cells(LR, i) = Me.Controls("TextBox" & i)

     End If

    Next i

End With

'----------------------------------------------------

With Sheets(2)

LR2 = .Cells(1000, 1).End(xlUp).Row + 1

    For i = 1 To 6

     If IsNumeric(Me.Controls("textbox" & i)) Then

     .Cells(LR, i) = Val(Me.Controls("TextBox" & i))

     Me.Controls("TextBox" & i).Value = ""

    Else

     .Cells(LR, i) = Me.Controls("TextBox" & i)

     Me.Controls("TextBox" & i).Value = ""

    End If

    Next i

End With

Me.TextBox1.SetFocus

TryThisOneDear.rar

[احمد فضيله]

الاخ الاستاذ / ابو اسامة العينبوسي

بارك الله فيك

[amir501]

السلام عليكم

ان كان المقصود نكمل

Dim LR, LR2 As Integer

With Sheets(1)

LR = .Cells(1000, 1).End(xlUp).Row + 1

    For i = 1 To 6

     If IsNumeric(Me.Controls("textbox" & i)) Then

     .Cells(LR, i) = Val(Me.Controls("TextBox" & i))

     Else

     .Cells(LR, i) = Me.Controls("TextBox" & i)

     End If

    Next i

End With

'----------------------------------------------------

With Sheets(2)

LR2 = .Cells(1000, 1).End(xlUp).Row + 1

    For i = 1 To 6

     If IsNumeric(Me.Controls("textbox" & i)) Then

     .Cells(LR, i) = Val(Me.Controls("TextBox" & i))

     Me.Controls("TextBox" & i).Value = ""

    Else

     .Cells(LR, i) = Me.Controls("TextBox" & i)

     Me.Controls("TextBox" & i).Value = ""

    End If

    Next i

End With

Me.TextBox1.SetFocus

السلام عليكم اخي الاستاذ / ابو اسامة العينبوسي جزاك الله عني كل خير

هذا هو بالضبط ما اريده مع ملاحظة بسيطة.... هي انه لا داعي لترحيل البيانات في الشيت رقم واحد اريد الترحيل الى الشيت رقم 2 مع مراعات ان اطبع كل يوم تم ترحيلة طبعا مع العنوان الموجود في اعلى الصفحة علما انه في كل يوم يصل تقريبا عدد الترحيل الى من 20 الى 30 اسم تقريبا؟؟؟ وهل يمكن اداج التاريخ تلقائيا في حقل التاريخ عوظا عن كتابته يدويا

واكرر شكري لك ولكل من اطلع على الموضوع

تم تعديل يناير 23, 2010 بواسطه amir501

[ابو اسامة العينبوسي]

السلام عليكم

ممكن

لكن الهدف من الترحيل الى الاولى هو لطباعة البيانات المدخله حديثا (بتاريخ اليوم)

ثم بعد ذلك تمسح تلقائيا

اكمل لك الحل من البيت ان شاء الله

[خالد القدس]

السلام عليكم

أستاذ أبو اسامة كالبحر أنت وكلنا يشكو الصدى

ملف أكثر من رائع بارك الله فيك وزادك من فضله

[amir501]

السلام عليكم

ممكن

لكن الهدف من الترحيل الى الاولى هو لطباعة البيانات المدخله حديثا (بتاريخ اليوم)

ثم بعد ذلك تمسح تلقائيا

اكمل لك الحل من البيت ان شاء الله

ان شاء الله

وانا اشكرك اخي واستاذي ابو اسامة والله يعجو اللسان عن شكرك واخواني

ان لم يكن هناك صعوبة ارجو ان يتضمن مجال عملك ( الاكثر من رائع) ميزة البحث

[ابو اسامة العينبوسي]

السلام عليكم

اليك ما طلبت باستثناء موضوع البحث

لا استطع عمله

الاخ خبور له باع في مثل هذه الامور

TryThisOneDear2.rar

[احمد فضيله]

بارك الله فيك

[احمد فضيله]

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

الاخ amir501

بالنسبة لموضوع البحث و بعد اذن الاخ و الاستاذ / ابو اسامة العينبوسي

ارجو ان يكون المرفق هو ما تريد

والله ولى التوفيق

و لو في اى حاجة تانيه و انا اقدر اعملها انا مش هتأخر و الله

Hancock.rar

[ابو اسامة العينبوسي]

مشكور اخى

[احمد فضيله]

عفوا يا اخي فى الله

الشكر لله وحده

[احمد فضيله]

الاخ الاستاذ / ابو اسامة العينبوسي

بعد اذن حضرتك ممكن طلب

لو سمحت شرح للاكواد اللى حضرتك كاتبها لكي تعم الفائدة

و لك جزيل الشكر

وفقك الله و جزاك كل خير

[احمد فضيله]

و الله ولى التوفيق

[amir501]

اخي ابو اسامة

اخي HaNcOcK

جزاكم الله عني كل خير لي طلب فيما يخص البحث هو انه احيانا يستخدم السيارة في نفس اليوم اكثر من سائق وفي مجال البخث هذا تظهر فقط اسم سائق واحد ولا تظهر الاخر ان امكن ان تظهر كل من استخدم السيارة مع ملاحظة ان الشيت رقم واحد للترحيل فقط البيانات تخزن قي الشييت رقم 2 ؟؟؟؟ وهل يمكن جعل نوع المهمة قائمة منسدلة اختار منها ما اريد لانه جميع البيانات المدخلة باللعة العربية ماعدا نوع المهمة باللغة الانكليزية تبدا من AM1 وحتى AM 25 مئلا مع امكانية تغييرها ان امكن

واكررررر شكري جزاكم الله كل خير وجعلها في رصيد حسناتكم...

فمن لنا غيركم في ساعة الشدة خفف الله عنكم

تم تعديل يناير 25, 2010 بواسطه amir501

[احمد فضيله]

عفوا يا اخي الشكر لله