Listbox'un 1. ve 2. Sütunlarındaki Verilere Göre Arama

[ahmed_ummu]

Günaydın arkadaşlar.

Listbox'un 1 Sütununda yıl, 2. sütununda ay adı var. Sayfada aratma yaparken Listbox'un 1. sütunu ve 2. sütununa göre aratma yaptırmak istiyorum ama yapamadım.

Mesela Listbox'un 1. sütununda 2011, 2 Sütununda Haziran değerleri var. Sayfadan A sütununda 2011, B sütununda Haziran değeri olan satırı bulacak. Kırmızı renkli olan satırın mantığı ile Tabi aşağıdaki kod ile hangi değeri seçersem seçeyim hep A sütununun en son satırını buluyor. İmleç oraya konumlanıyor. Yardımcı olursanız sevinirim.

On Error Resume Next
Sheets("KS").Select
For sut = 2 To [a65000].End(xlUp).Row
If Range("A" & sut) Like ListBox1.ListIndex(0) And Range("b" & sut) Like ListBox1.ListIndex(1) Then
Range("a" & sut).Select
End If
Next

 

[ahmed_ummu]

Bir de Hücrenin zemin rengini gri yapmak istiyorum ama aşağıdaki kod hata veriyor.

sh1.Range("m9").Interior.ColorIndex = &HE0E0E0

Aşağıdaki gibi rengi değişiyor ama yukarıdaki gri rengin sıra numarasını bilmiyorum. internetten araştırdım ama sıra numarası olarak bulamadım.

sh1.Range("m9").Interior.ColorIndex =1

 

[muygun]

Merhaba;
15
16
48
Bunları deneyin.
İyi çalışmalar.

Not:
Boş bir excel dosyasında sayfanın kod bölümüne;

Sub renkler()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next i
End Sub

Kodlarını yerleştirip çalıştırın.

 

[dEdE]

Bir de Hücrenin zemin rengini gri yapmak istiyorum ama aşağıdaki kod hata veriyor.
sh1.Range("m9").Interior.ColorIndex = &HE0E0E0
Aşağıdaki gibi rengi değişiyor ama yukarıdaki gri rengin sıra numarasını bilmiyorum. internetten araştırdım ama sıra numarası olarak bulamadım.
sh1.Range("m9").Interior.ColorIndex =1

sh1.Range("m9").Interior.Color = RGB(150, 150, 150)

 

[ahmed_ummu]

sh1.Range("m9").Interior.Color = RGB(150, 150, 150)

Merhaba arkadaşlar

Zemin rengi ekte gönderdiğim gibi oluyor saha koyu. Yampak istediğim ren ekte gönderdiğim resimde soldaki daha açık olan renk

 

[ahmed_ummu]

Merhaba;
15
16
48
Bunları deneyin.
İyi çalışmalar.

Not:
Boş bir excel dosyasında sayfanın kod bölümüne;

Sub renkler()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next i
End Sub

Kodlarını yerleştirip çalıştırın.

Teşekkürler Muygun bey.

Daha koyu bir gri renk oluyor önerdiğiniz kodlar ile

 

[dEdE]

Merhaba,
-İstediğimiz renk tonunu içeren hücreyi seçelim.
-Araç çubuğundan Dolgu Rengi butonunun yanındaki üçgene tıklayıp açalım.
-Tüm Renkler/Özel açalım.
İstediğiniz renk kodu orada sırasıyla yazıyor(RedGreenBlue)
Buraya bakılabilir.

✅ VBA: ColorIndex Kodları Listesi ve RGB Renkleri

➤ Bu MakaledeVBA Renk İndeksi Kodları ListesiVBA ColorIndex ÖrnekleriHücre Arka Planı Ayarla ColorSet Hücre Yazı Tipi ColorSet Hücre Kenarlıkları ColorGet Hücre Arka Planı ColorIndexBaşka Bir Hücrenin ColorVBA Renk Özelliğine Hücre Arka Planı Rengi Ayarlama Kod Listesi & RGB Renkleri…

tr.easyexcel.net

 

[ahmed_ummu]

Merhaba,
-İstediğimiz renk tonunu içeren hücreyi seçelim.
-Araç çubuğundan Dolgu Rengi butonunun yanındaki üçgene tıklayıp açalım.
-Tüm Renkler/Özel açalım.
İstediğiniz renk kodu orada sırasıyla yazıyor(RedGreenBlue)
Buraya bakılabilir.

✅ VBA: ColorIndex Kodları Listesi ve RGB Renkleri

➤ Bu MakaledeVBA Renk İndeksi Kodları ListesiVBA ColorIndex ÖrnekleriHücre Arka Planı Ayarla ColorSet Hücre Yazı Tipi ColorSet Hücre Kenarlıkları ColorGet Hücre Arka Planı ColorIndexBaşka Bir Hücrenin ColorVBA Renk Özelliğine Hücre Arka Planı Rengi Ayarlama Kod Listesi & RGB Renkleri…

tr.easyexcel.net

Teşekkürler

RGB(242, 242, 242)