كود الترحيل إلى عمود معين حسب كومبوبوكس

[nadhir nadhir]

سلام عليكم 

عندي استفسار حول كود ترحيل من كومبوبوكس يحتوي على اسماء الاشهر لملف عمل ؛ بحيث عند اختيار اسم الشهر ترحل البيانات للعمود الخاص بالشهر المحدد علما ان الاشهر تبدا من العمود H حتى العمود S

مع جزيل الشكر مسبقا 

[أ / محمد صالح]

يمكنك استعمال select case وهي تساوي مجموعة من شروط If

لتحديد رقم العمود الذي يتم الترحيل إليه

بالتوفيق

[nadhir nadhir]

شكرا استاذ ...ياريت مثال للترحيل لعمود او عمودين لاتضاح الفكرة ,,,شكرا مرة ثانية

 

[أ / محمد صالح]

السؤال نظري وعليه الإجابة نظرية

ولم يتم إرفاق ملف من حضرتك

فكيف يتم التطبيق او المثال ؟

[nadhir nadhir]

سلام عليكم 

عذرا للتاخر

ملف العمل مرفق

في صفحة حركة الاقساط اريد الترحيل قيمة الكومبوبوكس للشيت

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

ولك جزيل الشكر مسبقا

progsocial.rar

[أ / محمد صالح]

يمكنك استعمال هذا الكود في زر (قسط شهري جديد)

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

بالتوفيق 

[nadhir nadhir]

شكرا جزيلا للمساعدة

[أ / محمد صالح]

الشكر لله

موفقين