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

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
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...
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,585
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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

Kod:
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
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Teşekkürler...
 
Son düzenleme:
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Necdet hocam çok uğraştım ama beceremedim... Yardımlarınızı bekliyorum
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
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..
 

Ekli dosyalar

ZorBey_

Destek Ekibi
Destek Ekibi
Katılım
14 Mayıs 2011
Mesajlar
2,185
Excel Vers. ve Dili
Excel 2003 Türkçe
Denermisiniz.
 

Ekli dosyalar

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
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..
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
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
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,585
Excel Vers. ve Dili
Ofis 365 Türkçe
Bu yüzden kodların hepsini doğrudan vermedim :)

Doğru yolu bulmuşsunuz, tebrik ederim.
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Teşekkür ederim hocam. Allah razı olsun...
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Hocam sayfa isimlerinde değişiklik yapınca hatalar oluştu bir bakabilir misiniz?
 

Ekli dosyalar

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
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))
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Kodları Genel Programa aktardığımda,
ActiveSheet.Range("$A$1:$AR$" & i).AutoFilter Field:=30, Criteria1:=TextBox1.Value
bu kodda hata veriyor...
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Yardımcı olur musunuz?

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

Bu kod neden hata verir.
 

ZorBey_

Destek Ekibi
Destek Ekibi
Katılım
14 Mayıs 2011
Mesajlar
2,185
Excel Vers. ve Dili
Excel 2003 Türkçe
Denermisiniz.,
Kod:
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))
 
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Altın Üyelik Bitiş Tarihi
06.01.2018
Teşekkürler hocam...
 

ZorBey_

Destek Ekibi
Destek Ekibi
Katılım
14 Mayıs 2011
Mesajlar
2,185
Excel Vers. ve Dili
Excel 2003 Türkçe
Kolay Gelsin iyi çalışmalar.
 
Üst