renkli satır ayıklama

Katılım
14 Şubat 2008
Mesajlar
132
Excel Vers. ve Dili
2003 tr
arkadaşlar ekte gönderdiğim tablodaki renkli satırları rengine göre ayıklayıp
2.sayfaya atacak bir formül arıyorum.yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Formülle değilde makro ile
Butona tıklayınız.Ekli dosyayı inceleyiniz.:cool:
 
Katılım
14 Şubat 2008
Mesajlar
132
Excel Vers. ve Dili
2003 tr
yardımlarınız için çok teşekkür ederim evren bey!! yanlız bunu nasıl yaptığınızı da söylerseniz çok mutlu olurum, çünkü vereceğiniz yöntemi ben çok büyük bir tabloda uygulayacağım.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Renk kodlarını sayfa2'de C sütununa yazdırıyorum.Sonra C sütununa göre artan sıralama yapıyorum.
Sonrada C sütunundaki kolunu siliyorum.
Burada dikkat edeceğiniz nokta C sütununa hiçbir şekilde veri girmemeniz gerkiyor.Zira C kolunu silinecektir.
Kodlar aşağıdadır.:cool:
Kod:
Sub renkli()
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
Sheets("Sayfa2").Range("A2:B65536").Clear
sat = 2
Application.ScreenUpdating = False
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If Cells(i, "B").Interior.ColorIndex <> xlNone Then
        Sheets("Sayfa2").Cells(sat, "A").Value = Cells(i, "A").Value
        Sheets("Sayfa2").Cells(sat, "B").Value = Cells(i, "B").Value
        Sheets("Sayfa2").Range("A" & sat & ":B" & sat).Interior.ColorIndex = Cells(i, "B").Interior.ColorIndex
        Sheets("Sayfa2").Cells(sat, "C").Value = Cells(i, "B").Interior.ColorIndex
        sat = sat + 1
    End If
Next i
Sheets("Sayfa2").Select
Range("A2:C65536").Sort Range("C2")
Columns(3).Delete
MsgBox "&#304;&#351;lem Tamam....!!", vbOKOnly + vbInformation, "&#304;&#350;LEM"
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kod:
Sheets("Sayfa2").Range("A2:B65536").Clear
Kodlardaki yukarıdaki satırı aşağıdaki satır ile değiştiriniz.:cool:
Kod:
Sheets("Sayfa2").Range("A2:[COLOR="Red"][B]C[/B][/COLOR]65536").Clear
 
Katılım
15 Ağustos 2007
Mesajlar
248
Excel Vers. ve Dili
excel 2003
türkçe
Altın Üyelik Bitiş Tarihi
27-05-2024
ekteki dosyayı inceleyiniz
 
Üst