Userform veri girişi

[artdzy]

Merhabalar

İş ile ilgili bir sözlük oluşturmaktayım.
Fakat kullananlarında buraya veri girişi yapabilmesi için userform içine veri girişi butonu koyarak veri girmelerini saglamak istiyorum.

Formu oluşturdum. Userform içindeki veri girişi butonuna bağladım.
Veri girişi ekranı doldurup gönderildiğinde, "veri" (sheet)sekmesi altında verilerin eklenmesini istemekteyim.

Yardımcı olabilirseniz sevinirim.
Şuana kadar yaptığım dosyayı ekliyorum.

 

[artdzy]

Merhabalar,
Yardımınızı rica etmekteyim.

 

[artdzy]

Son kez güncelliyorum.
Yardımınızı rica etmekteyim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Dim V As Worksheet, sat As Long
Set V = Sheets("veri")
If WorksheetFunction.CountIf(V.Range("F:F"), TextBox1.Value) > 0 Then
    MsgBox "Bu değer zaten kayıtlı", vbCritical
Else
    sat = V.Cells(Rows.Count, "F").End(3).Row + 1
    V.Cells(sat, "F") = TextBox1.Value
    V.Cells(sat, "G") = TextBox2.Value
    V.Cells(sat, "H") = TextBox3.Value
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

 

[artdzy]

Mer

Merhaba,
Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Dim V As Worksheet, sat As Long
Set V = Sheets("veri")
If WorksheetFunction.CountIf(V.Range("F:F"), TextBox1.Value) > 0 Then
    MsgBox "Bu değer zaten kayıtlı", vbCritical
Else
    sat = V.Cells(Rows.Count, "F").End(3).Row + 1
    V.Cells(sat, "F") = TextBox1.Value
    V.Cells(sat, "G") = TextBox2.Value
    V.Cells(sat, "H") = TextBox3.Value
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

Merhabalar
Çok teşekkürler,
Ben altına birde sadece büyük harf girilebilmesi için koduda ekledim. Fakat bunun dışında tükçe olan ş i ü ğ ç ö harflerini otomatik olarak I O C S G harflerine çevirebilmemiz mümkün müdür?
Olabildigince kısıt yaratmak istiyorum.

 

[artdzy]

Mer

Merhabalar
Çok teşekkürler,
Ben altına birde sadece büyük harf girilebilmesi için koduda ekledim. Fakat bunun dışında tükçe olan ş i ü ğ ç ö harflerini otomatik olarak I O C S G harflerine çevirebilmemiz mümkün müdür?
Olabildigince kısıt yaratmak istiyorum.

Çözüldü teşekkürler,

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...