2020 YILI GİDERLERİ tablosunun hangi sütunlarına veri eklenecek?
göndermiş olduğunuz çalışmada No sütunu dışındaki tüm sütunlar dolu ve B sütununda da tarihler var siz 607. satır öncesinde bir alana veri girdiniz ama o satırda tarih alanı da var ekleme yaparken bu alan göz önünde bulundurulacak mı?

ben excelden çok anlamam ama gidiş yolunuz zorlu ve engebeli  görünüyor
sayfa yapınızı değiştirmenizi tavsiye ederim.Başlangıç olarak
bütün aylar tek sayfada olmak zorunda değilse her ay farklı sayfada olsun
mesela ocak ayı sayfasını tüm formulleri vs tamamlayıp bunu kopyala yapıştır ile 
şubat , mart vs yapın ve gerekli yerleri o ay için değiştirebilirsiniz
eğer aylar alt alta tek sayfada olması gerekmiyorsa bunu mutlaka yapın
gibi formuller ile diğer sayfalardan bilgi alabiliyorsunuz
onun için kendinizi yormayın

---

ayrıca bu işin ustası sn. @feraz dır 
vakti varsa yardımdan gocunmaz 
derdinize derman olur

(22/04/2020, 17:47)accessman yazdı: ben excelden çok anlamam ama gidiş yolunuz zorlu ve engebeli  görünüyor
sayfa yapınızı değiştirmenizi tavsiye ederim.Başlangıç olarak
bütün aylar tek sayfada olmak zorunda değilse her ay farklı sayfada olsun
mesela ocak ayı sayfasını tüm formulleri vs tamamlayıp bunu kopyala yapıştır ile 
şubat , mart vs yapın ve gerekli yerleri o ay için değiştirebilirsiniz
eğer aylar alt alta tek sayfada olması gerekmiyorsa bunu mutlaka yapın

Kod:

=L265+Mart2020!J50

gibi formuller ile diğer sayfalardan bilgi alabiliyorsunuz
onun için kendinizi yormayın

---

ayrıca bu işin ustası sn. @feraz dır 
vakti varsa yardımdan gocunmaz 
derdinize derman olur

Yok hocam berduş hoca daha iyi anlar excelden.Az önce okudum yorumları anlamaya çalışıyorum dosyayıda indiremedim daha.

Bir modüle alttaki kodu ekleyip çalıştırırsanız istediğiniz olur.
Birde diğer türlü yaparım.609.cu satır sabitse alttaki kod biraz değişebilir kriter eklememeye gerek kalmaz.

Sub Aktar()

    

    Dim i As Integer, j As Integer

    Dim arr, bul As Range, bul2 As Range

    Dim kriter As String

    Dim yilSatir As Integer



    kriter = "YILI GÝDERLERÝ"

    

    arr = Array("OCAK", "ÞUBAT", "MART", "NÝSAN", "MAYIS", "HAZÝRAN", "TEMMUZ", "AÐUSTOS", "EYLÜL", "EKÝM", "KASIM", "ARALIK")

    

    Range("A609:G687").ClearContents

    

    Set bul2 = Range("A:G").Find(kriter)

    yilSatir = bul2.Row

    

    For i = LBound(arr) To UBound(arr)

        Set bul = Range("C").Find(arr(i))

        If Not bul Is Nothing Then

            For j = bul.Row + 3 To Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

                If Cells(j, 1).Value = "" Then Exit For

            Next

            Range("B" & bul.Row + 3 & ":G" & j - 1).Copy Range("B" & yilSatir + 3)

            yilSatir = Cells(Rows.Count, 4).End(3).Row - 3

        End If

    Next

    yilSatir = Cells(Rows.Count, 2).End(3).Row

    Range("A609").Value = 1

    Range("A609:A" & yilSatir).DataSeries

    Application.CutCopyMode = False



    Set bul = Nothing

    Set bul2 = Nothing

    Erase arr

End Sub

Doğrudan recordset ile almak mümkün değil mi? A1:g608 arası tablo gibi düşünülüp eğer f1<>"" and f2<>"" and f3<>"" gibi bir kriterle sorgu oluşturup workbook change olayına eklenemez mi?

---

Tabi önce 609dan sonraki alan bosaltilacak

Sayın @HORZUM excelde yanilmiyorsam gruplama ozelligi vardi onu kullanamaz misiniz? Tarihleri aylara gore gruplayabilirsiniz diye biliyorum.