#yok yazdığında makro yada düğme çalışmasın

[jambow]

arkadaşlar düşey ara formülü ile ürün aratıyorum bazı ürünler tanımlı olmadığında #yok yazıyor böyle bir durum olduğunda satışyap makrosu veya düğmesi çalışmasın dosya ekte .yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[hamitcan]

Sub AKTAR()
Set S1 = Sheets("SATIŞ")
Set s2 = Sheets("BARKOD")
Dim i, Adet As Long

S1.Select

Application.ScreenUpdating = False
[color=red]ActiveSheet.Protect[/color]
On Error GoTo git
If Columns("d").SpecialCells(xlCellTypeFormulas, 16).Text = "#YOK" Then
MsgBox "Hatalı Bir Hücre Var, Kontrol Edin!...", vbCritical: Exit Sub
End If
git:
For i = 6 To [A39].End(3).Row
   
        Set Bul = s2.Range("A5:A4000").Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            If Cells(i, "B") <> "" Then
                s2.Cells(Bul.Row, "g") = s2.Cells(Bul.Row, "g") - Cells(i, "B")
                
              
            Else
                
            End If
        Else
            
        End If
   

Next i
Application.ScreenUpdating = True
boshücre = Sheets("FULL").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("a6:J38").Copy
Sheets("FULL").Activate
Cells(boshücre, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues



     
    Sheets("SATIŞ").Select
    Range("A6:A38").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-81
    
    Range("A6").Select
   
     
    For Each n In Range("B6:B38")
    If IsNumeric(n) Then
        n.Value = 1
       
    End If
Next n
[color=red]ActiveSheet.UnProtect[/color]
End Sub

 

[jambow]

1)korumalı sayfada bu komut kullanılamaz diyor
2)korumayı kaldırıyorum .. yok yazan satırı buluyor uyarıyor tamam...ancak veriler doğru ise saydada yok yazmıyorsa yine işlem yapmıyor dosya ekte

 

[jambow]

yardım lütfen

 

[hamitcan]

2 nolu mesajı güncelledim.

 

[jambow]

dostum ilgilendiğin için teşekkürler ancak sayfayı korumalı yaptığımda yok yazan hücreyi tanımıyor satışını yapıyor... sayfa korumasını kaldırdığımda kod gayet güzel çalışıyor..

 

[hamitcan]

2 nolu mesajı güncelledim.

 

[jambow]

ço k teşekkürler

 

[ReBiwAr]

düşeyara formülünü eğerhata formülü içinde kullanarakta sorunu çözebilirisniz.

İyi Çalışmalar.