hücre doluysa diğerlerinin boş olmasını engelleme

[tukayf]

forumda arama yaptım ancak gerekli ölçütleri bulamadım galiba yapmak istediğim b2 hücresi doluysa c2-ı2 arası tüm hücrelere de veri girişinin yapılmasının zorunlu olmasını istiyorum. yardımlar için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim i As Integer
    If Not Intersect(Target, [C2:I2]) Is Nothing Then Exit Sub
    If Not [B2] = "" Then
        For i = 3 To 9
            If Cells(2, i) = "" Then
                Cells(2, i).Select
                Exit For
            End If
        Next i
    End If
    
End Sub

 

[tukayf]

Zihninize sağlık hocam çok teşekkürler.

 

[burhancavus61]

Konu benim için uygun bu konuda benimde yardıma ihtiyacım var. Sütun bazında V sütununda örneğin 5. satırda veri varsa W sütununun 5. satırı mecbur dolu olmak zorunda. Necdet hocamın makrosunu isteğime göre uyarlayabilirmiyiz acaba.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim i As Integer
    If Not Intersect(Target, [C2:I2]) Is Nothing Then Exit Sub
    If Not [B2] = "" Then
        For i = 3 To 9
            If Cells(2, i) = "" Then
                Cells(2, i).Select
                Exit For
            End If
        Next i
    End If
    
End Sub

 

[burhancavus61]

Bu konu hakkında destek olabilirmisiniz.