لدي مشكلة في ال 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

تم تعديل يناير 26, 2016 بواسطه ال سراج
التعليق غير كامل

[رجب جاويش]

أخى الفاضل

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

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

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

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

تم تعديل يناير 28, 2016 بواسطه ال سراج
لم تكن كافية

[ال سراج]

اخوتي ارجو المساعدة

في موضوعي

[ال سراج]

  السلام عليكم

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

خطاء

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

فواتير.rar

تم تعديل يناير 31, 2016 بواسطه ال سراج

[ياسر خليل أبو البراء]

أخي الكريم

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

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

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

تقبل تحياتي

[ال سراج]

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

الورقة هي الايصال واريد ان انقل البيانات من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

[ال سراج]

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

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

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

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

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

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

[ياسر خليل أبو البراء]

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

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

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

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

تقبل تحياتي