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

[midoboha]

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

x = Range("a6" : "a13").End(xltoleft).column
Range("a6" & x + 1).Offset(0, 1).Value = TextBox2.Value
Range("a7" & x + 1).Offset(0, 3).Value = TextBox3.Value
Range("a8" & x + 1).Offset(0, 5).Value = TextBox6.Value

 

[midoboha]

ملحوظة ان الترحيل ناحية اليسار يبدا من الخلية  a6    to    a13

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

جرب تغيير السطر الأول بهذا السطر

x = Cells(6, Columns.Count).End(xlToLeft).Column

 

[midoboha]

شكرا على الاهتمام

ولكن لم يعمل

في المرفقات تجربتى لو تساعدنى بها أكون شاكر

al.rar

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

جرب الكود التالي وإن كنت لا أدري شكل النتائج المتوقعة

Private Sub CommandButton1_Click()
    With ورقة1
        .Range("d10") = TextBox9.Value
        .Range("f10") = TextBox10.Value
        .Range("d13") = TextBox1.Value
        .Range("d14") = TextBox2.Value
        .Range("d15") = TextBox3.Value
        .Range("d16") = TextBox4.Value
        .Range("d17") = TextBox5.Value
        .Range("d18") = TextBox6.Value
        .Range("d19") = TextBox7.Value
        .Range("d20") = TextBox8.Value
        .Activate
        .PrintOut From:=1, To:=1, Copies:=2, Collate:=True, IgnorePrintAreas:=False
    End With
    Sheets("يناير").Activate
    x = Cells(6, 10).End(xlToLeft).Column

    Cells(6, x + 1).Offset(0, 1).Value = TextBox1.Value
    Cells(7, x + 1).Offset(0, 3).Value = TextBox2.Value
    Cells(8, x + 1).Offset(0, 5).Value = TextBox3.Value
    Cells(9, x + 1).Offset(0, 7).Value = TextBox4.Value

    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
End Sub

إذا لم يؤدي الكود الغرض يرجى إرفاق الملف مرة أخرى وبه شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى

تقبل تحياتي

[midoboha]

شكرا سيدى الكريم على مساعدتك

وارجو حذف مشاراكاتى لهذا الموضوع المتكررة

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

الحمد لله أن تم المطلوب على خير

الموضوع الآخر المكرر تم حذفه ..

 

تقبل تحياتي

[midoboha]

شكرا لك