Metin rengi değişen hücrenin tüm satırını başka sayfaya aktarmak

[unur]

Mrb Arkadaşlar;

Ne derece yapılabilir ama şöyle bir şeye ihtiyacım var.

Sayfa2 de 1500 tane verim var. A1:H1500 arasında
Evrak kontrolü yaparken incelediğim satırları c sutunundaki soyisimleri kırmızı yaparak kontrol edildi diye işaretliyorum.

C sutununda soyismini kırmızı yaptığım tüm satırdaki bilgilerin Sayfa2 den silinip Sayfa3 aktarılmasını sağlayabilirmiyim.

Amaç kontrol ettikçe Sayfa2 deki bilgileri kontrol ettikçe, kontrol edeceğim satırların azalması.

Üstadlarımız yardımcı olursa sevinirim.
Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa2 nin kod bölümüne kopyalayınız.

Kontrol yaptığınız satırda herhangi bir hücreye Çift Tıklandığında o satırı sayfa3 e atar ve ilgili satırı siler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim Kol As Integer
    Dim i   As Long
    Kol = Cells(1, Columns.Count).End(1).Column
    
    i = Sheets("Sayfa3").Cells(Rows.Count, "A").End(3).Row + 1
    Range(Cells(Target.Row, "A"), Cells(Target.Row, Kol)).Copy Sheets("Sayfa3").Range("A" & i)
    Rows(Target.Row).Delete
    
End Sub

 

[uzmanamele]

Merhaba
Ben de bir çalışma yapmıştım, boşa gitmesin.
Renkli satırları silmek yerine gizlemeyi tercih ettim.

Sub kontrollist()
Set s1 = Sheets("sayfa2")
Set s2 = Sheets("sayfa3")
j = 2
ss = s1.Range("a65536").End(3).Row
For i = 2 To ss
If s1.Cells(i, "c").Interior.Color = 255 Then
s1.Range("a" & i & ":" & "h" & i).Copy
s1.Rows(i).EntireRow.Hidden = True
s2.Select
Range("A" & j).Select
    ActiveSheet.Paste
j = j + 1
End If
Next
s2.Columns("C:C").Interior.Color = xlNone
Application.CutCopyMode = False
End Sub

 

[unur]

Necdet bey ve uzmanamele ilginize çok teşekkürler.Bilginize ve elinize sağlık.