Satır Kilitleme

[temizerb]

Merhaba,

ekteki gibi bir hurda formumuz var ancak depo burdaki bazı hücreleri doldurmadan hareket ettiğinde ürünleri çıkarken sistemde sorun yaşıyoruz. Bu nedenle A5 hücresini doldurmadan C5,D5,E5,G5,H5 ve I5 hücresine geçmemeli. Ayrıca B5 ve F5 hücreleri düşeyrara kullanıyor. En sonunda kapatırken ise tüm hücreler dolu ise kayıt etmeli boş kayıt varken kayıt etmek isterse hata mesajı vermeli.

Bana bu konuda yardımcı olabilirseniz sevinirim.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row, 1).End(1) = "" Then
        MsgBox " ..::.. Barkod yazılmamış ..::.. ", vbInformation + vbMsgBoxRtlReading, "Uyarı"
        Cells(Target.Row, 1).Select
    ElseIf Target.Value <> "" Then
        Cells(Target.Row, 1).End(2).Offset(0, 1).Select
    End If
End Sub

 

[temizerb]

Şu kodları bir deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row, 1).End(1) = "" Then
        MsgBox " ..::.. Barkod yazılmamış ..::.. ", vbInformation + vbMsgBoxRtlReading, "Uyarı"
        Cells(Target.Row, 1).Select
    ElseIf Target.Value <> "" Then
        Cells(Target.Row, 1).End(2).Offset(0, 1).Select
    End If
End Sub

Murat hoca selam,

Ellerine sağlık gayet iyi ancak eksik bilgi varsa kayıt etmemeli nasıl yapabiliriz.

 

[Murat OSMA]

Selam

Kayıttan kasıt nedir ? Bir yere mi kaydediliyor ?

 

[temizerb]

Selam

Kayıttan kasıt nedir ? Bir yere mi kaydediliyor ?

Excel'i save edip çıkmaktan bahsediyorum.

 

[Murat OSMA]

Anladım...
J5 hücresine bu formülü yazıp J30'a kadar çekin; =BAĞ_DEĞ_DOLU_SAY(A5:I5)

Sonra da ThisWorkbook'a (Bu çalışma kitabı) şu kodu yazın;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim i As Integer
        For i = 5 To 30
            If Cells(i, 1) <> "" And Cells(i, 10) < 9 Then
                MsgBox " ..::.. Çıkamazsınız ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !!!"
                Cancel = True
                Exit Sub
                    Else
              Cancel = False
            End If
        Next i
End Sub

 

[temizerb]

Anladım...
J5 hücresine bu formülü yazıp J30'a kadar çekin; =BAĞ_DEĞ_DOLU_SAY(A5:I5)

Sonra da ThisWorkbook'a (Bu çalışma kitabı) şu kodu yazın;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim i As Integer
        For i = 5 To 30
            If Cells(i, 1) <> "" And Cells(i, 10) < 9 Then
                MsgBox " ..::.. Çıkamazsınız ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !!!"
                Cancel = True
                Exit Sub
                    Else
              Cancel = False
            End If
        Next i
End Sub

Hocam selamlar,

Dün donemedim, bugün baktım olmadı.

 

[Murat OSMA]

Önceki mesjalardan kodları alıntı yapmayalım lütfen, gereksiz yer kaplıyorlar...

Şöyle bir deneyiniz;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim i As Integer
        For i = 5 To 30
            If Cells(i, 1) <> "" And Cells(i, 10) < 9 Then
                MsgBox " ..::.. Çıkamazsınız ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !!!"
                Cancel = True
                Exit Sub
                    Else
              Cancel = False
            End If
            If Cells(i, 1) = "" And Cells(i, 10) > 2 Then
            MsgBox " ..::.. Çıkamazsınız ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !!!"
                Cancel = True
                Exit Sub
                    Else
              Cancel = False
            End If
        Next i
End Sub

Swf videoyu da izleyebilirsiniz, bir kaç test yaptım...
http://s14.directupload.net/images/120518/jrkxn8zm.swf

 

[sadesinan12345]

Öğrendiklerimi uyguladığımda

yolladığım mesajın paylaşım isminde yeni konu ile yayınlanması daha doğru olurdu. kusura bakmayın

 

[sadesinan12345]

yolladığım mesajın paylaşım isminde yeni konu ile yayınlanması daha doğru olurdu. kusura bakmayın

 

[Murat OSMA]

Daha önce 4 konu açmışsınız. Şimdi konu açamamanızın nedeni nedir acaba ?
Yeni Konu butonunu mu göremiyorsunuz ? Yetkiniz mi yok deniyor ?

Önerilerimizi bu başlık altında yazamayız. Bu konunun içeriği belli.
Konuyu açan arkadaşa da saygısızlık yapmış oldunuz.
Konu ile ilgisiz dosya ya da mesajları bu başlık altında paylaşamazsınız...
Yeni konu açamıyorsanız yönetimle irtibata geçiniz.

 

[kamsal]

Aynı şekilde benimde bu uygulamayı kullanmam gerekiyor. Verdiğiniz kodları aldım yapıştırdım ama olmadı. Yardımcı olabilirseniz sevirim...