nadhir nadhir قام بنشر سبتمبر 2, 2021 مشاركة قام بنشر سبتمبر 2, 2021 سلام عليكم عندي استفسار حول كود ترحيل من كومبوبوكس يحتوي على اسماء الاشهر لملف عمل ؛ بحيث عند اختيار اسم الشهر ترحل البيانات للعمود الخاص بالشهر المحدد علما ان الاشهر تبدا من العمود H حتى العمود S مع جزيل الشكر مسبقا رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 2, 2021 مشاركة قام بنشر سبتمبر 2, 2021 يمكنك استعمال select case وهي تساوي مجموعة من شروط If لتحديد رقم العمود الذي يتم الترحيل إليه بالتوفيق رابط هذا التعليق شارك More sharing options...
nadhir nadhir قام بنشر سبتمبر 2, 2021 الكاتب مشاركة قام بنشر سبتمبر 2, 2021 شكرا استاذ ...ياريت مثال للترحيل لعمود او عمودين لاتضاح الفكرة ,,,شكرا مرة ثانية رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 2, 2021 مشاركة قام بنشر سبتمبر 2, 2021 السؤال نظري وعليه الإجابة نظرية ولم يتم إرفاق ملف من حضرتك فكيف يتم التطبيق او المثال ؟ 1 رابط هذا التعليق شارك More sharing options...
nadhir nadhir قام بنشر سبتمبر 7, 2021 الكاتب مشاركة قام بنشر سبتمبر 7, 2021 سلام عليكم عذرا للتاخر ملف العمل مرفق في صفحة حركة الاقساط اريد الترحيل قيمة الكومبوبوكس للشيت يعني اذا كان شهر اكتوبر ينقل لعمود شهر اكتوبر بالإضافة لكود البحث والتعديل ولك جزيل الشكر مسبقا progsocial.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 7, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 7, 2021 يمكنك استعمال هذا الكود في زر (قسط شهري جديد) Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long, col As String lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Select Case Me.ComboBox7 Case Is = "جانفي" col = "h" Case Is = "فيفري" col = "i" Case Is = "مارس" col = "j" Case Is = "افريل" col = "k" Case Is = "ماي" col = "l" Case Is = "جوان" col = "m" Case Is = "جويلية" col = "n" Case Is = "اوت" col = "o" Case Is = "سبتمبر" col = "p" Case Is = "اكتوبر" col = "q" Case Is = "نوفمبر" col = "r" Case Is = "ديسمبر" col = "s" End Select Sheets("حركة الأقساط").Range(col & n) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub وإذا تم استعمال رقم الشهر 1،2،3 بدلا من اسمه في القائمة سيتم اختصار الكود جدا Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Sheets("حركة الأقساط").cells(n, val(Me.ComboBox7)+7) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
nadhir nadhir قام بنشر سبتمبر 7, 2021 الكاتب مشاركة قام بنشر سبتمبر 7, 2021 شكرا جزيلا للمساعدة رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 13, 2021 مشاركة قام بنشر سبتمبر 13, 2021 الشكر لله موفقين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان