Skip to main content

AccessTr.neT


Aynı Değer Sorunu

ali.70
ali.70
2
189

Aynı Değer Sorunu

#1
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
Cevapla
#2
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.
Cevapla
#3
konuyu taşıyabilirsiniz...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task