kusursuz kayıt için tamamlayalım

[okyanus]

selamlar
kusursuz bir kayıt oluşturmaya çalışıyorum
( tabiki sizin yardımlarınızla )
aşağıdaki kodlarla kaydımı yapıyorum fakat
textbox26 daki ürün kodu ( f ) sutununda varsa kaydetmesin uyarsın istiyorum
eksiğimi tamamlayabilirmisiniz ben yapamadım

'KAYDET
Private Sub CommandButton1_Click()
For X = 21 To 36
If Controls("TextBox" & X).Value = Empty Then
MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "DİKKAT !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X
On Error Resume Next

Set s1 = Sheets("sayfa1")
sonsat = WorksheetFunction.CountA(s1.[A2:A65536]) + 2
s1.Cells(sonsat, 1) = TextBox21.Value
s1.Cells(sonsat, 2) = TextBox22.Value
s1.Cells(sonsat, 3) = TextBox23.Value
s1.Cells(sonsat, 4) = TextBox24.Value
s1.Cells(sonsat, 5) = TextBox25.Value
s1.Cells(sonsat, 6) = TextBox26.Value
s1.Cells(sonsat, 7) = TextBox27.Value
s1.Cells(sonsat, 8) = TextBox28.Value
s1.Cells(sonsat, 9) = TextBox29.Value
s1.Cells(sonsat, 10) = TextBox30.Value
s1.Cells(sonsat, 11) = TextBox31.Value
s1.Cells(sonsat, 12) = TextBox32.Value
s1.Cells(sonsat, 13) = TextBox33.Value
s1.Cells(sonsat, 14) = TextBox34.Value
s1.Cells(sonsat, 15) = TextBox35.Value
s1.Cells(sonsat, 20) = TextBox36.Value
MsgBox "VERİLER KAYDEDİLDİ"
End Sub

 

[mnz]

sub sartli_kayit()
for mnz=1 to 100
if TextBox26.Value = s1.cells(mnz,6)
msgbox " ürün kodu mevcut"
else
YUKARIDA YAZMIŞ OLDUĞUNUZ KODLAR
end if
next
end sub
KODU DENEMEDİM, BİLGİNİZE

 

[okyanus]

ilginize teşekkürler

if TextBox26.Value = s1.cells(mnz,6)

satır kırmızıya dönüşüyor ? yada ben yerleştiremedim

yardım edermisiniz

 

[mnz]

if TextBox26.Value = s1.cells(mnz,6) then


then koymayı unutmuşum

 

[okyanus]

syn mnz
yine olmadı aynı satır hata veriyor


'KAYDET
Private Sub CommandButton1_Click()
For mnz = 1 To 100
If TextBox26.Value = s1.Cells(mnz, 6) Then
MsgBox " ürün kodu mevcut"
Else

For X = 21 To 36
If Controls("TextBox" & X).Value = Empty Then
MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "DİKKAT !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X

On Error Resume Next
Set s1 = Sheets("sayfa1")
sonsat = WorksheetFunction.CountA(s1.[A2:A65536]) + 2
s1.Cells(sonsat, 1) = TextBox21.Value
s1.Cells(sonsat, 2) = TextBox22.Value
s1.Cells(sonsat, 3) = TextBox23.Value
s1.Cells(sonsat, 4) = TextBox24.Value
s1.Cells(sonsat, 5) = TextBox25.Value
s1.Cells(sonsat, 6) = TextBox26.Value
s1.Cells(sonsat, 7) = TextBox27.Value
s1.Cells(sonsat, 8) = TextBox28.Value
s1.Cells(sonsat, 9) = TextBox29.Value
s1.Cells(sonsat, 10) = TextBox30.Value
s1.Cells(sonsat, 11) = TextBox31.Value
s1.Cells(sonsat, 12) = TextBox32.Value
s1.Cells(sonsat, 13) = TextBox33.Value
s1.Cells(sonsat, 14) = TextBox34.Value
s1.Cells(sonsat, 15) = TextBox35.Value
s1.Cells(sonsat, 20) = TextBox36.Value
MsgBox "VERİLER KAYDEDİLDİ"
End If
Next

End Sub

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    For X = 21 To 36
    If Controls("TextBox" & X).Value = Empty Then
    MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
    & Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "DİKKAT !"
    Controls("TextBox" & X).SetFocus
    Exit Sub
    End If
    Next X
        
    Say = WorksheetFunction.CountIf([F:F], TextBox26.Value)
    If Say > 0 Then GoTo Son
    
    Set S1 = Sheets("Sayfa1")
    Sonsatır = [A65536].End(3).Row + 1
    S1.Cells(Sonsatır, 1) = TextBox21.Value
    S1.Cells(Sonsatır, 2) = TextBox22.Value
    S1.Cells(Sonsatır, 3) = TextBox23.Value
    S1.Cells(Sonsatır, 4) = TextBox24.Value
    S1.Cells(Sonsatır, 5) = TextBox25.Value
    S1.Cells(Sonsatır, 6) = TextBox26.Value
    S1.Cells(Sonsatır, 7) = TextBox27.Value
    S1.Cells(Sonsatır, 8) = TextBox28.Value
    S1.Cells(Sonsatır, 9) = TextBox29.Value
    S1.Cells(Sonsatır, 10) = TextBox30.Value
    S1.Cells(Sonsatır, 11) = TextBox31.Value
    S1.Cells(Sonsatır, 12) = TextBox32.Value
    S1.Cells(Sonsatır, 13) = TextBox33.Value
    S1.Cells(Sonsatır, 14) = TextBox34.Value
    S1.Cells(Sonsatır, 15) = TextBox35.Value
    S1.Cells(Sonsatır, 20) = TextBox36.Value
    MsgBox "Verileriniz kaydedilmiştir.", vbInformation
Exit Sub
Son:
    MsgBox "Bu kayıt daha önce girilmiştir. Lütfen farklı bir kayıt giriniz.", vbCritical, "Dikkat !"
End Sub]

 

[okyanus]

syn cost_control
syn mnz

kusursuz oldu çok teşekkürler