29/04/2012, 01:11
29/04/2012, 01:45
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
29/04/2012, 11:33
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 = ""29/04/2012, 18:41
Sayın Duayen 424 nolu hata veriyor(object required yazısı çıkıyor )
30/04/2012, 00:13
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...
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...
30/04/2012, 23:05
Teşekkür ederim sayın Duayen ellerinize sağlık