AccessTr.neT

Private Sub CommandButton1_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("MÜŞTERİLER").Range("A:A")) + 1
If sonsatır = 2 Then

Worksheets("MÜŞTERİLER").Cells(sonsatır, 1) = 1
Worksheets("MÜŞTERİLER").Cells(sonsatır, 2) = TextBox2.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 3) = TextBox3.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 4) = ComboBox1.value
Else
Worksheets("MÜŞTERİLER").Cells(sonsatır, 1) = Worksheets("MÜŞTERİLER").Cells(sonsatır - 1, 1) + 1
Worksheets("MÜŞTERİLER").Cells(sonsatır, 2) = TextBox2.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 3) = TextBox3.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 4) = ComboBox1.value
End If
If Not TextBox3.Text = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = TextBox3.Text Then
MsgBox "BU İSİMLİ SAYFA MEVCUT..... !"
Exit Sub
End If
Next

Sheets("MÜŞVERİ").Visible = True
Sheets("MÜŞVERİ").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = TextBox3
Sheets("ANASAYFA").Activate

End If

End Sub

merhaba accesstr.net ailesi..
yukarıda görmüş olduğunuz kod kaydet butonunun kod içeriğidir
Worksheets("MÜŞTERİLER").Cells(sonsatır, 3) = TextBox3.value bo kod müşteriler sayfasının C sine alt alta müşteri isim soyisim ekliyor
ve o isme göre yeni bir sayfa açıyor aynı isimde müşteri kaydedilirse sayfa açtırmama kodunu hallettim ama müşteriler kısmına aynı isimli müşteriyi eklemeyi çözemedim . napabilirim
cevaplarınız için şimdiden teşekküler

lütfen örnek dosya eklemeyi alışkanlık haline getirin.
her defasında yapısını bilmediğimiz bir dosya için örnek dosya oluşturmakla zaman kaybetmeyelim.
iyi çalışmalar

---

find komutuyla ilgili bir araştırma işinize yarayabilir.

konuyu taşıyabilirsiniz...