boş geçme

[akd]

Merhaba arkadaşlar,
Aşağıdaki çizelgem a1:a8 aralığında benim yapmak istedigim,
b1:b8 aralığına bunların cevaplarını girmek cevapları girerken
hücreleri boş geçmemek , boş geçecek olursam örnegin: b3 ü boş geçecek olursam bana " baba adını girmediniz" diye uyarı versin ve b4 hücresine gitmesin.
Teşekkürler...

KÃ?Y VEYA MAH.ADI :
T Ü R Ü :
B A B A S I N I N A D I :
Y A K I N L I Ð I :
A D I S O Y A D I :
K İ M İ N A D I N A :
K A Ç P A R S E L :
T A R İ H :

 

[Hüseyin]

Merhaba,
girilen bir verinin doğruluğunu Excelin yerleşik özellikleri ile test etme imkanı var.
(Veri doğrulam veya ing. Validation)
Ancak bu sadece veri gerişi gerçekleşirse mümkün, yani sizin örneğinizde hiç veri girilmemesinin kontrolü ancak makro ile olabilir diye düşünüyorum.

Makrolu çözümde işinizi görürmü?

 

[akd]

afedersiniz arkadaşlar
galiba sorumu yanlış yere sormuşum,
makrolar kısmına sormrm gerekiyordu.
veri doğrulama benim sorunumu çözmez.
sayın hüseyin kardeşim bu konuyu makrolar kısmına gönderebilirmisiniz,
yoksa ben aynı soruyu makrolar kısmınadamı yazayım.
Teşekkürler...

 

[xxrt]

Admin sorunuzu ve cevabımı makrolar kısmına alır herhalde.Sorunuz gelince;

Sub bosolamaz()
If Range("B1") = "" Then
MsgBox "Köy ve Mahalle Adını Boş Geçemezsiniz."
Range("B1").Select
ElseIf Range("B2") = "" Then
MsgBox "Türü Boş Geçemezsiniz!"
Ramge("B2").Select
ElseIf Range("B3") = "" Then
MsgBox "Baba Adını Boş Geçemezsiniz!"
Range("B3").Select
End If
End Sub

Devamını siz yaparsınız..

Yada Þöylede olabilir.

Sub hata()
Dim hucre As Range
For Each hucre In Range("b1:b5")
If hucre.Value = "" Then Bos = Bos + 1
Next
If Bos <> 0 Then
mesaj = MsgBox("Dostum, b1-b5 aralığında boş hücre var!", _
vbInformation, "Hata...")
Exit Sub
Else
End If
MsgBox "Tamam"
End Sub

 

[Hüseyin]

sayın hüseyin kardeşim bu konuyu makrolar kısmına gönderebilirmisiniz

Tamamdır.

 

[akd]

Merhaba arkadaşlar,
malesef istedigim bir kod henüz yazılmadı,
ben şunu yazdım malesef çalışmadı.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("B1") = "" Then MsgBox (" Hey B1 hücresini boş bıraktınız.!")
End Sub

Ben her hücreden çıkışda eğer hücre boşsa bu uyarıyı vermesini istemiştim.

 

[xxrt]

:shock:

 

[class37]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1") = "" Then MsgBox (" Hey B1 hücresini boş bıraktınız.!")
End Sub

 

[ALPEN]

change olayı eğer değer girilmedi ise oluşmayacağı için kullanmak gereksizdir.

bunun yerine



module 'e

Public col As Integer
Public row As Integer

worksheet in selection change ine

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B8")) Is Nothing Then Exit Sub
If row <> 0 Then
    If Cells(row, col) = "" And Target.row <> row Then
        MsgBox ("boş geçemezsiniz")
        Cells(row, col).Select
        Exit Sub
    End If
End If
If Target.row <> row Then
    row = Target.row
    col = Target.Column
End If
End Sub

 

[akd]

Çok teşekür ederim sayın ALPEN mesajınıza cevap yazdım.
lütfen bir bakarmısınız...
Allah razı olsun.
Sizede teşekkür ederim sayın class37...

 

[tansucanercan]

önemli

Bu kodları excelde nereye kopyalıcaz

 

[tansucanercan]

bu Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B8")) Is Nothing Then Exit Sub
If row <> 0 Then
If Cells(row, col) = "" And Target.row <> row Then
MsgBox ("boş geçemezsiniz")
Cells(row, col).Select
Exit Sub
End If
End If
If Target.row <> row Then
row = Target.row
col = Target.Column
End If
End Sub
kodları excelde nereye yazcaz