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]
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.
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.