Hücre temizleme

[muratozmenler]

Hücre temizleme ve hücreden hücreye veri aktarımı

Selamlar...
Sayfa 1-2-3 hariç diğer sayfaların kırmızı alanlarını nasıl temizleme işlemi yaptırabiliriz not: Sayfa sayısı ve adları bilinmemektedir…

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kodlarının başlarına hata atlama kodunu ilave ediniz

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]On Error Resume Next[/COLOR]

Sub temizle()
Dim deg, i
Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
    For Each deg In Sheets(i).Range("c4:q19,b11:b34,g26:n165")
        If Sheets(i).Name <> Sheets("Sayfa1").Name And Sheets(i).Name <> Sheets("Sayfa2").Name _
        And Sheets(i).Name <> Sheets("Sayfa3").Name Then
        deg.Value = ""
        End If
    Next: Next
Application.ScreenUpdating = True
End Sub

 

[muratozmenler]

Teşekkür

Sayın ziya bey biraz ağır çalışıyor fakat sonuçta çalışıyor yardımınız için teşekkür ederim....
ZİYA BEY BİR ŞEY DAHA SORACAKTIM BU MANTIKLA SADECE B6 HÜCRESİNİN DEĞERİNİ C2 HÜCRESİNE AKTARABİLMEK İÇİN NASIL BİR İLAVE YADA DEĞİŞİKLİK YAPARIZ.