محمود الحربي

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

السلام عليكم ورحمة الله وبركاته لدي مشكلة اني اطبق عملية VLOOKUP على خليه فيها صيغة ولا تقبل معاي =VLOOKUP(C2;$Q$5:$R$16;2;0) C2 عبارة عن A2&B2 .. ماهو الحل ؟ .. مرفق مثال رحم الله والديكم TEST.xlsx

احتاج دالة مثل VLOOKUP بس هنا الكود لدي ياخذ رقم متسلسل يعني ما يعطيني اسم الادارة بالتفصيل : احتاج اذا الكود يحتوي على EAS يعطيني في الخلية B2 ( الادارة المالية ) مثلاً codeid.xlsx

للرفع

السلام عليكم ورحمة الله وبركاته لدي دالة تعمل على فتح الملف من جهاز الكمبيوتر لاكن عند استخدام قوقل شيت لاتعمل هل لها بديل بحيث اسم الملف تاخذه من الخلية المحددة المجلد موجود على نفس الكمبيوتر وليس على الدرايف اسم الملف موجود هنا في الخلية F10 =HYPERLINK("C:\Users\MAHMOUD\Desktop\1441\"&F10&".pdf";"فتح المعاملة") تقبلو تحياتي

اسعدك الله اخي ( لاكن هذا الجمل متغيرة وليس ثابته ) و الدالة الي وضعتها ثابته بحث عن هذه الجملة ونسخها في الخلية الذي اريدة اي جملة تاتي في " " تاخذ في الخلية

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير لدي بيانات استخرجها من sql واحتاج نقله مفصل في عاموديين منفصله واحتاج دالة تقوم بذلك كل ما احتاجة مفصل في الملف وهو نقل ( لا يوجد ترخيص ) في عامود و المبلغ 3000 في عامود {"ViolationDescription":"لا يوجد ترخيص","SubjectNumber":"مادة (5-5)","ReferenceSystemPaper":"التراخيص .","ViolationPunishment":"3000","ViolationRepitetion":1,"$$hashKey":"object:6995"} رحم الله والدينكم وجزاكم الله حير بياناتي.xlsx

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

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

السلام عليكم ورحمة الله وبركاته اريد استرجاع بيانات في ملف اكسل تالف هل احد يقدر يساعدني الملف مرفق رحم الله والدينا والديكم 123.rar

الف شكر م. مجدي يونس لاكن اذا وضعت Textbox اضيف فيه اسم الملف وزر فتح كيف يكون الكود

رحم الله والدينا والديكم

رحم الله والدينا والديكم

لدى مشكلة في خطا مرفق لكم الخطأ اتمني من الله ثم من اساتذتنا المساعدة Private Sub ButtonSerach_Click() Dim tb1 As Boolean, ib As Boolean Dim R As Long, RR As Long Dim C As Integer Dim MyFind, MySrch, MyVelue '''''''''''''''''''''' Me.ListFind.Clear If Len(Trim(Me.TextFind)) = 0 Then Exit Sub ''''''''''''''''''''' C = Me.BoxFind.ListIndex + 1 tb1 = CBool(Me.CheckFindDate.Value = True) If tb1 Then If Not IsDate(Me.TextFind) Then kh_SetDate Me.TextFind MyFind = CDbl(CDate(Me.TextFind)) Else MyFind = Me.TextFind.Value End If ''''''''''''''''''''''' With MyRngdate.Cells(2, Ar(C)) For R = 1 To ContRow If Len(Trim(.Cells(R, 1))) Then If tb1 Then MySrch = .Cells(R, 1).Value2 Else MySrch = .Cells(R, 1).Value ib = IIf(Me.CheckFind.Value, InStr(1, MySrch, MyFind, vbTextCompare) = 1, InStr(1, MySrch, MyFind, vbTextCompare)) If ib Then MyVelue = .Cells(R, 1).Value If IsDate(MyVelue) Then MyVelue = Format(MyVelue, DtF) Me.ListFind.AddItem MyVelue Me.ListFind.List(RR, 1) = R RR = RR + 1 End If End If Next End With Me.LblFindCount = Me.ListFind.ListCount If RR = 0 Then MsgBox " لا توجد نتائج لبحثك هذا ", mBox, "تنبيه" ''''''''''''''''''''''''' End Sub

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