Listview Nesnesin de Düzenleme Hakkında..

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Birde bu dosyaya bak
 

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026


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?:oops::oops:
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Merhaba mesaj yazarken hangi mesajdaki hangi dosya olduğunu belirtin zira burada bir çok dosya oldu

Bu dosyayı irdeleyiniz.
 

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026


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:oops::oops:
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu dosyaya bir bakınız.
 

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026


"24 nolu mesajınızdaki dosyaya binaen"

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

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu kodlar sizin koşullu biçimlendirme formülleriyle aynı açıklama sayfasında deneyiniz.

Kod:
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu dosyada AL sayfasındaki komut düğmelerini çalıştırabilirsiniz yada ilk önce userformu açın irdeleyiniz.
 

Ekli dosyalar

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
Halit bey, kaç gündür sizi de uğraştırdım. İnanın nasıl teşekkür edeceğimi bilemiyorum.:oops::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
Kod:
Call deneme27
,
Kod:
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?
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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.
 

Ekli dosyalar

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
Kod:
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.:oops::oops:

Kusura bakmayın ben yazarken siz cevaplamışsınız zaten.
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Teşekkürler iyi çalışmalar
 

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026


:oops::oops: 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 ;
Kod:
=EĞER(VE(B3<>H3;D3<>H3;VE(E3<>H3;G3<>H3));1;0)
J3 için ;
Kod:
=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.
Kod:
=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.
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Her iki kod içinde

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

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

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
Halit bey, hepsinde de "Next i" var:-(

Tamam Halit bey, sanırım deneme27 ve 28 kodlarının hemen deniyorum.
 
Son düzenleme:

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
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:oops::confused:
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
37 nolu mesajdaki kodu güncelledim.
 

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
964
Excel Vers. ve Dili
Excel 2016,32bit
Altın Üyelik Bitiş Tarihi
14-02-2026
Halit bey, :oops::bravo::mutlu::mutlu:
 
Üst