#13
Customers herhangi birşey yapmadım Personel sayfasında açtığın zaman hata uyarısı vermiyor.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Form da kaydet butonu
#13
#14
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
#15
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 = ""
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
#17
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...
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Konuyu Okuyanlar: 1 Ziyaretçi
