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

ال سراج

عضو جديد 01
  • Posts

    15
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

عن العضو ال سراج

  • تاريخ الميلاد 08 فبر, 1991

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    student
  • البلد
    المملكة العربية السعودية

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم اريد ان انتقل اعمدة من شيت 3 الي شيت 5 الاعمدة المراد نقلها من شيت 3 هي (G) , (H),(K) الي شيت 5 في الجدول من ("E:G") مع مسح البيانات من شيت 3 لقد استعملت هذا الكود لكن لم يعطيني فائدة Sub siraj()) Dim lr As Integer Sheets(3).Activate lr = [G1000].End(xlUp).Row Sheets(3).Range("G7:K" & lr).Copy Sheets(5).Activate Range("E" & [E100000].End(xlUp).Row + 1).Select Selection.PasteSpecial xlPasteValues Range("G6").Select Range("E7:G10000").ClearContents MsgBox ("تم الترحيل بنجاح ") End Sub( فواتير.rar
  2. انا في اشد الفرحة الان" الحمدلله" مش عارف ادعيلك بي ايه بس روح ياعم ربنا مايوقفش قدامك حاجه انا اعتزر لعدم تمكني من الانتظار استاذ ابوالبراء واشكرك جدا جدا جدا وربنا يخليك لي احبابك تقبل شكري وارجو ان تقبلني صديق في منتداكم الرائع
  3. اخي ابو البراء الورقة هي الايصال واريد ان انقل البيانات منh8,g9,g10,i10,J18 الي جدول الاستعلامات وهو في ورقة استعلام عن فاتورة من الخلية G6:K6
  4. السلام عليكم لقد حاولت في كود الاستاذ ابوالبراء لكن اظن ان هناك شي خطاء انا اريد ان انقل 5 خلايا من شيت 2 الي شيت 3 فواتير.rar
  5. حاضر اخي ابوالبراء ) Private Sub CommandButton1_Click() Dim رقم_الايصال As Integer, الاسم As String, التلفون As Integer, التاريخ As Date, الاجمالي As Integer Worksheets("الايصال").Select رقم_الايصال = Range("H8") الاسم = Range("G9") التلفون = Range("G10") التاريخ = Range("I10") الاجمالي = Range("I18") Worksheets("الاستعلام_عن_الفاتورة").Select If Worksheets("الاستعلام_عن_الفاتورة").Range("G7").Offset(1, 0) <> "" Then Worksheets("الاستعلام_عن_الفاتورة").Range("G7").End(xlDown).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = تاريخ_الفاتورة ActiveCell.Offset(1, 0).Select ActiveCell.Value = رقم_الفاتورة ActiveCell.Offset(1, 0).Select ActiveCell.Value = اسم_العميل ActiveCell.Offset(1, 0).Select ActiveCell.Value = رقم_التلفون ActiveCell.Offset(1, 0).Select ActiveCell.Value = المبلغ_المدفوع Worksheets("الايصال").Select Worksheets("الايصال").Range("H8").Select End Sub ( كما شرحت مسباقا لحضراتكم اني اريد ان انقل بيانات عدد من السيل في شيت 2 مختلفا اماكنها الي جدول في شيت 3 ولكم مني جزيل الشكر فواتير.rar
  6. السلام عليكم لقد عملت شوية تغيرات في الكود لكن ظهرت لي هذه المشكلة ارجو المساعدة ولكم مني جزيل الشكر والعرفان
  7. حضرتك انا اريد ان انقل بيانات الفاتورة (الايصال),رقم الايصال ,الاسم ,التلفون ,التاريخ ,والاجمالي الي شيت (استعلامات الفاتورة )enqury
  8. شكرا استاذ رجب شاويش بس لم يكتمل لي الحل ارجو المساعدة انت علي مااظن تعرف الحل لمشكلتي انا اريد انا انقل بيانات الفاتورة في الاستعلامات لك مني التقدير
  9. شكرا استاذ ياسر خليل والمنتدي منور بي اهلو ربنا يخليك الفواتير.rar الاستاذه الاجلاء انا بي بساطة عاوز اعمل icon للابديت من صفحة الفاتورة الي صفحة الاستعلامات ومن صفحة الاستعلامات الي الحسابات Private Sub CommandButton1_Click() dim lr as string lr=("رقم الايصال ,الاسم,التلفون ,التاريخ,الاجمالي") worksheet("recept").select رقم الايصال=range("H8") الاسم=range("G9") التلفون=range("G10") التاريخ=range("I10") الاجمالي=range("I18") worksheets("enqury").select worksheets("enqury").range("G7").offset(1,0)<>"" then worksheets("enqury").range("G7").end(xldown).select End if activecell.offset(1,0).select activecell.value=("تاريخ الفاتورة") activecell.offset(1,0).select activecell.value=("رقم الفاتورة") activecell.offset(1,0).select activecell.value=("اسم العميل") activecell.offset(1,0).select activecell.value=("رقم التلفون") activecell.offset(1,0).select activecell.value=("المبلغ المدفوع") worksheets("recept").select worksheets("recept").reange("H8").select End sub
×
×
  • اضف...

Important Information