Çözüldü userformdan satırlara veri aktarma

[hüseyin551]

userform üzerinde bulunan verileri dökümana aktarmak istiyorum.
textbox3 ü döküman sayfasında d10
textbox4 ü döküman sayfasında f10
textbox5 i döküman sayfasında g10
textbox6 döküman sayfasında j10
textbox7 döküman sayfasında o10
textbox8 döküman sayfasında p10
textbox9 döküman sayfasında q10
textbox10 döküman sayfasında r10 aktarmak istiyorum.
müşteri sayfalarına aktarırkende bu şekilde olmasını istiyorum.
ilgileriniz için teşekkür ederiml

 

[ÖmerBey]

Merhaba,
Dosyanızdaki aşağıdaki kodları daha aşağıdakilerle değiştiriniz.

    s1.Cells(son + 1, 4).Value = Format(TextBox3.Value, "0")
    s1.Cells(son + 1, 5).Value = Format(TextBox4.Value, "0")
    s1.Cells(son + 1, 6).Value = Format(TextBox5.Value, "0")
    s1.Cells(son + 1, 7).Value = Format(TextBox6.Value, "0")
    s1.Cells(son + 1, 8).Value = TextBox7.Text
    s1.Cells(son + 1, 9).Value = Format(TextBox8.Value, "0")
    s1.Cells(son + 1, 10).Value = Format(TextBox9.Value, "0")
    s1.Cells(son + 1, 11).Value = Format(TextBox10.Value, "0")

    s1.Cells(son + 1, "D").Value = Format(TextBox3.Value, "0")
    s1.Cells(son + 1, "F").Value = Format(TextBox4.Value, "0")
    s1.Cells(son + 1, "G").Value = Format(TextBox5.Value, "0")
    s1.Cells(son + 1, "J").Value = Format(TextBox6.Value, "0")
    s1.Cells(son + 1, "O").Value = TextBox7.Text
    s1.Cells(son + 1, "P").Value = Format(TextBox8.Value, "0")
    s1.Cells(son + 1, "Q").Value = Format(TextBox9.Value, "0")
    s1.Cells(son + 1, "R").Value = Format(TextBox10.Value, "0")

 

[hüseyin551]

Merhaba,
Dosyanızdaki aşağıdaki kodları daha aşağıdakilerle değiştiriniz.

    s1.Cells(son + 1, 4).Value = Format(TextBox3.Value, "0")
    s1.Cells(son + 1, 5).Value = Format(TextBox4.Value, "0")
    s1.Cells(son + 1, 6).Value = Format(TextBox5.Value, "0")
    s1.Cells(son + 1, 7).Value = Format(TextBox6.Value, "0")
    s1.Cells(son + 1, 8).Value = TextBox7.Text
    s1.Cells(son + 1, 9).Value = Format(TextBox8.Value, "0")
    s1.Cells(son + 1, 10).Value = Format(TextBox9.Value, "0")
    s1.Cells(son + 1, 11).Value = Format(TextBox10.Value, "0")

    s1.Cells(son + 1, "D").Value = Format(TextBox3.Value, "0")
    s1.Cells(son + 1, "F").Value = Format(TextBox4.Value, "0")
    s1.Cells(son + 1, "G").Value = Format(TextBox5.Value, "0")
    s1.Cells(son + 1, "J").Value = Format(TextBox6.Value, "0")
    s1.Cells(son + 1, "O").Value = TextBox7.Text
    s1.Cells(son + 1, "P").Value = Format(TextBox8.Value, "0")
    s1.Cells(son + 1, "Q").Value = Format(TextBox9.Value, "0")
    s1.Cells(son + 1, "R").Value = Format(TextBox10.Value, "0")

teşekkür ederim.emeğinize sağlık