İki tane TextBox tan bir excel hücresine veri göndermek

[ferhatgurbuz]

Yani iki tane Textboktaki veriyi bir excel hücresinde toplamak

Aylık derece 1
aylık kadae 2

Excel hücresinede 1/2 şeklinde olabilir mi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    [A1].NumberFormat = "@"
    [A1] = TextBox1 & "/" & TextBox2
End Sub

 

[ferhatgurbuz]

Ben yapamadım arkadaşlar. Dosya ekte

kusura bakmayın. Basit birşey zannetmiştim ama kodlar çok karışık. Benim yapacağım iş değil. O yüzden sizlerden rica ediyorum.


MAAŞ BİLGİLERİ bölümünde Kişisel Bordro adlı Userform üzerinde personel no girerek sorgu çalıştırdığım zaman TextBox6 ve TextBox7 ye gelen bilgileri Kişisel bordro adlı sayfada E17 hücresine aktarmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

YAZDIR butonunuza ait kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton3_Click()
    Sheets("Kisisel").Select
    [e12] = TextBox1.Value
    [e13] = TextBox2.Value
    [e14] = TextBox3.Value
    [e15] = TextBox4.Value
    [e16] = TextBox5.Value
    [e17].NumberFormat = "@"
    [e17] = TextBox6 & "/" & TextBox7
    [e18] = TextBox8.Value
    [e19] = TextBox9.Value
    [e20] = TextBox10.Value
    [e21] = TextBox11.Value
    [e22] = TextBox12.Value
    [e23] = TextBox13.Value
    [e24] = TextBox14.Value
    [e25] = TextBox15.Value
     [ı9] = TextBox30.Value
    [ı10] = TextBox31.Value
    [ı11] = TextBox32.Value
    [ı12] = TextBox33.Value
    [ı13] = TextBox34.Value
    [ı14] = TextBox35.Value
    [ı15] = TextBox36.Value
    [ı16] = TextBox37.Value
    [ı17] = TextBox38.Value
    [ı18] = TextBox39.Value
    [ı19] = TextBox40.Value
    [ı20] = TextBox41.Value
    [ı21] = TextBox42.Value
    [ı22] = TextBox43.Value
    [ı23] = TextBox44.Value
    [ı24] = TextBox45.Value
    [ı28] = TextBox67.Value
    [m9] = TextBox50.Value
    [m10] = TextBox51.Value
    [m11] = TextBox52.Value
    [m12] = TextBox53.Value
    [M13] = TextBox54.Value
    [m14] = TextBox55.Value
    [m15] = TextBox56.Value
    [m16] = TextBox57.Value
    [m17] = TextBox58.Value
    [m18] = TextBox59.Value
    [m19] = TextBox60.Value
    [m20] = TextBox61.Value
    [m21] = TextBox62.Value
    ActiveWindow.SelectedSheets.PrintOut
End Sub

 

[ferhatgurbuz]

Teşekkür ederim Ellerinize sağlık. Eğer fazla olmadıysam bir sorun daha var onun nedenini sorabilirmiyim.

Daha önce çalışan kodlar şimdi çalışmıyor. Kişisel bordro adlı userform üzerinde sol alt köşede sıralama kodları vardı şimdi çalışmıyor.