Veri girilmemişse uyarı versin

[Ridan]

Merhaba,

B sütunundaki verilerin referans alınarak, D sütununda karşısındaki hücreye veri girilmemişse uyarı versin ve seçilsin. D sütununda veri girilmeyen birden fazla boş hücre olabilir ama imleç ilk hücreye gitsin.

 

[ÖmerBey]

Merhaba,
Tam anladım mı bilemiyorum ama aşağıdaki kod, B sütunundaki hücre dolu olduğu halde aynı satırın D hücresi boşsa o hücreyi seçer.
Deneyiniz...

Sub kod()
For a = 1 To Range("B65500").End(3).Row
    If Cells(a, "B") <> "" And Cells(a, "D") = "" Then
        Cells(a, "D").Select
        Exit Sub
    End If
Next
End Sub

 

[Ridan]

Bunu iki sütun için D ve G yapacak olsak ?

 

[ÖmerBey]

Koddaki ilgili satırı aşağıdakiyle değiştirirseniz her iki sütundaki hücreyi de seçebilirsiniz.

Union(Cells(a, "D"), Cells(a, "G")).Select

Tam olarak ne yapmak istediğinizi belirtirseniz daha iyi anlaşabiliriz.
Tüm şartları belirtiniz.

 

[Ridan]

Koddaki ilgili satırı aşağıdakiyle değiştirirseniz her iki sütundaki hücreyi de seçebilirsiniz.

Union(Cells(a, "D"), Cells(a, "G")).Select

Tam olarak ne yapmak istediğinizi belirtirseniz daha iyi anlaşabiliriz.
Tüm şartları belirtiniz.

Anlaşılmadıysa kusura bakmayın... Aynı işlem G sütunu için de geçerli. G sütununda veri girişi yapılmayan hücre varsa uyarsın veya seçilsin. Sizin bu kodunuzda örneğin; D5 hücresi boş, G5 doluysa G5'i de seçiyor. Dolu olan hücre seçilmesin. Umarım anlatabildim. İlgilendiğiniz için teşekkürler.

 

[ÖmerBey]

B sütununa göre satırları kontrol eder, aynı satır içerisinde B sütunundaki hücre doluysa ve D sütunundaki hücre boşsa D'deki hücreyi seçer. O da dolu ise G sütununu kontrol eder ve G boşsa seçer.

Sub kod()
For a = 1 To Range("B65500").End(3).Row
    If Cells(a, "B") <> "" Then
        If Cells(a, "D") = "" Then
            Cells(a, "D").Select
            Exit Sub
        ElseIf Cells(a, "G") = "" Then
            Cells(a, "G").Select
            Exit Sub
        End If
    End If
Next
End Sub

 

[Ridan]

Çok teşekkürler.. istediğim gibi olmuş. İyi günler.

 

[ÖmerBey]

İyi günler, iyi çalışmalar...