Buton yardımıyla firmaların tüm girişlerinin toplamını almak

[Mdemir63]

Selamlar,

Örnek dosyanızı eklerseniz daha faydalı olacaktır.

Hocam günaydın

dosyanın boyutu büyük olduğundan hotmail adresinize gönderdim

Saygılar

 

[Korhan Ayhan]

Selamlar,

Çalışmanızdaki aşağıdaki kodun sonundaki 2 rakamını tekrar 1 olarak değiştirin.

Cells(SONSAT, 1).Value = SONSAT - 1

Ayrıca aktarım için vermiş olduğum koduda aşağıdaki şekilde değiştirip denermisiniz.

Sub AKTAR()
    Set SÇ = Sheets("Çalışma Sayfası")
    Set SS = Sheets("Sonuç")
    SS.[A2:J65536].ClearContents
    FİRMA = Application.InputBox("Lütfen ekstresi alınacak firma adını giriniz.", "FİRMA ADI GİRİNİZ")
    If FİRMA = False Then Exit Sub
    If WorksheetFunction.CountIf(SÇ.[B:B], FİRMA) = 0 Then Exit Sub
    SÇ.[B2].AutoFilter Field:=2, Criteria1:=FİRMA
    SS.[A2] = FİRMA
    For X = 2 To 11
    SS.Cells(2, X) = SÇ.Cells(65536, X + 2)
    Next
    SÇ.[B2].AutoFilter Field:=2
    MsgBox "Cari hesap ekstresi oluşturulmuştur.", vbInformation
End Sub

 

[Mdemir63]

Selamlar,

Çalışmanızdaki aşağıdaki kodun sonundaki 2 rakamını tekrar 1 olarak değiştirin.

Cells(SONSAT, 1).Value = SONSAT - 1

Ayrıca aktarım için vermiş olduğum koduda aşağıdaki şekilde değiştirip denermisiniz.

Sub AKTAR()
    Set SÇ = Sheets("Çalışma Sayfası")
    Set SS = Sheets("Sonuç")
    SS.[A2:J65536].ClearContents
    FİRMA = Application.InputBox("Lütfen ekstresi alınacak firma adını giriniz.", "FİRMA ADI GİRİNİZ")
    If FİRMA = False Then Exit Sub
    If WorksheetFunction.CountIf(SÇ.[B:B], FİRMA) = 0 Then Exit Sub
    SÇ.[B2].AutoFilter Field:=2, Criteria1:=FİRMA
    SS.[A2] = FİRMA
    For X = 2 To 11
    SS.Cells(2, X) = SÇ.Cells(65536, X + 2)
    Next
    SÇ.[B2].AutoFilter Field:=2
    MsgBox "Cari hesap ekstresi oluşturulmuştur.", vbInformation
End Sub

[/QUOT

Hocam sizi yordum çok teşekkür ederim

Saygılar