aynı isim girildiğinde hata

[Fuat Şirin]

arkadaşlar textbox1 ile b sütununa
veri giriyorum
bu verileri girerken aynı kod numarasında başka ürün varsa
hata versin
ve başka kod numarası girmeye zorlamasını istiyorum..

Saygılarımla

 

[Mahmut Kök]

Aşağıdaki şekilde yapabilirsiniz.

set varmi=range("b1:b65536").find(textBox1)
if varmi is nothing then

Cells(satırınız, "b") = textBox1 'ekleme yaptığınız satır...

else
msgbox "daha önce kaydedilmiş."
end if

 

[Fuat Şirin]

tşk

bunu tüm sütünda uygulamak istiyorum hocam
nasıl yaparım

 

[Mahmut Kök]

Tüm sütun derken ne kastediyorsunuz? Şu haliyle tüm B sütununu kapsıyor zaten. Başka sütunlara da mı uayarlamak istiyorsunuz?

 

[Fuat Şirin]

Bu kodları textbox a mı eklicem
bide
Cells(satırınız, "b") = textBox1 'ekleme yaptığınız satır
burda hata veriyor
textbox a eklediğim zaman

 

[Mahmut Kök]

Örnek dosya ekledim, bakabilirsiniz. Bu kodları, textbox1'deki veriyi B sütununda hangi satıra ekliyorsanız, ona uyarlayacaksınız. "Ekleme yaptığınız satır" diye belirttiğim satır, sizin B sütununa texbox1 deki verileri eklemek için kullandığınız satır olacak. Umarım faydalı olmuştur. İyi çalışmalar.

 

[Fuat Şirin]

Private Sub CommandButton1_Click()
sat = Range("C65536").End(3).Row

Set varmi = Range("C3:C65536").Find(TextBox1)
If varmi Is Nothing Then
Cells(sat + 1, "C") = TextBox1
Else
MsgBox "daha önce kaydedilmiş."
End If
Dim i As Integer
For i = 2 To 32000
If (Sayfa3.Cells(i, 2) = "") Then
Sayfa3.Cells(i, 2) = TextBox1.Text
Sayfa3.Cells(i, 3) = TextBox2.Text
Sayfa3.Cells(i, 4) = ComboBox1.Text
Sayfa3.Cells(i, 5) = Format(TextBox3, "#,##0.00")
Sayfa3.Cells(i, 6) = ComboBox2.Text
Sayfa3.Cells(i, 7) = ComboBox3.Text
MsgBox "Yeni Ürün Listeye Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
UserForm_Initialize
Exit Sub
End If
Next i
End Sub

HOCAM BU KODLARDA DÜZELTSEK
ŞİMDİ BUNDA
HATA VERİYOR AMA KAYDEDİYORDA
BEN KAYDETMEMESİNİ İSTİYORUM

 

[Mahmut Kök]

Bir deneyin, inşallah olmuştur. Eğer olmazsa, dosyanızı ekleyebilirsiniz.

Private Sub CommandButton1_Click()
Set varmi = Range("b3:b65536").Find(TextBox1, lookat:=xlWhole)
If varmi Is Nothing Then

Dim i As Integer
For i = 2 To 32000
If (Sayfa3.Cells(i, 2) = "") Then
Sayfa3.Cells(i, 2) = TextBox1.Text
Sayfa3.Cells(i, 3) = TextBox2.Text
Sayfa3.Cells(i, 4) = ComboBox1.Text
Sayfa3.Cells(i, 5) = Format(TextBox3, "#,##0.00")
Sayfa3.Cells(i, 6) = ComboBox2.Text
Sayfa3.Cells(i, 7) = ComboBox3.Text
MsgBox "Yeni Ürün Listeye Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
UserForm_Initialize
Exit Sub
End If
Next i
Else
MsgBox "daha önce kaydedilmiş."
End If
End Sub

 

[Fuat Şirin]

tşk hocam tam süper oldu

 

[emrexcel123]

sn parlemenn bu da alternatif olsun eğersay fonksiyonu >>
......................
bak = WorksheetFunction.CountIf(textbox1, Range("b:b"))
If bak <> 0 Then
MsgBox "GİRMİŞ OLDUĞUNUZ VERİ MEVCUT. KONTROL EDİNİZ...", vbExclamation, "VERİ"
Exit Sub
End If
......................
ii çalışmalar...