İlgili Yıla Ait Verilerin Toplamını Diğer Sayfaya Aktarma

[manly]

EK'te gönderdiğim dosyadaki Ana Menüye tıklayınca açılan Userformda Aktarılacak Yılı Yazınız Textboxa yılı girip Butona tıkladığımda , AD sütunundaki o yıla ait verilerin AF sütunu toplamını, AH sütunu toplamını, aj sütunu toplamını ve AN sütunu toplamını alıp, Sayfa2 deki yerlerine aktarmasını istiyorum...

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz, diğer işlemleri siz yapınız.

Private Sub CommandButton2_Click()

    Dim i   As Long
    
    Sheets("Sayfa1").Select
    
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
     i = Cells(Rows.Count, "AD").End(3).Row
   
'    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AR$" & i).AutoFilter Field:=30, Criteria1:=TextBox1.Value

    MsgBox Application.WorksheetFunction.Sum(Range("AF:AF").SpecialCells(xlCellTypeVisible))
    
End Sub

 

[manly]

Teşekkürler...

 

[manly]

Necdet hocam çok uğraştım ama beceremedim... Yardımlarınızı bekliyorum

 

[manly]

Eklediğim dosyada toplamları aynı sayfadaki AS1 hücresine yazdırabildim. Fakat ben o AS1 hücresine yazılan toplamı Sayfa2 deki A2 hücresine yazdırmak istiyorum. Lütfen yardım..

 

[ZorBey_]

Denermisiniz.

 

[manly]

Sayın hocam AS1 hücresini devre dışı bırakacağız. Ayrı bir makro ile seçtiğimiz yıla ait AF sütunu toplamını direkt Sayfa2 deki A2 hücresine aktarmak istiyorum..

 

[manly]

Sanırım bu kod olacak, sayenizde bir fikir verdiniz...

Private Sub CommandButton2_Click()

Dim i As Long

Sheets("Sayfa1").Select

If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
i = Cells(Rows.Count, "AD").End(3).Row


ActiveSheet.Range("$A$1:$AR$" & i).AutoFilter Field:=30, Criteria1:=TextBox1.Value




Sayfa2.Range("A2") = WorksheetFunction.Sum(Range("AF:AF").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("B2") = WorksheetFunction.Sum(Range("AH:AH").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("C2") = WorksheetFunction.Sum(Range("AJ:AJ").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("D2") = WorksheetFunction.Sum(Range("AN:AN").SpecialCells(xlCellTypeVisible))



End Sub

 

[Necdet]

Bu yüzden kodların hepsini doğrudan vermedim

Doğru yolu bulmuşsunuz, tebrik ederim.

 

[manly]

Teşekkür ederim hocam. Allah razı olsun...

 

[manly]

Hocam sayfa isimlerinde değişiklik yapınca hatalar oluştu bir bakabilir misiniz?

 

[manly]

Grafik.Range("A2") = WorksheetFunction.Sum(Range("AF:AF").SpecialCells(xlCellTypeVisible))
Grafik.Range("B2") = WorksheetFunction.Sum(Range("AH:AH").SpecialCells(xlCellTypeVisible))
Grafik.Range("C2") = WorksheetFunction.Sum(Range("AJ:AJ").SpecialCells(xlCellTypeVisible))
Grafik.Range("D2") = WorksheetFunction.Sum(Range("AN:AN").SpecialCells(xlCellTypeVisible))
Bu Kod, aşağıdaki gibi mi olması gerekiyor acaba...




Sayfa2.Range("A2") = WorksheetFunction.Sum(Range("AF:AF").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("B2") = WorksheetFunction.Sum(Range("AH:AH").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("C2") = WorksheetFunction.Sum(Range("AJ:AJ").SpecialCells(xlCellTypeVisible))
Sayfa2.Range("D2") = WorksheetFunction.Sum(Range("AN:AN").SpecialCells(xlCellTypeVisible))

 

[manly]

Kodları Genel Programa aktardığımda,
ActiveSheet.Range("$A$1:$AR$" & i).AutoFilter Field:=30, Criteria1:=TextBox1.Value
bu kodda hata veriyor...

 

[manly]

Yardımcı olur musunuz?

ActiveSheet.Range("$A$1:$AR$" & i).AutoFilter Field:=30, Criteria1:=TextBox1.Value

Bu kod neden hata verir.

 

[ZorBey_]

Denermisiniz.,

Sheets("Grafik").Range("A2") = WorksheetFunction.Sum(Range("AF:AF").SpecialCells(xlCellTypeVisible))
  Sheets("Grafik").Range("B2") = WorksheetFunction.Sum(Range("AH:AH").SpecialCells(xlCellTypeVisible))
  Sheets("Grafik").Range("C2") = WorksheetFunction.Sum(Range("AJ:AJ").SpecialCells(xlCellTypeVisible))
  Sheets("Grafik").Range("D2") = WorksheetFunction.Sum(Range("AN:AN").SpecialCells(xlCellTypeVisible))

 

[manly]

Teşekkürler hocam...

 

[ZorBey_]

Kolay Gelsin iyi çalışmalar.