Soru hücre dolu olsun

[burhancavus61]

A2 hücresi dolu ise B2 doldurmadan sonraki hücreye geçmesin
A3 boş ise B3 boş olabilir
A4 dolu ise B4 doldurmak mecburi, Fakat tekrar A4 silebilmeliyim işlemimi iptal edebilmeliyim,

Ben A sütununa tıkladığımda veri girmediysem makro devreye girmeyecek veri girdiğimde de B sütununu boş geçmemeliyim A ve B sütunları arasında gidip gelebilmeliyim. Forumda çok fazla örnek var işin içinden çıkamadım. Bu konuda makro yardımına ihtiyacım var.

 

[hamitcan]

Bu şekilde dener misiniz ?

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Target.Column = 2 Then Exit Sub
    If Target.Column = 1 Then Exit Sub
    If Cells(Target.Row, 1) <> "" Then
    If Cells(Target.Row, 2) = "" Then
    MsgBox "Boş geçemezsiniz": Target.Previous.Select
    Exit Sub
    End If
    End If
End Sub

 

[burhancavus61]

Hocam çalışmadı ya hani benim çalışmamda sorun vardır dedim boş kitapta denedim yine olmadı. Acaba benmi birşeyi yanlış yapıyorum.

 

[veyselemre]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, 1).End(3).Row
    For I = 2 To son
        If Cells(I, 1) <> "" And Cells(I, 2) = "" And I <> Target.Row Then
            Cells(I, 2).Select
            MsgBox "Bu hücrenin doldurulması gerekir..."
            Exit Sub
        End If
    Next I
End Sub

 

[burhancavus61]

Üstad sağolasın kod çalışıyor fakat boş hücreden çıkınca mesela c sütununa çıkınca b sütununa dönmüyor. hani zorlamak mümkünmü boş hücreyi doldurmadan başka hücreye geçmesin. A sütununda olduğum zaman b sütununa zorunlu hücreye atıyor. ama b veya başka sütunda bunu yapmıyor.

 

[veyselemre]

If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
Kaldırın, ama çok sıkıntılı olur, her yeri tıkladığınızda bütün a-b sütunlarını kontrol edecek sıkıntılı...

 

[burhancavus61]

Bi deneyeyim üstad belki tam işimi görür

 

[burhancavus61]

Tam işimi gördü sağolun. Aynısını başka sayfada V ve W sütunlarına uyarlamaya çalıştım olmadı. Nereleri değiştirmem gerekir.

 

[veyselemre]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, "V").End(3).Row
    For I = 2 To son
        If Cells(I, "V") <> "" And Cells(I, "W") = "" And I <> Target.Row Then
            Cells(I, "W").Select
            MsgBox "Bu hücrenin doldurulması gerekir..."
            Exit Sub
        End If
    Next I
End Sub

 

[burhancavus61]

Teşekkür ederim üstad çok makbule geçti.