(04/05/2020, 03:58)yyhy yazdı: Sayın @farez bey kodların ikisi de işimi gördü son koddaki şu satırı yorumlamaya çalıştım ama terimleri çözemedim.
 .Range("D2 : D" & .Cells(Rows.Count, "D").End(3).Row).SpecialCells(xlCellTypeFormulas, 23).Copy 
Acaba hem işimizi halledelim sayenizde hem de birşeyler öğrenelim diye düşünüyorum. Zahmet olmaz ise yeşil renkli bölümden küçük bir açıklama yapabilir misiniz?

Bu kod D2 ile D sütunundaki son dolu satır arasındaki boş olmayan formüllü hücreleri kopyalar.Alttaki kısım son dolu satırı bulur.
Cells(Rows.Count, "D").End(3).Row)
Alttaki ise excelin bir özelliği özel git menüden bir özellikti unuttum.Unutmazsam resim atarım makro kaydet ile bulmuştum.
SpecialCells(xlCellTypeFormulas, 23)

---

Unutmazsam gif olarak eklerim nasıl yaptığımı makro kaydet ile tabii düzenlemiştim çıkan sonucu.