Sayfalardan Yıl seçimine göre bilgi alma.

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,147
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office Professional Plus 2016
Altın Üyelik Bitiş Tarihi
04-06-2024
Herkese Merhabalar,

Ekte halihazırda kullanmakta olduğum Aidat Takip dosyası bulunmakta.
Dosyaya ekleme yaparak Yıl bazında kişilerin borçlarını ve borç aylarını sayfada açıkladığım şekilde listelemek istiyorum.
Bu konuda yardımlarınızı rica ederim.
Saygılarımla,
sward175
 

Ekli dosyalar

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,147
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office Professional Plus 2016
Altın Üyelik Bitiş Tarihi
04-06-2024
Herkese İyi Geceler,
Ekli dosyada Borç sorgulama sayfası Borç TL (C5:C15) aralığında formülü bulunuyor.
D5 hücresine, C1 hangi sayfaya eşit ise, O sayfanın E4:p4 aralığında ödemeleri gereken TL yazıyor. E5:p15 aralığında boş olan hücrelerin E3:p3 aralığındaki isimlerini aralarında virgül olarak bu hücreye getirsin.
Bu formül için yardımlarınızı rica ederim.
Saygılarımla,
sward175
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,147
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office Professional Plus 2016
Altın Üyelik Bitiş Tarihi
04-06-2024
Herkese Merhabalar,

Aşağıdaki isteğimi bilgisayarımdaki Copilot' a yazdım ve aşağıdaki kodu verdi.
Ama sonuca ulaşamadım.
Kodun düzenlenmesi için yardımlarınızı rica ederim.
Saygılarımla,
sward175

C1 hücresinden Yılı seçince, Sayfalarda ara ve O sayfanın E4:p4 aralığında ödemeleri gereken miktarı izle. E5:p15 aralığında ödenmemiş olan hücreleri tespit et, bu hücrelerin E3:p3 aralığındaki isimlerini aralarında virgül olarak D5:D15 aralığına getir.

Sub OdemeTakip()
Dim ws As Worksheet
Dim yillarSheet As Worksheet
Dim yil As String
Dim i As Integer
Dim k As Integer
Dim odemeMiktari As Variant
Dim isimler As String

yil = ThisWorkbook.Sheets("Sheet1").Range("C1").Value

For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "*" & yil & "*" Then
For i = 5 To 15
For k = 5 To 15
If ws.Cells(i, k).Value = "" Then
If isimler = "" Then
isimler = ws.Cells(3, k).Value
Else
isimler = isimler & ", " & ws.Cells(3, k).Value
End If
End If
Next k
Next i
ThisWorkbook.Sheets("Sheet1").Range("D5").Value = isimler
Exit For
End If
Next ws
End Sub
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,147
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office Professional Plus 2016
Altın Üyelik Bitiş Tarihi
04-06-2024
Herkese Merhabalar,

Copilot ta uğraşarak 2024 yılı için bilgileri alıyorum.
2 Konuda yardıma ihtiyacım bulunuyor.
1. İsteğim D5:D15 aralığına gelen sorgulama sonucunun Ocak 2024, Şubat 2024, Mart 2024 gibi gelmesi için yardımlarınızı rica ederim.
2. Şu an Borç sorgu sayfası C1 hücresinden 2024 seçili olarak bilgi geliyor. İsteğim hangi yıl seçilirse o yıla ait bilgiler gelsin.

Bahsi geçen 2 konuda yardımlarınızı rica ederim.
Saygılarımla,
sward175
 

Ekli dosyalar

Üst