Makro ile Veri Kayıt

[ubay06]

Merhaba

Çalıştığım excel dosyasına user form ekledim. Oluşturduğum textbox yanına kaydet butonu koydum. Textboxa girdiğim veriyi sheet1 ve sheet2 de A1 sütunlarına yazmasını istiyorum. Eğer textbox boş kalırsa Lütfen veri girin şeklinde uyarı verebilirmi.

Yardımlarınızı rica ederim.

 

[AdemCan]

Merhaba,
Forumdaki örnekler içinde bu ve benzeri kayıtlar için oldukça örnek bulunmakta.

Örnek olarak şöyle yazdım ben.
Çalışmanız için Sayfa1 ve Sayfa2 olan kısımları değiştiriniz.

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("Sayfa1").Range("A1").Value = TextBox1.Value
Sheets("Sayfa2").Range("A1").Value = TextBox1.Value
Else
MsgBox "Lütfen veri girin!", vbInformation, "Bilgi"
End If
End Sub

 

[ubay06]

Çok teşekkür ederim.

 

[AdemCan]

Rica ederim, iyi çalışmalar.