AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Form da kaydet butonu

1 2 3 4
29/04/2012, 01:11

DUAYEN

Customers herhangi birşey yapmadım Personel sayfasında açtığın zaman hata uyarısı vermiyor.
29/04/2012, 01:45

fakbas11

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

DUAYEN

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

fakbas11

Sayın Duayen 424 nolu hata veriyor(object required yazısı çıkıyor )
30/04/2012, 00:13

DUAYEN

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...
MRP PROJECT KH7XCP.rar
30/04/2012, 23:05

fakbas11

Teşekkür ederim sayın Duayen ellerinize sağlık
1 2 3 4