Yeni Kayıt Hakkında

[DemirBilek57]

Arkadaşlar aşağaıdaki 1. kodda her yeni kaydı bir kere vermesini istiyorum. Fakat numara benim girdiğim numara olacak. Yani ben 5 girdim diyelim, İkinci defa 5 girmeme izin vermesin ama sıralı olmayan farklı numaralar girebileyim. Birde sıfırdan küçük olan satırla gizlemek istiyorum fakat yeni kayıt girdiğimde dolu hücre açılmıyor. Yardımlarınızı rica ediyorum. Teşekkürler

Private Sub CommandButton1_Click()
Dim mesaj, yer As Integer
yer = 4
While Sheets("sayfa1").Cells(yer, 2) <> ""
yer = yer + 1
Wend
mesaj = MsgBox("Şirketinize Yeni Birim Kodu Eklemek İstiyormusunuz?", 4 + 32, "Uyarı")
If mesaj = 6 Then
Sheets("sayfa1").Cells(yer, 2) = Val(TextBox1)
Else
Cancel = True
End If
End Sub


Sub gizle()
For a = 4 To 53
If Range("B" & a) = "" Then _
Range("B" & a).EntireRow.Hidden = True
Next a
End Sub
Sub GÖSTER()
For a = 4 To 53
If Range("B" & a) = "" Then _
Range("B" & a).EntireRow.Hidden = False
Next a
End Sub