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?
(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.
(04/05/2020, 04:59)feraz yazdı: 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)
Elinize sağlık çok makbule geçer. Çok teşekkür ederim.
Unutmuştum yazmasaydınız örnek olarak kısaca makro kaydetle nasıl aptığımı gösterdim tabii çıkan kodları düzenledim.
(04/05/2020, 04:59)feraz yazdı:
Unutmazsam gif olarak eklerim nasıl yaptığımı makro kaydet ile tabii düzenlemiştim çıkan sonucu.
Çok güzel olmuş elinize sağlık. Mahzuru yoksa gif kaydetme olarak hangi programı kullanıyorsunuz? Emeğiniz için de teşekkürler.