وارد کردن اطلاعات تکس باکس فرم به شیت

[Hesam2]

سلام


میخوام با وارد کردن روز در تکس باکس اولی و بعدش با انتخاب یکی از آیتمهای کمبوباکس و عددی که در تکس باکس مقابلش وارد میکنم
در نهایت با زدن دکمه ok اطلاعات ثبت شده به شیت و ستونی که به عنوان (روز ماه) و ردیف هایی که از طریق کمبوباکس مشخص کردیم انتقال داده بشه
البته تا یه جایی از کار ور که بلد بودم انجام دادم


با تشکر

[Nima]

دوست عزیز
برای اینکار تنها به یک کمبو باکس و دوتکست باکس احتیاج دارید و میتونید از کد زیر استفاده کنید

Private Sub CommandButton1_Click()


    For Each Item In ThisWorkbook.Sheets(1).Range("R2:R14")
        For i = 1 To 14
            If ComboBox1.Value = Item.Offset(0, 0) Then
                Item.Offset(0, 14 + Val(TextBox1.Text)).Value = TextBox2.Text
            End If
        Next i
    Next Item
    
End Sub