Soru Fatura aktarımı

[NADİR YILDIZ]

konuyla ilgili açıklamaya dosyamda yazdım

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.
Unvanı yoksa Ch Kodu ve Vergi No Soracak ve siz yazdığınızda kaydı gerçekleştirecektir.

 

[NADİR YILDIZ]

Sayın dalgalıkur teşekkür ederim elinize sağlık gayet güzel olmuş.
ch sormadan otomatik olarak en son kod ne ise sonraki kodu otomatik olarak açabilir mi?

liste sayfasında en son 120.009 kayıtlı ise
yeni bir ch hesap açtığımda bana yeni kodu sormadan 120.010 olarak açabilir mi ?

iyi çalışmalar

 

[Muzaffer Ali]

Dosyanız ekte

 

[NADİR YILDIZ]

Sayın dalgalikur.elinize sağlık istediğim gibi olmuş ancak birkaç yerde bazı sıkıntılar var.aynı isimden yeni ch hesap kodu oluşturuyor.mesela 3 adet nadir var.(sarı ile işaretli olanlar gibi )bir başka sorun fatma makine a.ş. Olmasına rağmen fatma makine olarak alıyor(kırmızı işaretli olanlar gibi)ben fatma makine yazdığımda bu firmanın ünvanı olan fatma makine a.ş.olarak alması istiyorum.aynı isimle başlayan birçok cari olabiliyor çoğunlukla. birde ch kodlarını 120.010 formatında istiyorum ancak 120010 gibi açıyor.ayrıca vergi numaralarının başında sıfır olduğunda sıfır almıyor sayıdan itibaren alıyor.yardımlarınız için şimdiden teşekkür ederim

 

[Muzaffer Ali]

Kayıt adlı Prosedürü aşağıdaki ile değiştirin.

Sub Kayit(Target As Range)
    Dim S1 As Worksheet, BUL As Range, Onay As Byte, say As Long
    Dim VergiNo As String
    If Intersect(Target, Range("F2:F" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        Application.EnableEvents = False
        Target.Select
        Set S1 = Sheets("LİSTE")
        Set BUL = S1.Cells.Find(Target, LookAt:=xlWhole)
        If Not BUL Is Nothing Then
            Target(1, 0) = S1.Cells(BUL.Row, 2)
            Target(1, 2) = S1.Cells(BUL.Row, 3)
        Else
            Onay = MsgBox(Target.Value & " isimli firma listenizde bulunamadı !" & Chr(10) & _
                          "Bu firmayı listenize eklemek ister misiniz ?", vbExclamation + vbYesNo, "Uyarı !")
            If Onay = vbNo Then
                ANIMSATICI
            Else
                VergiNo = InputBox(Target.Value & " isimli firmanın için 'VERGİ NUMARASI' giriniz..")
                If VergiNo = "" Then
                    MsgBox "'VERGİ NUMARASI' girmediniz işlem iptal edildi."
                    Exit Sub
                End If
                say = S1.Cells(S1.Rows.Count, 1).End(3).Row + 1
                S1.Cells(say, 1) = Target.Value
                S1.Cells(say, 2) = Yeni_CH_Kod
                S1.Cells(say, 2).NumberFormat = "_-* #,##0 _?_-;-* #,##0 _?_-;_-* ""-""?? _?_-;_-@_-"
                S1.Cells(say, 3) = VergiNo
                Target(1, 0) = S1.Cells(say, 2)
                Target(1, 0).NumberFormat = "_-* #,##0 _?_-;-* #,##0 _?_-;_-* ""-""?? _?_-;_-@_-"
                Target(1, 2) = VergiNo
                S1.Range("A2:C" & S1.Rows.Count).Sort S1.Range("A2"), xlAscending
            End If
        End If
        Set S1 = Nothing
        Set BUL = Nothing
    End If
    Application.EnableEvents = True
End Sub

 

[NADİR YILDIZ]

sayın dalgalıkur teşekkür ederim.