Soru Autofill ve Özel Yapıştır (değerleri)

[leonadies]

Arkdaşlar Merhaba;
E sütunudanki formülü, Autofill ile D sütunundaki son satıra kadar çektirmek istiyorum.
Sonrasında bu sütun formüllerden kurtulsun ve formül sonuçları sadece değer olarak kalsın.

Dosyalarım ekli Makro ile mümkün mü ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Formulu_Degere_Cevir()
    Dim Son As Long
    
    Son = Cells(Rows.Count, 4).End(3).Row
    
    With Range("E1:E" & Son)
        .Formula = "=IF(D1<>"""",""DOLU"",""BOŞ"")"
        .Value = .Value
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[leonadies]

Teşekkürler sayın @Korhan Ayhan hocam Yine hızır gibisiniz

 

[leonadies]

@Korhan Ayhan hocam F,G,J, .... gibi sütunlarda farklı formüller varsa bunları da bir çırpıda bu şekilde yapılabilir mi?

 

[Korhan Ayhan]

Aynı mantıkla With-End With bloklarını istediğiniz kadar çoğaltıp kullanabilirsiniz.

 

[leonadies]

Evet @Korhan Ayhan hocam onu keşfettim ancak kast ettiğim ise E,F,G,H,K,L 1. satırlarına farklı farklı formüller girerek bir çırpıda E:L & son aralığını bu şekilde yapabilir miyiz?

 

[Korhan Ayhan]

İşin içinde makro varsa hemen hemen her şeyi yapabilirsiniz.

 

[leonadies]

ELbette sayenizde öğreniyoruz