BİRLEŞTİRİLMİŞ RENKLİ HÜCREDEKİ VERİYİ SİLMEK

[sdtssmz]

Merhabalar,
1- Aşağıdaki formülü aktif sayfadaki sarı renkli birleştirilmiş hücrelere nasıl uyarlamam gerek ayrıca sonunda formunuz yazdırıldı mesajı eklemek istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

Sub temizle()
ActiveSheet.PrintOut
For Each hucre In [a1:e20]
If hucre.Interior.Color = vbYellow Then hucre.ClearContents
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Deneyin.

Sub temizle()
    Dim Hucre As Range
    With ActiveSheet
        .PrintOut
        For Each Hucre In .Range("a1:e20")
            If Hucre.Interior.Color = vbYellow And Hucre.MergeArea.Count > 1 Then Hucre = ""
        Next
    End With
End Sub

 

[sdtssmz]

Çok teşekkürler olmuş ancak bu sarı hücrelerin bazıları birleştirilmemiş yani sayfa içinde sarı renk gördüğü hücrelerin tek veya birleştirilmişte olsa silmem gerek ayrıca sipariş formu yazdırıldı mesajı vermesi mümkün mü eğer zor olmayacaksa

 

[sdtssmz]

Diğer bir sorunumda Aşağıdaki makroda formülleri ve nesneleri (butonları) silip değerler kalacak şekilde w10 ve f9 daki (f9 a formülle değer geliyor) değerleri birleştirerek çalışma sayfası adı olarak kaydetmek istiyorum. Eğer mümkün ise yukarıdaki makro ile tek makro olabilir.

Sub Farklı_Kaydet()
Application.ScreenUpdating = False
Sheets("SİPARİŞ FORMU").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\satinalma\Desktop\ÇALIŞMALAR\Yeni klasör\" & Range("W10") & ".xlsx"
ActiveWindow.Close
Application.ScreenUpdating = True

End Sub

 

[Muzaffer Ali]

O zaman aşağıdaki kodu deneyin.

Sub temizle()
    Dim Hucre As Range
    With ActiveSheet
        .PrintOut
        For Each Hucre In .Range("a1:e20")
            If Hucre.Interior.Color = vbYellow Then Hucre = ""
        Next
    End With
    msgbox "Sipariş yadırıldı."
End Sub

 

[sdtssmz]

O zaman aşağıdaki kodu deneyin.

Sub temizle()
    Dim Hucre As Range
    With ActiveSheet
        .PrintOut
        For Each Hucre In .Range("a1:e20")
            If Hucre.Interior.Color = vbYellow Then Hucre = ""
        Next
    End With
    msgbox "Sipariş yadırıldı."
End Sub

Ellerinize sağlık çok teşekkür ederim. Yukarıdaki diğer sorularıma bakma imkanınız olabilir mi.

 

[sdtssmz]

Ellerinize sağlık çok teşekkür ederim. Yukarıdaki diğer sorularıma bakma imkanınız olabilir mi.

bu nu sarı yerine açık gri renge uygulamak mümkün mü