Excel'de satır kilitleme

[temizerb]

Merhaba,

Bir tablo yaptım ancak bu tabloda kullanıcı A1 satırını yazmadan diğer satırlara yazı yazamamalı veya combo box'ı kullanamamalı. Bu konuda bana yardımcı olursanız sevinirim. Koşullu biçimlendirme yaptım ancak yazmadan geçebiliyor.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne yazarak deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If [A1] = "" Then
        Target.ClearContents
        [A1].Select
        MsgBox "A1 Hücresine Veri Girişi Yapınız."
    End If
Application.EnableEvents = True
End Sub

.

 

[temizerb]

A kolonu için nasıl yapabilirim

Ömer hocam merhaba,

çok teşekkür ederim ancak şu çıktı ortaya benim yaptığım tabloda A kolonundaki A1,A2,A3......... satırları yazmadan B1,B2 ve diğerlerine geçmemesi için aralığı nasıl veririm.

Çok teşekkürler

Kayıt edemesinler diye bunu yazdım ama A1 ile A100 arasını nasıl yazacağımı çözemedim.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sayfa1").Range("A1") = "" Then
MsgBox ("Kaydetme işlemi devam edemiyor!" & vbNewLine & _
"A1 hücresini boş bırakamazsınız."), , "pir"
Cancel = True
End If
End Sub

 

[Ömer]

Kodları sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    If Target.Offset(0, -1) = "" Then
        Target.ClearContents
        Target.Offset(0, -1).Select
        MsgBox ActiveCell.Address & " Hücresine Veri Girişi Yapınız."
    End If
Application.EnableEvents = True
End Sub

.

 

[temizerb]

Çalışmam Ekte

Ömer hocam merhaba,

Senide uğraştırdım farkındayım ancak denedim olmadı ben sana bir dosya hazırladım, A3 boş olarak diğer satırı ( B3,C3,D3 ) gibi alanların yazılamamasını istiyorum. Ancak şöyle bir sıkıntı var şu an A2'den A100'e kadar yapmam gerekli bu işlemi çünkü bu bir takip listesi ve sürekli olarak hergün altına ek yapılıyor. Yardımcı olabilirsen çok sevinirim.

 

[Ömer]

B sütununa verileri manuel giriyorsunuz dimi?

Sheet1 in kod bölümüne kopyalamanız yeterli olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    If Target.Offset(0, -1) = "" Then
        Target.ClearContents
        Target.Offset(0, -1).Select
        MsgBox ActiveCell.Address & " Hücresine Veri Girişi Yapınız."
    End If
Application.EnableEvents = True
End Sub

.