Fatura No hatası

[msetr]

İyi günler.

Fatura sayfasına yazdığım bilgileri makro ile data sayfasına kaydediyorum.

Fatura no mükerrer olmaması için bir kod yazmaya çalıştım. Ama beceremedim.

Önceden kullandığım numarayı yazınca kod çalışıyor ve fatura numarası hatalı diye mesaj veriyor.

Ama yeni numara yazınca kod duruyor Run time 1004 hatası veriyor.

Forumda çok baktım ama bir türlü çözemedim nerede hata yapıyorum.

Fatura sayfasına yazdığım numarayı düşeyara ile data sayfasında "I" sütununda aratıyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.


Kod şöyle; hata veren kırmızı olan satırlar.


Sub Fatura_Kaydet()


If Sheets("Fatura").Range("C8") <> "" Then

If Sheets("Fatura").Range("F4") <> Application.WorksheetFunction.VLookup(Sheets("Fatura").Range("F4"), Sheets("Data").Range("I:I"), 1, 0) Then


If Sheets("Fatura").Range("F6") <> "" Then

If Sheets("Fatura").Range("C12") <> "" Then

If Sheets("Fatura").Range("F19") <> "0" Then

cevap = MsgBox("Fatura Kaydedilecek. Emin misiniz ?", vbYesNo, "KAYIT ONAYI")
If cevap = vbYes Then


Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Data").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
Sheets("Data").Range("B" & Bos_Satir).Value = Sheets("Fatura").Range("C8")
Sheets("Data").Range("C" & Bos_Satir).Value = Sheets("Fatura").Range("C9")
Sheets("Data").Range("D" & Bos_Satir).Value = Sheets("Fatura").Range("E9")
Sheets("Data").Range("E" & Bos_Satir).Value = Sheets("Fatura").Range("C5")
Sheets("Data").Range("F" & Bos_Satir).Value = "CDS"
Sheets("Data").Range("G" & Bos_Satir).Value = Sheets("Fatura").Range("F6")
Sheets("Data").Range("H" & Bos_Satir).Value = Sheets("Fatura").Range("H6")
Sheets("Data").Range("I" & Bos_Satir).Value = Sheets("Fatura").Range("F4")



MsgBox "Fatura Kaydedildi"

End If

Else

MsgBox "Total Error"

End If

Else

MsgBox "Detalhes Error"

End If


Else
MsgBox "Data Error"
End If


Else
MsgBox "Fatura No Error"
End If


Else
MsgBox "Name Error"
End If



Sheets("Data").Select

End Sub

 

[askm]

Örnek dosya eklerseniz.

 

[msetr]

Dosya linki

Dosya linki

http://www.dosyaupload.com/8T64

 

[askm]

Sub Fatura_Kaydet()

   
    If Sheets("Fatura").Range("C8") <> "" Then
    aranan = Application.WorksheetFunction.CountIf(Sheets("Data").Range("I:I"), Sheets("Fatura").Range("F4"))
    If aranan = 0 Then
      
    If Sheets("Fatura").Range("F6") <> "" Then
    
    If Sheets("Fatura").Range("C12") <> "" Then
    
    If Sheets("Fatura").Range("F19") <> "0" Then
    
    cevap = MsgBox("Fatura Kaydedilecek. Emin misiniz ?", vbYesNo, "KAYIT ONAYI")
        If cevap = vbYes Then
        

                Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1
                Sheets("Data").Range("A" & Bos_Satir).Value = _
                           Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
                Sheets("Data").Range("B" & Bos_Satir).Value = Sheets("Fatura").Range("C8")
                Sheets("Data").Range("C" & Bos_Satir).Value = Sheets("Fatura").Range("C9")
                Sheets("Data").Range("D" & Bos_Satir).Value = Sheets("Fatura").Range("E9")
                Sheets("Data").Range("E" & Bos_Satir).Value = Sheets("Fatura").Range("C5")
                Sheets("Data").Range("F" & Bos_Satir).Value = "CSD"
                Sheets("Data").Range("G" & Bos_Satir).Value = Sheets("Fatura").Range("F6")
                Sheets("Data").Range("H" & Bos_Satir).Value = Sheets("Fatura").Range("H6")
                Sheets("Data").Range("I" & Bos_Satir).Value = Sheets("Fatura").Range("F4")
                
         
         
        MsgBox "Fatura Kaydedildi"
              
        End If
        
          Else
    
            MsgBox "Total Error"
    
     End If
     
     Else
    
            MsgBox "Detalhes Error"
    
     End If
        
         
      Else
              MsgBox "Data Error"
     End If
     
    Else
            MsgBox "Fatura No Error"
    End If
    
    Else
            MsgBox "Name Error"
    End If
    
    
    
   'Sheets("Data").Select

End Sub

 

[msetr]

Cevabınız için çok teşekkür ederim. Kod çalışıyor problem yok.

 

[askm]

Rica ederim.