+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Aynı Değer Sorunu (/konu-ayni-deger-sorunu.html)
Aynı Değer Sorunu - ali.70 - 20/03/2024
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
RE: Aynı Değer Sorunu - berduş - 20/03/2024
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.
RE: Aynı Değer Sorunu - ali.70 - 21/03/2024
konuyu taşıyabilirsiniz...