تعديل الترحيل اتلف معادلة Vlookup

[هاني بدر]

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

الاساتذة الكرام

ارجو المساعدة في هذا الملف حيث ان معادلة

Vlookup

لم تعد تعمل

بعد ان عدلت ادراج البيانات باضافة الامر

. Value

لكل القيم المرحلة

وهذا التعديل كان مهما جدا لبناء المعادلات بناء على ارقام وليس نصوص

لذا ارجو استبدال معادلة

Vlookup

بمعادلة اخرى يمكنها قراة البيانات بمجرد تغيير الكود

رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=39343

بارك الله قيكم جميعا

[يحيى حسين]

السلام عليكم

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

[يوسف عطا]

الدالة تستخدم عدة معايير للبحث

رقم العمود فى جدول البيانات ورقم الصف وقيمة الخلية الدليل

وربما يكون مفيداً أن تزيد من مجال جدول البيانات وأن تضيف الأعمدة الجديدة التى تريد إدراجها بعد آخر عمود فى مجال جدول البيانات

ولو ترفق الملف قد يكون الحل بطريق أخرى

[هاني بدر]

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

اشكركم جميعا على التفاعل

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

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

Private Sub ADD_BTN_Click()

Dim CONFIRM

If TextBox1 = "" Or ComboBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Then

MsgBox "íÌÈ ÊÚÈÆÉ ßÇÝÉ ÇáíÞÆá", vbExclamation, "íÞÆá ÛíÑ ããÊáÆÉ"

Else

CONFIRM = MsgBox(":áÞÏ ØáÈÊ ÊÓÌíá ÇáÈíÇäÇÊ ÇáÊÇáíÉ" & vbNewLine & "" & vbNewLine & "Name: " & TextBox1 _

& vbNewLine & "" & vbNewLine & "Room No: " & ComboBox2 & vbNewLine & "" & vbNewLine & "Room Type: " & TextBox3 & vbNewLine & "" & vbNewLine & "Arrival: " & TextBox4 & vbNewLine & "" & vbNewLine & "Departure: " & TextBox5 & vbNewLine & "" _

& vbNewLine & "Ýåá ÊÆÏ ÇáåÓÊãÑÇÑ¿", vbYesNo + vbQuestion, "ÊãßíÏ ÇáåÏÎÇá")

If CONFIRM = vbYes Then

With Columns(1).Rows(65536).End(xlUp)

.Offset(1, 0) = TextBox6.Value

.Offset(1, 1) = TextBox1.Value

.Offset(1, 3) = TextBox3.Value

.Offset(1, 4) = ComboBox2.Value

.Offset(1, 5) = TextBox4.Value

.Offset(1, 6) = TextBox5.Value

.Offset(1, 7) = ComboBox3.Value

.Offset(1, 9) = TextBox7.Value

.Offset(1, 10) = TextBox8.Value

.Offset(1, 11) = TextBox9.Value

.Offset(1, 12) = TextBox10.Value

.Offset(1, 13) = TextBox11.Value

.Offset(1, 14) = TextBox12.Value

.Offset(1, 15) = TextBox13.Value

.Offset(1, 16) = TextBox14.Value

End With

Sort

Update

Me.Hide

MsgBox "ÊãÊ åÖÇÝÉ ÌãíÚ ÇáÈíÇäÇÊ ÈäÌÇí", vbInformation, "ÊãÊ ÇáåÖÇÝÉ"

End If

End If

End Sub

هذا هو كود الترحيل والحروف الغير مقرؤة لانها بالعربي ولن تؤثر في صلب الموضوع

===========================================================================

Private Sub ComboBox5_Change()

On Error Resume Next

Dim RNG As Range

Set RNG = Range("Data_Hany")

If ComboBox1 <> "Select Name" And Application.WorksheetFunction.CountIf(RNG, ComboBox1) = 0 Then

MsgBox "!åÐå ÇáÞÇÆãÉ áåÎÊíÇÑ ÇáåÓã ÝÞØ .. ááÊÚÏíá íãßäß åÓÊÎÏÇã ãÑÈÚ ÇáäÕ ÇáÎÇÕ ÈÇáåÓã", vbExclamation, "ÚÝÜÆÇÐ"

ComboBox1 = "Select Name"

ComboBox1.DropDown

Exit Sub

End If

TextBox6 = ComboBox5

TextBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0)

ComboBox2 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 5, 0)

TextBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 4, 0)

TextBox4 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 6, 0)

TextBox4 = Format(TextBox4, "mm-dd-yy;@")

TextBox5 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 7, 0)

TextBox5 = Format(TextBox5, "mm-dd-yy;@")

ComboBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 8, 0)

TextBox7 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 10, 0)

TextBox8 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 11, 0)

TextBox9 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 12, 0)

TextBox10 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 13, 0)

TextBox11 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 14, 0)

TextBox12 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 15, 0)

TextBox13 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 16, 0)

TextBox14 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 17, 0)

ComboBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0)

End Sub

وهذا كود تغيرر التكست بوكس والذي من المفترض قراءة باقي البيانات داخل الفورم بناء على التغيير فيه

ارجو ان اكون قد اوصلت فكرتي

واذا كان بالامكان الاستعاضة عن المعادلات الشرطية باكواد

vba

فسيكون هذا بالفعل انجاز

اشكر لكم مشاركتكم ووفقكم الله جميعاً

[هاني بدر]

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

قمت بحذف المعادلات وتم رفع الملف

باسوورد الدخول هو

01020103

برنامج حجوزات الغرف.rar