+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form da kaydet butonu (/konu-form-da-kaydet-butonu.html)
Cvp: Form da kaydet butonu - DUAYEN - 29/04/2012
Customers herhangi birşey yapmadım Personel sayfasında açtığın zaman hata uyarısı vermiyor.
Cvp: Form da kaydet butonu - fakbas11 - 29/04/2012
sayın Duayen personel Excel sayfamdaki personel arayüzünü açtığımda yazdığım verileri normalde personel Excel sheetine yazması gerekiyor fakat hata veriyor.tekrar tekrar denedim olmuyor
Cvp: Form da kaydet butonu - DUAYEN - 29/04/2012
Bu kodu denermisiniz.
Kod:
Private Sub CommandButton2_Click()
'KAYDET
If TextBox2.Text <> "" Then
If TextBox1.Text <> "" Then
For i = 2 To Sheets("PERSONNEL").Range("A65536").End(xlUp).Row
If UCase(Sheets("PERSONNEL").Range("d" & i).Value) = UCase(TextBox1.Text) And _
UCase(Sheets("PERSONNEL").Range("f" & i).Value) = UCase(TextBox2.Text) Then
MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "DUAYEN"
Exit Sub
End If
Next i
With Sheets("PERSONNEL")
Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
.Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(.Range("A:A")) + 1
.Range("A" & Bos_Satir).Value = TextBox1.Text
.Range("B" & Bos_Satir).Value = TextBox2.Text
.Range("C" & Bos_Satir).Value = TextBox3.Text
.Range("D" & Bos_Satir).Value = TextBox4.Text
.Range("E" & Bos_Satir).Value = TextBox5.Text
End With
Else
MsgBox "DUAYEN-DYN"
End If
Else
MsgBox "DUAYEN-DYN"
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""Cvp: Form da kaydet butonu - fakbas11 - 29/04/2012
Sayın Duayen 424 nolu hata veriyor(object required yazısı çıkıyor )
Cvp: Form da kaydet butonu - DUAYEN - 30/04/2012
Sn;Fakbas11
Bende hiç bir hata vermedi sizde nasıl verdi anlamıyorum verdiğim kod nereye yazıyorsun bilmiyorum ama bendeki örneği ekliyorum.
şimdi bu sırayı takip ederek yaparsan çözüme varmış oluruz.
İlk önce Excel sayfasında HOMEPAGE sayfasına geleceksin sonra,Personnel buttona tıklıyacaksın,sonrada açılan UerForm bilgileri yazdıktan sonra Save button tıkladıktan sonra Excel Personnel sayfasına verilerin kaydetecek ve en son bendeki örneği ekliyorum.
DUAYEN...
Cvp: Form da kaydet butonu - fakbas11 - 30/04/2012
Teşekkür ederim sayın Duayen ellerinize sağlık