Kırmızı renk hücre değerlerini silmek

[kargec]

Arkadaşlar selamlar...

Q4:Q26 ve R4:R26 hücreleri hesaplamalar sonucunda kırmızı ve yeşil hücre rengi almaktadır. Kırmızı hücrelerin yazı tipi de kırmızı oluyor ve değerler görünmüyor. Ancak hücreleri seçip kopyaladığımda alta gizlenmiş değerleri'de kopyalıyor.
İlgili hücreler kırmızı olduğunda sayısal değerlerin silinmesini istiyorum. Böylece ilgili hücreleri kopyaladığımda hücre değerleri boş görünecek.
Yardımcı olursanız sevinirim.

Saygılar..

 

[çıtır]

İlgili sayfanın kodu olarak kopyalayınız.Sayısal değer girdiğinizde hücre rengi kırmızı ise siler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Q4:R26]) Is Nothing Then Exit Sub
Dim rng As Range
For Each rng In Range("Q4:R26")
If rng.Interior.ColorIndex = 3 And WorksheetFunction.IsNumber(rng) Then
rng.ClearContents
End If
Next
End Sub

 

[kargec]

Maalesef silinmedi kardeşim.

 

[çıtır]

Kodu kopyalayınzı .Sayfa Sekmesinde,fare sağ tuşu kodu görüntüle tıkla. kodu beyaz boşluğa kopyalayınız. R4 ,R26 veya Q4, Q26 Hücreleri arasına bir sayısal değer girin.silinip silinmediğine bakınız.Olmazsa örnek dosya yükleyin bakalım.

 

[kargec]

Kodu kopyalayınzı .Sayfa Sekmesinde,fare sağ tuşu kodu görüntüle tıkla. kodu beyaz boşluğa kopyalayınız. R4 ,R26 veya Q4, Q26 Hücreleri arasına bir sayısal değer girin.silinip silinmediğine bakınız.Olmazsa örnek dosya yükleyin bakalım.

Dosya linkini size gönderdim.

 

[kargec]

Link Burda

http://www.dosya.tc/server13/g8b95l/Esat.rar.html

 

[çıtır]

Link Burda

http://www.dosya.tc/server13/g8b95l/Esat.rar.html

Dosyanızda herhangi bir renk veya yazı görmedim.Ben çözüm bulamıyorum.

 

[kargec]

https://i.hizliresim.com/kONoom.jpg

q4:q26, r4:r26 satırlarında bulunan kırmızı renkteki hücrelerin altında gizlenmiş değerlerin silinmesi

 

[çıtır]

Modüle kopyalayıp çalıştırınız.

Sub kırmızısil()
Dim s1 As Worksheet
Set s1 = Sheets("Macros Disabled")
Dim rng As Range
For Each rng In s1.Range("Q4:R26")
If rng.Interior.ColorIndex = 3 Then
rng.ClearContents
End If
Next
End Sub

 

[kargec]

maalesef çalışmadı.

 

[kargec]

yazıcı resmi var orayı tıklattığınızda sol taraftan (L:M) değer alır rapor başarıyla alındı der Q ve R ye atar. istenmeyen değerler kırmızı ile gizlenir. Gizlenmiş değerlerin silinmesini istiyorum.

 

[çıtır]

maalesef çalışmadı..

Dosyanız neden boş .Resimde görülen dosya yüklü değil? kısa bir sayfa dolgu renginiz nasıl? Gelen veriler sayımı. Veriler formüllemi geliyor.Tüm bunları bilmemiz gerekirdi.Boş dosya ve anlaşılmaz resim.Benden bu kadar arkadaş.Sorunu çözümünü arayan.Çözmiyen çaşlışana yardımcı olur.Ben deniyorum gayet güzel kırmızı dolgudaki sayı ve metinleri siliyor.Eminim kodları forumda başka deneyenlerde olaçaktır.Umarım sorunuzu başka bir arkadaş çözer.

 

[çıtır]

mesaj iptal

 

[kargec]

kardeşim o özel bir program telefon numaranı izin verirsen arayayım anlatayım çok basit aslında.

 

[kargec]

ayrıca dosya boş değil ilk sayfada makro zorlaması var.

 

[kargec]

https://hizliresim.com/D7NNjZ

program bundan ibaret.