textboxa girilen sayı farklı hücreye gitsin

[escape43]

arkadaşlar sorunum şu TOHUMLAMA SAYISI olan textboxa 1 rakamını girdiğimde J sütünuna 2 rakamını girdiğimde T sütununa girmesini ve böylece 10 tohumlama rakamı girdiğimde ayrı sütünlara işlemesini istiyorum yardımcı olabilirmisiniz

 

[escape43]

Arkadaşlar yardım edebilecek kimse yokmu ltfen

 

[Husgvarna]

2 olduğu zaman 1. karttaki bilgiler kalacaksa:

  Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
 
    Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
    Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text
    Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text
    Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text
    Sheets("Data").Range("G" & Bos_Satir).Value = TextBox6.Text
    Sheets("Data").Range("H" & Bos_Satir).Value = TextBox7.Text
   [COLOR="Red"] ss = TextBox9.Text
    If TextBox9 = "" Then ss = 1
    Sheets("Data").Cells(Bos_Satir, 9 + ((ss * 10) - 10)).Value = TextBox8.Text
    Sheets("Data").Cells(Bos_Satir, 10 + ((ss * 10) - 10)).Value = TextBox9.Text
    Sheets("Data").Cells(Bos_Satir, 11 + ((ss * 10) - 10)).Value = TextBox10.Text[/COLOR]
    
    Unload UserForm1
    
    Else
    MsgBox "Hayvanın Babası Yokmu? :)"
    End If