Listview Nesnesin de Düzenleme Hakkında..

[yesimgurol]

Halit Bey, ilginize çok teşekkür ederim gerçekten,sizi de uğraştırıyorum.
Lakin evet renklendirme tam otursa iyi olacak ama sanırım B,D ve E,G sütunlarında arama yapıyor. :-( Satır bazında olabilir mi?
Yani örneğin R3 deki değeri B3,D3 ve E3,G3 arasa

 

[halit3]

Birde bu dosyaya bak

 

[yesimgurol]

Halit Bey, :mutlu::mutlu:
Bu sefer evet oluyor. Orjinal veriler üzerinde de denediğimde olabilecek bir ihtimal var. Resimdeki gibi yani B10: D10 (değişkenlik gösterebilir) ve E10:G10 eşit olduğunda R11:S11 in ikisi de yeşil değilde 1'i yeşil ,1'i mavi olabilir mi?
..ve eğer hani hiçbir uyum olmadığında renksiz olur ya, renksiz değil de kırmızı olabilir mi?

 

[halit3]

Merhaba mesaj yazarken hangi mesajdaki hangi dosya olduğunu belirtin zira burada bir çok dosya oldu

Bu dosyayı irdeleyiniz.

 

[yesimgurol]

Halit Bey, 24 nolu mesajınızdaki son düzenlediğiniz dosyaya binaen ;

Resimde anlatmaya çalıştığım şekildeki olay da çözülse tamam olacak gibi

 

[halit3]

Bu dosyaya bir bakınız.

 

[yesimgurol]

"24 nolu mesajınızdaki dosyaya binaen"

Halit Bey, ne diyeceğimi nasıl teşekkür edeceğimi bilemiyorum inanın ki
Ama çok az bir düzeltme kaldı gibi.

 

[halit3]

Bu kodlar sizin koşullu biçimlendirme formülleriyle aynı açıklama sayfasında deneyiniz.

Sub deneme15()
sut =[COLOR="Red"] 8[/COLOR]
Range(Cells(3, sut), Cells(17, sut)).Interior.ThemeColor = xlNone
Range(Cells(3, sut), Cells(17, sut)).Font.ColorIndex = xlAutomatic

For i = 3 To Cells(Rows.Count, sut).End(3).Row
aranan = Cells(i, sut).Value
If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), aranan) > 0 Then
Cells(i, sut).Interior.Color = 45152
End If

If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), aranan) = 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "g")), aranan) > 0 Then
Cells(i, sut).Interior.Color = 11957550
End If
End If
Next i
End Sub

Sub deneme16()
sut = 10
Range(Cells(3, sut), Cells(17, sut)).Interior.ThemeColor = xlNone
Range(Cells(3, sut), Cells(17, sut)).Font.ColorIndex = xlAutomatic

For i = 3 To Cells(Rows.Count, sut).End(3).Row
aranan = Cells(i, sut).Value

If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, sut).Value) > 0 Then
Cells(i, sut).Interior.Color = 45152
End If

If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, sut).Value) = 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "e")), Cells(i, sut).Value) > 0 Then
Cells(i, sut).Interior.Color = 11957550
End If
End If

If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "g")), Cells(i, "j")) = 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, "j")) > 0 Then
Cells(i, sut).Interior.Color = 45152
End If
End If

If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "g")), Cells(i, "j")) > 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, "j")) > 0 Then
If Cells(i, "h") <> Cells(i, "j") Then
Cells(i, sut).Interior.Color = 45152
End If
End If
End If

If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "g")), Cells(i, "j")) > 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, "j")) = 0 Then
Cells(i, sut).Interior.Color = 11957550
End If
End If

If WorksheetFunction.CountIf(Range(Cells(i, "e"), Cells(i, "g")), Cells(i, "j")) > 0 Then
If WorksheetFunction.CountIf(Range(Cells(i, "b"), Cells(i, "d")), Cells(i, "j")) > 0 Then
If Cells(i, "h") = Cells(i, "j") Then
Cells(i, sut).Interior.Color = 11957550
End If
End If
End If

Next i
End Sub

 

[halit3]

Bu dosyada AL sayfasındaki komut düğmelerini çalıştırabilirsiniz yada ilk önce userformu açın irdeleyiniz.

 

[yesimgurol]

Halit bey, kaç gündür sizi de uğraştırdım. İnanın nasıl teşekkür edeceğimi bilemiyorum.:bravo::dua2::dua2:

29 nolu mesajınızdaki dosya dediğiniz gibi koşullu biçimlendirmedeki formüller ile aynı çalışıyor. Muazzam olmuş gerçekten.
Lakin kaç gündür o değer böyle olsa , bu değer bu olsa,olmadı o değerler böyle olsa.. baka baka algıda problem yaşamaya başladım:-(
Baktığımda aslında formüllerde eksik olan bir olasılık olmuş gibi, şimdi onu inceliyorum. Netlik kazanınca hemen açıklama yapacağım.

Bir ricam olacaktı,şöyle ki;
29 nolu mesajınızdaki dosyadaki düğmeleri kullanmadan direkt userform açtığımda renklendirme gerçekleşmesi için ne yapmak lazımdı.
ANASAYFA butonunun kod kısmına

Call deneme27

,

Call deneme28

ekledim. Fakat listview açıldığında renklenmiyor göründü, userform u kapatıp tekrar açtığımda renklenmiş oldu. Böyle mi olması lazımdı yoksa başka bir işlem yapmak lazım gelir mi?

 

[halit3]

Kodları userform4'ün içene ayrıca koydum form açılmadan önce işlemi yapıyor ve form açılıca sonlanıyor.

Diğer bütün kodları silebilirsiniz.

 

[yesimgurol]

Sub UserForm_Initialize()
Call deneme27
Call deneme28

Bu şekilde yapınca oldu:mutlu::mutlu:

Ya gerçekten çok teşekkür ederim, Halit Bey:bravo::dua2:

Dediğim gibi sorun oluşturacak bir olasılık var gibi netlik kazandırdığım da açıklamaya çalışacağım.

Kusura bakmayın ben yazarken siz cevaplamışsınız zaten.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[yesimgurol]

Merhaba Halit Bey,
Doğrusu bu isteklerim hiç bitmiyor:-( Orjinal dosyada çalışırken ne yazık ki ek durumlar çıktı. Kendi kendime halletmeye çalıştım. Formül ile resimde ki İSTEK1 kısmını aşağıdaki formülleri koşullu biçimlendirmeye yazarak halletmeye çalıştım.
H3 için ;

=EĞER(VE(B3<>H3;D3<>H3;VE(E3<>H3;G3<>H3));1;0)

J3 için ;

=EĞER(VE(B3<>J3;D3<>J3;VE(E3<>J3;G3<>J3));1;0)

Bu şekilde yaptığımda mavi/yeşil renk koşuluna uymayan olur ise kırmızı oluyor.
Fakat sizin listview3 için oluşturduğunuz kodlara uyarlamam:-(

İSTEK2 olayını da yine EĞER formülü ile yapmaya çalıştığımda bir hücre için yapabildim ama iki hücreyi aynı anda değerlendirmeyi beceremedim. Onun içinde şu şekilde formül yazmaya çalıştım.

=EĞER(VE(E3<>H3;G3<>H3);"EŞİTLİK YOK")

Bu arada dosyanın son hali ve kullandığım 31 nolu mesajınızdaki dosyadır.

 

[halit3]

Her iki kod içinde

Next i

Yukarıdaki bölümün hemen üstüne aşağıdaki kodu ekle

If Cells(i, sut).Font.ColorIndex = xlAutomatic Then
Cells(i, sut).Font.Color = 255
Cells(i, "AL").Value = "Eşitlik yok"
End If

 

[yesimgurol]

Halit bey, hepsinde de "Next i" var:-(

Tamam Halit bey, sanırım deneme27 ve 28 kodlarının hemen deniyorum.

 

[halit3]

Dosyayı ekliyorum.

 

[yesimgurol]

Muazzam vallahi:mutlu::mutlu::dua2:

Halit bey, "eşitlik yok" yazıyor ya hani AL hücresine eşitlik sağlayıcı değeri girdiğimde yani kırmızı olan değer düzeldiğinde AL deki eşitlik yok yazısı da silinse kalmasa orda olmaz mı ki

 

[halit3]

37 nolu mesajdaki kodu güncelledim.

 

[yesimgurol]

Halit bey, :bravo::mutlu::mutlu: