Sütundaki sadece kırmızıları süzme

[erdincce]

Selam 1000 satırlık bir dosyadaki b2den b1000 e kadar olan aralıktaki kırmızı font ile yazdığım rakamları nasıl süzebilirim
Tşk

 

[cako]

Sayfa üzerine bir buton koyun. Butonun kod sayfasın aaşağıdaki kodları yapıştırın. Bu kodlar B sütunundaki kırmızı yazıları C sütununa listeler.
[vb:1:ff7316b5c5]Private Sub CommandButton1_Click()
k = 1
For i = 1 To Range("B65536").End(xlUp).Row
If Range("A" & i).Font.Color = vbRed Then
Cells(k, 3) = Cells(i, 2)
k = k + 1
End If
Next i
End Sub[/vb:1:ff7316b5c5]

 

[esolen]

Peki Butonu nasıl koyabiliriz

 

[zafer]

Merhaba

Denetim_araç çubuklarından bir komut düğmesi(buton)ekleyin mouse ile tık tıklayın Açılan VBA perceresinde Sayın Cakonun kodlarını yapıştırın

 

[gokay]

merhaba

Excel denetim araç kutusunu açtığında gri dikdörtgen küçük bir kutu göreceksin. Üzerine basıp excel üzerinde sürükleyip istediğin alana yerleştir. Üzerini çift tıkla ve yukarıdaki formülü tanımla. Butonun çalışması için Tasarım modundan çıkmasın.

 

[erdincce]

yaw usta daha beceremedim ama inşallah yapıcam çok teşekkürler burdaki formulu başka şeylere uyarlamak için hangisinin neyi ifade ettiğinide belirtebilirmisiniz örneğin k sütunundaki yeşil fontlular için nereleri değiştreceğimi bilmek istiyorum ilginize teşekkürler

 

[cako]

Cells(k,3) ifadesi k.satır 3. sütunu ifade eder. Yani diyelimki k=5 ise C5 gücresini temsil eder.
Siz diyelim G sütununda işlem yapacaksınız; (k,3) ifadesini C=3, D, E, F, G=7 oluyor.
Renk içinde eğer biliyorsanız Hexadecimal renk kodlarını bilmiyorsanız örnekteki gibi vbRed=kırmızı, vbyellow=sarı, vbwhite=beyaz gibi