Soru Sayfalardan formül çekerken satır sabitleyip sütun değiştirmek...

[saltocu2005]

Sayfalardan formül çekerken satır sabitleyip sütun değiştirmek istiyorum. Şöyle izah edeyim puantaj tuttuğumuz dosyada hergün sütunlara verileri giriyoruz. En son özet kısmı var orada da sayfalardan verileri çekiyor. Ben istiyorum ki orada yazan tarihe göre o tarihin verilerini çekip özette göstersin. Bu konuda yardımcı olabilir misiniz? İsterseniz puantajı özelden gönderebilirim.

 

[MusaPEKEL]

Sayfalardan formül çekerken satır sabitleyip sütun değiştirmek istiyorum. Şöyle izah edeyim puantaj tuttuğumuz dosyada hergün sütunlara verileri giriyoruz. En son özet kısmı var orada da sayfalardan verileri çekiyor. Ben istiyorum ki orada yazan tarihe göre o tarihin verilerini çekip özette göstersin. Bu konuda yardımcı olabilir misiniz? İsterseniz puantajı özelden gönderebilirim.

Daha önceden böyle bir sorun ile özel olarark ilgilendim kodun size işe yarayabilir denermisiniz. İnfo olarak üstlerine yazdım.

Sub VeriCekVeOzetteGoster()
    Dim ozetSayfa As Worksheet
    Dim puantajSayfa As Worksheet
    Dim tarihSutunu As Integer
    Dim hedefTarih As Date
    Dim sonSatir As Long
    Dim i As Long

    ' Özet sayfasını belirle
    Set ozetSayfa = ThisWorkbook.Sheets("Ozet")

    ' Puantaj sayfasını belirle
    ' Puantaj sayfasının adını doğru şekilde değiştirin
    Set puantajSayfa = ThisWorkbook.Sheets("Puantaj")

    ' Hedef tarihi belirle
    ' Örnek olarak, J1 hücresindeki bir tarihi alıyoruz
    hedefTarih = ozetSayfa.Range("J1").Value

    ' Tarih sütununu belirle
    ' Örnek olarak, tarih sütunu "A" sütununda olsun
    tarihSutunu = 1

    ' Puantaj sayfasındaki son satırı bul
    sonSatir = puantajSayfa.Cells(puantajSayfa.Rows.Count, tarihSutunu).End(xlUp).Row

    ' Özet sayfasındaki verileri temizle
    ozetSayfa.Range("A2:Z1000").ClearContents

    ' Hedef tarihi bul ve verileri özete kopyala
    For i = 2 To sonSatir
        If puantajSayfa.Cells(i, tarihSutunu).Value = hedefTarih Then
            puantajSayfa.Rows(i).Copy ozetSayfa.Cells(ozetSayfa.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next i
End Sub

 

[MusaPEKEL]

Gönderilen dosya eksik ve hata vermektedir. diğer puantaj kısmındaki Kut puantaj_13.12.2023.xlsx yoktur bilginize.

 

[saltocu2005]

https://drive.google.com/file/d/1pGHrV9x56plSoIglw7vc5VtXNlmQtauc/view?usp=sharing google drive a yükledim şifresi şifre "agamez"