Hücre doluysa girişi engellemek

[hassan26]

Selam Arkadaşlar
Private Sub CommandButton12_Click()
Sheets("KAYIT").Select
If TextBox9.Value = "" Or TextBox10.Value = "" Then
MsgBox "Kayıt Bilgilerinin Tamamı Girilmeden Kayıt Yapılmaz."
TextBox9.Value = "": TextBox10.Value = ""
Exit Sub
End If
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=TextBox9.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
If ActiveCell.Value <> TextBox9.Value Then
MsgBox "Bu Evrak Numarasına zimmet yapılmadığından kayıt bulunumadı."
TextBox9.Value = "": TextBox10.Value = ""
Exit Sub
End If
'If Aranan değer bulundu ama onun sağındaki bilgi yazdırmak istediğin 5'inci sıradaki hücre dolu Then
'MsgBox "Seri No'sunu Yazdığınız Evrağın" & Chr(10) & Chr(10) & "Zimmet Geri Alımı, Daha Önce Yapılmış."
'TextBox9.Value = "": TextBox10.Value = ""
'Exit Sub
'End If
ActiveCell.Offset(0, 5).Value = TextBox8.Value
ActiveCell.Offset(0, 6).Value = TextBox10.Value
MsgBox "Zimmet geri alındı, Form, yeni bilgi girişi için temizlenecektir."
TextBox9.Value = "": TextBox10.Value = ""
End Sub
Takıldığım yeri kod içinde anlatmaya çalıştım kısaca Kayıt dosyasının B sütununda TexBox9'da yazan değeri ara bulursan aktif hücrenin sağındaki 5 ve 6 kolonda sırasındaki hücrelere TexBox8 Ve TexBox10'daki değerleri yaz kodunu yazdım buraya kadar tamam. Yapmak istediğim kırmızı yazdığım kısımdaki anlatımı koda bir türlü dökemedim. Atıyorum aktif hücre B2 bana göre sağındaki B5 ve B6 içine TexBox8 ile 10 içinde yazılanları aktarıyor ama bunlardan B5 doluysa bu işlemi gerçekleştirmemesini anlatamadım Excele. Bu arada kapalı devre çalışıyorum geri planı görmediğim için istediğim kod benim için önemli hale geliyor.
Private Sub Workbook_Open()
'Application.Visible = False
'UserForm3.Show
'End Sub
Konuya el atan arkadaşlara şimdiden teşekkürler.
Saygılar

 

[Orion1]

Aşağıdaki gibi deneyin.

If ActiveCell.Offset(0, 5).Value <> "" Then
    MsgBox "Seri No'sunu Yazdığınız Evrağın" & Chr(10) & Chr(10) & "Zimmet Geri Alımı, Daha Önce Yapılmış."
    TextBox9.Value = "": TextBox10.Value = ""
    Exit Sub
End If

 

[hassan26]

Say&#305;n Evren Gizlen te&#351;ekk&#252;r ediyorum kusura bakmazsan&#305;z bi&#351;ey daha soray&#305;m ComboBox veya TexBox i&#231;ine k&#252;&#231;&#252;k harfle girilen metin de&#287;erlerini otomatik b&#252;y&#252;k harfe &#231;evirebiliyormuyuz kullan&#305;c&#305; hatas&#305;n&#305; engellemek a&#231;&#305;s&#305;nda hep b&#252;y&#252;k harf olmas&#305; gerekiyorda. kod sayfas&#305;na harfleri b&#252;y&#252;tmeyi yazd&#305;m ama kay&#305;t yaparken b&#252;y&#252;t&#252;yorda arama veya kar&#351;&#305;la&#351;t&#305;rma istedi&#287;im arat&#305;rmalarda k&#252;&#231;&#252;k karakter girilince sorun &#231;&#305;kard&#305; MatchCase:=False LookAt:=xlWhole bunu Part yap&#305;ncada benzer bir s&#252;r&#252; bilgi karmakar&#305;&#351;&#305;k oluyor olursa eniyisi kafadan Boxlar i&#231;inde b&#252;y&#252;tmek istiyorum m&#252;mk&#252;nm&#252;.
Sayg&#305;lar

 

[Korhan Ayhan]

Selamlar,

Yaz&#305;lanlar&#305; b&#252;y&#252;k harfe &#231;evirmek i&#231;in a&#351;a&#287;&#305;daki kodu kullanabilirsiniz.

Private Sub TextBox1_Change()
    TextBox1 = Replace(TextBox1, "i", "İ")
    TextBox1 = Replace(TextBox1, "ı", "I")
    TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub

Alternatif olarak a&#351;a&#287;&#305;daki koduda kullanabilirsiniz.

Private Sub TextBox1_Change()
    TextBox1 = Evaluate("=Upper(""" & TextBox1 & """)")
End Sub

 

[hassan26]

Selam
&#220;stad te&#351;ekk&#252;r ediyorum.
Sayg&#305;lar.