seçilen renk dışında kalan yerleri kopyala özel yapıştır değerleri olarak değiştirme

[modoste]

merhaba sayın hocalarım
istediğim makronun açıklaması;

çalışmakta olduğum sayfada, örneğin B4:Z40 arasındaki hücrelerin bazılarında formül sonucu bulunan veriler var, bazıları manuel veriler. sarı dolgu rengine boyadığım yerler haricinde kalan verilerin formül sonucu bulunmuş olanları değer olarak yapıştırılmış gibi gösterilmesini makro istiyorum

makro çalıştırılmadan önce formül olarak görünmesine devam etmek istediğim bir yada birden fazla hücreyi sarı dolgu rengine boyuyorum, makro yu çalıştırıyorum
makro çalışınca birtek soru ekranı açıyo aralık seç diyo ben B4:Z40 diyorum ve makroyu çalıştırıyorum.

 

[Mahmut Kök]

Şu kodu deneyin:

Sub sariRenk()

Dim alan
Set alan = Range("B4:Z40")

    For Each hucre In alan
    
        If (hucre.Interior.ColorIndex <> 6) Then
        
        hucre.Value = hucre.Value
        
        End If
        
    Next

End Sub

 

[modoste]

B4:Z40 ifadesini G1 hücresine yazarak çalıştırmak istiyorum kodu nasıl revize ederiz hocam

en genel anlamda G1 hücresine B4:Z40 yazdım (yazmadan önce sarı dolguları yaptım belirledim diyelim) makroyu çalıştırdım
daha sonra G1= A1:A90 diyelim yazdım yine makro çalıştırdım,, aynı sayfada defalarca değişkenlikte yapabilirim ben herdefasında kod içindeki
Range("B4:Z40")
bu kısma müdahale etmeden, çözüm olmasını istedim

 

[Mahmut Kök]

Set alan = Range(range("G1"))

şeklinde deneyin.