Listede, üstteki satırda boş bırakılan hücre varsa alt satırlara veri yazılamasın

[ex48]

Merhaba
Eklediğim dosyamdaki listede, üstteki satırda boş bırakılan hücre varsa alt satırlara veri yazılamaması ve dosyada belirttiğim konularda bilgi ve emeğinize ihtiyacım var.
Teşekkür ederim.

 

[ex48]

Merhaba
Eklediğim dosyamdaki listede, üstteki satırda boş bırakılan hücre varsa alt satırlara veri yazılamaması ve dosyada belirttiğim konularda bilgi ve emeğinize ihtiyacım var.
Teşekkür ederim.

Dosya şimdi ekte

 

[ex48]

Excel üstadı arkadaşlar bi bakabilirmisiniz dosyaya. Benim kafa pek çalışmıyor bu işe, ama giriştik, yarım kaldı.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
[COLOR="Red"][B]If Intersect(Target, Range("O:O,D4:Q" & Cells(65536, "D").End(xlUp).Row)) Is [/B][/COLOR]Nothing Then Exit Sub
Dim i As Long, sıra As Long, k As Byte
For i = 4 To [O65536].End(3).Row
If Not Cells(i, 2) = "" Then
sıra = sıra + 1
Cells(i, 1) = sıra
End If
Next
[COLOR="red"][B]If Target.Value = "" Then Exit Sub
For k = 4 To 17
    If Cells(Target.Row - 1, k).Value = "" Then
        MsgBox "Bir üst satırda girilmeyen veri var." & vbLf & " Bu yüzden buraya veri giremezsiniz..!!", vbCritical, "DİKKAT"
        Target.Value = ""
        Exit For
    End If
Next k
son:[/B][/COLOR]
End Sub

 

[ex48]

Sayın Evren Gizlen
Bu güne kadar çok yardımcı oldunuz bana, teşekkür ederim.
bu haliylede olabilir,ama bir engel yoksa sadece liste içinde geçerli olması mümkünmüdür.
Fazla vaktinizi almak istemiyorum ama ayrıca, kulak no yazılırken TR ile başlayarak yazılmasını zorunlu kılabilirmiyiz "K" kolonunda.

 

[Orion1]

Sayın Evren Gizlen
Bu güne kadar çok yardımcı oldunuz bana, teşekkür ederim.
bu haliylede olabilir,ama bir engel yoksa sadece liste içinde geçerli olması mümkünmüdür.
Fazla vaktinizi almak istemiyorum ama ayrıca, kulak no yazılırken TR ile başlayarak yazılmasını zorunlu kılabilirmiyiz "K" kolonunda.

İstediğiniz 2 değişikliğide yaptım .Dosyanız ekte.

 

[ex48]

İstediğiniz 2 değişikliğide yaptım .Dosyanız ekte.

Teşekkür ederim Evren Bey,
fakat TR da bir değişiklik yok gibi. Örneğin 4827500 değilde illaki TR4827500
ilk iki karakter TR olmalı demk istemiştim.

 

[Orion1]

Teşekkür ederim Evren Bey,
fakat TR da bir değişiklik yok gibi. Örneğin 4827500 değilde illaki TR4827500
ilk iki karakter TR olmalı demk istemiştim.

TR olayı Gayette güzel çalışıyor.Veri doğrulama ile yaptım.
Ben denedim gayet güzel çalışıyor.

 

[ex48]

Haklısınız Hocam, K5 hücresindeymiş, ben direkt k6 ya yazıp bakmışım...
Bana gene kuru kuru teşekkür etmek kalıyor.
Teşekkür ederim Evren Bey.

 

[Orion1]

Dosyayı istediğiniz şekilde düzelttim.Şimdi TR olayıda çalışıyor.
Dosyanız ekte.

 

[ex48]

Haklısınız Hocam, K5 hücresindeymiş, ben direkt k6 ya yazıp bakmışım...
Bana gene kuru kuru teşekkür etmek kalıyor.
Teşekkür ederim Evren Bey.

Hiç tanımadığımız kişilerden istekte bulunmak gerçekten zor iş. Acaba yahu araştırda öğren yap birader diyormudur vs. çekiniyorum.
Alt yapı olmayınca istediğimizi yapmak zor.
Siz hangi yolla excelinizi geliştirdiniz, kurs-öğretici kitap-dosya üzerinde pratik yapıp deneme yanılma uğtaş verme?
İlk olarak başlangıçtan ele alırsanız ne gibi tavsiyeleriniz olur?

 

[Orion1]

Siz bu mesajları yazarken ben dosya ekledim.Onu kullanırsanız TR olayı çözülmüş olacaktır.O dosyada durumu düzelttim.
Excel'i forum'dan öğrendim.
Dağa öncesinden çat, pat Qbasic dilim vardı.Onunda yardımıyle bir şeyler öğrendik dağada öğreneceğimiz çok şey var.:cool.

 

[ex48]

Sağolun Evren Bey
Dosyanızı almıştım. Ama tavsiyenizi alamadım, benim gibi acemilerin daha kısa zamanda yol alabilmesi için tavsiyeniz yokmu?

 

[Orion1]

Sağolun Evren Bey
Dosyanızı almıştım. Ama tavsiyenizi alamadım, benim gibi acemilerin daha kısa zamanda yol alabilmesi için tavsiyeniz yokmu?

Forumu takip edebilirsiniz.Ayrıca Sitede satılan kitaplarda başlangıç düzeyinde olan kitaplardan bir tane alabilirsiniz.