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

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


الردود الموصى بها

أخي الكريم آل سراج

أهلاً بك في المنتدى ونورت بين إخوانك

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

شكرا استاذ ياسر خليل والمنتدي منور بي اهلو

ربنا يخليك

 

الفواتير.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

تم تعديل بواسطه ال سراج
التعليق غير كامل
رابط هذا التعليق
شارك

أخى الفاضل

تم اصلاح بعض الأخطاء الصغيرة الموجودة فى الكود لكى يعمل بشكل صحيح

أما طبيعة المهمة التى يقوم بها الكود فأنت أدرى بها

أما بالنسبة لطلبك الثانى يرجى توضيحة جيدا

الفواتير1.rar

رابط هذا التعليق
شارك

شكرا استاذ رجب شاويش

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

انت علي مااظن تعرف الحل لمشكلتي

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

لك مني التقدير

 

رابط هذا التعليق
شارك

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

الي شيت  (استعلامات الفاتورة )enqury

رابط هذا التعليق
شارك

أخي الكريم

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

كما حاول أن ترفق الملف الذي قمت بالتعديل عليه

رابط هذا التعليق
شارك

حاضر اخي ابوالبراء

)

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

تم تعديل بواسطه ال سراج
لم تكن كافية
رابط هذا التعليق
شارك

  السلام عليكم

لقد حاولت في كود الاستاذ ابوالبراء لكن اظن ان هناك شي

خطاء

انا اريد ان انقل  5 خلايا من شيت 2  الي شيت 3

Untitled.png

فواتير.rar

تم تعديل بواسطه ال سراج
رابط هذا التعليق
شارك

أخي الكريم

حاول أن تذكر المسميات خلية ورقة عمل مصنف وهكذا

لنبدأ من جديد ..ما هي ورقة العمل التي تريد الترحيل منها وما هو النطاق المراد ترحيله وما هي الورقة التي سيتم الترحيل إليها وإلى أين سيتم الترحيل وما هو شكل البيانات بعد الترحيل ؟؟

مزيد من التفصيل يجعل الأعضاء يقدمون المساعدة في الموضوع

تقبل تحياتي

رابط هذا التعليق
شارك

اخي ابو البراء

الورقة هي الايصال واريد ان انقل البيانات منh8,g9,g10,i10,J18  

الي جدول الاستعلامات وهو في ورقة استعلام عن فاتورة من الخلية G6:K6

رابط هذا التعليق
شارك

13 دقائق مضت, ال سراج said:

اخي ابو البراء

الورقة هي الايصال واريد ان انقل البيانات منh8,g9,g10,i10,J18  

الي جدول الاستعلامات وهو في ورقة استعلام عن فاتورة من الخلية G6:K6

أخي العزيز آل سراج

هكذا يكون الشرح ..رغم البساطة الشديدة في الشرح ولكنه يؤدي الغرض ويوصل المطلوب بسهولة

أرجو أن يتخذ الأعضاء من المشاركة السابقة نموذج لشرح المطلوب فقد تم توضيح المطلوب في سطرين بدلاً من التطويل في الموضوع بدون داعي وبدون فائدة تذكر

إليك الكود التالي وإن شاء الله يفي بالغرض

Sub TransferUsingRangesArray()
    Dim myValues
    
    With Sheet2
        myValues = Array(.Range("I10"), .Range("H8"), .Range("G9"), .Range("G10"), .Range("J18"))
    End With
    
    With Sheet3
        .Range("G" & .Cells(1000, "G").End(xlUp).Row + 1).Resize(1, 5).Value = myValues
    End With
End Sub
  • Thanks 1
رابط هذا التعليق
شارك

انا في اشد الفرحة الان" الحمدلله"

مش عارف ادعيلك بي ايه

  بس روح ياعم ربنا مايوقفش قدامك حاجه

انا اعتزر لعدم تمكني من الانتظار استاذ ابوالبراء

واشكرك جدا جدا جدا وربنا يخليك لي احبابك

تقبل شكري وارجو ان تقبلني صديق في منتداكم الرائع  

  • Like 1
رابط هذا التعليق
شارك

أخي الفاضل آل سراج

أنت لست صديق ..طالما أنت في منتدى أوفيسنا فأنت أخ لنا جميعاً فهنا المنتدى أسرة واحدة وأنت الآن أحد أفراد هذه الأسرة

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

الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information