اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ال سراج

عضو جديد 01
  • Content count

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

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

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

1 Neutral

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

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

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

  • Gender (Ar)
    ذكر
  • Job Title
    student
  • بلد الإقامة
    sudan
  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. ال سراج

    لدي مشكلة في ال vba

    انا في اشد الفرحة الان" الحمدلله" مش عارف ادعيلك بي ايه بس روح ياعم ربنا مايوقفش قدامك حاجه انا اعتزر لعدم تمكني من الانتظار استاذ ابوالبراء واشكرك جدا جدا جدا وربنا يخليك لي احبابك تقبل شكري وارجو ان تقبلني صديق في منتداكم الرائع
  3. ال سراج

    لدي مشكلة في ال vba

    اخي ابو البراء الورقة هي الايصال واريد ان انقل البيانات منh8,g9,g10,i10,J18 الي جدول الاستعلامات وهو في ورقة استعلام عن فاتورة من الخلية G6:K6
  4. ال سراج

    لدي مشكلة في ال vba

    السلام عليكم لقد حاولت في كود الاستاذ ابوالبراء لكن اظن ان هناك شي خطاء انا اريد ان انقل 5 خلايا من شيت 2 الي شيت 3 فواتير.rar
  5. ال سراج

    لدي مشكلة في ال vba

    اخوتي ارجو المساعدة في موضوعي
  6. ال سراج

    لدي مشكلة في ال vba

    حاضر اخي ابوالبراء ) 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
  7. ال سراج

    لدي مشكلة في ال vba

    السلام عليكم لقد عملت شوية تغيرات في الكود لكن ظهرت لي هذه المشكلة ارجو المساعدة ولكم مني جزيل الشكر والعرفان
  8. ال سراج

    لدي مشكلة في ال vba

    حضرتك انا اريد ان انقل بيانات الفاتورة (الايصال),رقم الايصال ,الاسم ,التلفون ,التاريخ ,والاجمالي الي شيت (استعلامات الفاتورة )enqury
  9. ال سراج

    لدي مشكلة في ال vba

    شكرا استاذ رجب شاويش بس لم يكتمل لي الحل ارجو المساعدة انت علي مااظن تعرف الحل لمشكلتي انا اريد انا انقل بيانات الفاتورة في الاستعلامات لك مني التقدير
  10. ال سراج

    لدي مشكلة في ال vba

    شكرا استاذ ياسر خليل والمنتدي منور بي اهلو ربنا يخليك الفواتير.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
×