Merhaba Üstadlarım,
Aşağıdaki işlemi daha kısa yoldan yapmak istiyorum. Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.
TX1 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2016")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2016"))), "#,##0.00")
TX2 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2017")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2017"))), "#,##0.00")
TX3 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2018")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2018"))), "#,##0.00")
TX4 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2019")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2019"))), "#,##0.00")
TX5 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2020")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2020"))), "#,##0.00")
TX6 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2021")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2021"))), "#,##0.00")
TX7 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2022")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2022"))), "#,##0.00")
TX8 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2023")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2023"))), "#,##0.00")
TX9 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2024")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2024"))), "#,##0.00")
Aşağıdaki işlemi daha kısa yoldan yapmak istiyorum. Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.
TX1 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2016")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2016"))), "#,##0.00")
TX2 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2017")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2017"))), "#,##0.00")
TX3 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2018")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2018"))), "#,##0.00")
TX4 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2019")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2019"))), "#,##0.00")
TX5 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2020")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2020"))), "#,##0.00")
TX6 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2021")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2021"))), "#,##0.00")
TX7 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2022")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2022"))), "#,##0.00")
TX8 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2023")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2023"))), "#,##0.00")
TX9 = Format(Application.WorksheetFunction.SumIfs(wsYünData.Range("H:H"), wsYünData.Range("A:A"), ">=" & CLng(CDate("01.01.2024")), wsYünData.Range("A:A"), "<=" & CLng(CDate("31.12.2024"))), "#,##0.00")