Userforma girilen veriyi sayfaya aktarma

[dursun667166]

merhaba
ekteki dosyada ana sayfada "düğme8" de user form ekledim.
sorunum bu userforma girdiğim veriyi "mazotgübre" sayfasına eklemeyi yapamadım.
bu konuda yardımınızı rica ediyorum

 

[Huseyinkis]

Kaydet butonun kodlarına ekteki kodları yapıştırıp denermisiniz.

Mazot gübre sayfası başlıkları ile userform başlıkları birbirine uymadığı için sırası ile yazmasını sağladım.

Private Sub CommandButton1_Click()
Set s1 = Sheets("MazotGubreToprak_1")

sonstr = s1.Cells(Rows.Count, 1).End(3).Row + 1

s1.Cells(sonstr, 1).Value = TextBox1
s1.Cells(sonstr, 2).Value = TextBox2
s1.Cells(sonstr, 3).Value = TextBox3
s1.Cells(sonstr, 4).Value = TextBox4
s1.Cells(sonstr, 5).Value = TextBox5

End Sub

 

[bedri41]

merhaba
ekteki dosyada ana sayfada "düğme8" de user form ekledim.
sorunum bu userforma girdiğim veriyi "mazotgübre" sayfasına eklemeyi yapamadım.
bu konuda yardımınızı rica ediyorum

Userform ile MazotGübre sayfasındaki başlıklar birbini tutmuyor. Siz kodlara bakarak sanırım gerekli düzenlemyi yapabilirsiniz.
Userform2 nin Kod bölümüne aşağıdaki kodları ekleyin

Private Sub CommandButton1_Click()
Dim Satır As Long
    
    Worksheets("MazotGubreToprak_1").Select
   
    Satır = Range("A65536").End(3).Row + 1
    Cells(Satır, "A") = TextBox1.Value
    Cells(Satır, "E") = TextBox2.Text
    Cells(Satır, "F") = TextBox4.Text
    Cells(Satır, "G") = TextBox5
End Sub

Kolay Gelsin

 

[dursun667166]

Teşekkürler

Emeğinize sağlık
çok teşekkürler çalışıyor.
Zahmet veriyorum ama açılan userformu kaydete bastığımda kapanması için bir kod lazım.

 

[bedri41]

Emeğinize sağlık
çok teşekkürler çalışıyor.
Zahmet veriyorum ama açılan userformu kaydete bastığımda kapanması için bir kod lazım.

Kaydet butonu kodlarının son satırına End Sub üzerine
Unload me

kolay gelsin

 

[dursun667166]

teşekkür ederim

Bedri41 çok teşekkür.
Allah razı olsun