Listview Nesnesin de Düzenleme Hakkında..

yesimgurol · 30 Mayıs 2018

Merhabalar ;

Yardımlarınız ile daha önce oluşturmuş olduğum dosyalardan bakarak ve gerekse forumdaki örneklere bakarak , oluşturacağım yeni dosyamda verileri Userform üzerinden kontrol etmek adına düzenleme yapıyorum.

Form üzerine ekleyebildiğim Listviewlerde bir takım düzenlemeye ihtiyacım var.Şöyle ki ;

- Lİstview 1-2-3-4 için veriler 1.satrıdan itibaren görünmeye başlıyor, verilerin listview de 3.satırdan itibaren alınması,
- Listview lerdeki satır aralıklarını (alta doğru) biraz daha açmak mümkün müdür?

Özellikle Listview 3'e veriler H:J sütunundan alınmakta acaba sütundaki biçimlendirme renkleriyle birlikte listview de görünmesi mümkün mü?

yesimgurol · 30 Mayıs 2018

Kaydet ile verileri aynı anda Listview de görüntülenmesi için şu kodları bulup kendime göre düzenledim.:mutlu::mutlu:

Kod:

Private Sub refresh()
ListView4.ListItems.Clear
For i = 1 To Sheets("AL").Cells(60000, 1).End(3).Row
ListView4.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView4.ListItems(i).SubItems(1) = Sheets("AL").Cells(i, 11).Value
ListView4.ListItems(i).SubItems(2) = Sheets("AL").Cells(i, 13).Value

Next i
End Sub

Kaydet kodlarının en altına da ;

Kod:

Call refresh

Yazdığımda oldu

Lakin diğer sorunlarım için :???::yardim:

Necdet · 30 Mayıs 2018

Merhaba,

Aşağıdaki örneği incelerseniz diğerlerini yapabilirsiniz sanırım.

Kod:

For i = [COLOR="Red"][B]3[/B][/COLOR] To Sheets("AL").Cells(6666, 1).End(3).Row

    ListView1.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
    ListView1.ListItems(i [COLOR="red"][B]- 2[/B][/COLOR]).SubItems(1) = Sheets("AL").Cells(i, 2).Value
    ListView1.ListItems([COLOR="red"][B]i - 2[/B][/COLOR]).SubItems(2) = Sheets("AL").Cells(i, 4).Value

Next i

yesimgurol · 31 Mayıs 2018

Nejdet Bey,
Evdeki excel de Listview nesnesi kayboldu ne yazık ki:-(
İş yerimden ancak deneyebildim. Diğerleri içinde uyguladım çok da güzel oldu sayenizde.
Son bir ricam olsa , Lİstview3 ' e veriler,"AL" sayfasındaki H:J sütunundan alınmakta acaba excel sütundaki biçimlendirme renkleriyle birlikte listview3 de görünmesi mümkün mü?

yesimgurol · 31 Mayıs 2018

Merhabalar,
Resimdeki H:J sütunlarındaki veriler Listview 3 'te gösteriliyor. Forumda araştırdım satır renklendirmesi örneklerine rastladım ki daha önceki dosyalarımda da mevcuttu..Merak ettiğim resimdeki gibi renklendirme yapmak mümkün mü? Listview 3 kodlarım ise ;

Kod:

With ListView3
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "MARKER ", 50
     .ColumnHeaders.Add , , "G", 20, 2
     .ColumnHeaders.Add , , "G", 20, 2
     
     
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With
For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row
ListView3.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView3.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 8).Value
ListView3.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 10).Value

Next i

halit3 · 1 Haziran 2018

Merhaba

H ve J sutünlarında koşullu biçimlendirme var. Ben formüllerden pek anlama bu kodu bir deneyiniz
koşulları ise kırmızı bölümler sağlamakta hücreler eşitse veya büyük küçükse ondan dolayı buralarla oynamak gerekiyor.

Kod:

For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row
ListView3.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView3.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 8).Value
ListView3.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 10).Value

deg1 = Array(-4105, -4142, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, _
11, 12, 13, 14, 15, 16, 17, 18, 19, 20, _
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, _
31, 32, 33, 34, 35, 36, 37, 38, 39, 40, _
41, 42, 43, 44, 45, 46, 47, 48, 49, 50, _
51, 52, 53, 54, 55, 56)

deg2 = Array("0", "16777215", "255", "65280", "16711680", _
"65535", "16711935", "16776960", "128", "32768", "8388608", _
"32896", "8388736", "8421376", "12632256", "8421504", "16751001", _
"6697881", "13434879", "16777164", "6684774", "8421631", "13395456", _
"16764108", "8388608", "16711935", "65535", "16776960", "8388736", _
"128", "8421376", "16711680", "16763904", "16777164", "13434828", _
"10092543", "16764057", "13408767", "16751052", "10079487", "16737843", _
"13421619", "52377", "52479", "39423", "26367", "10053222", "9868950", _
"6697728", "6723891", "13056", "13107", "13209", "6697881", "10040115", _
"3355443")

veri1 = Sheets("AL").Cells(i + 2, "b").Value
veri2 = Sheets("AL").Cells(i + 2, "d").Value
veri3 = Sheets("AL").Cells(i + 2, "h").Value

sut1 = 2
[COLOR="Red"]If veri3 = veri2 And veri3 = veri1 Then[/COLOR]
suti1 = 1
[COLOR="red"]ElseIf veri3 = veri2 And veri3 <> veri1 Then[/COLOR]
sut1 = 1
[COLOR="red"]ElseIf veri3 = veri1 And veri3 <> veri2 Then[/COLOR]
sut1 = 1
End If
aranan1 = Sheets("AL").Cells(i, 8).FormatConditions(sut1).Font.ColorIndex
For m = 0 To 57
If aranan1 = deg1(m) Then
'MsgBox aranan1 & " " & deg2(m)
ListView3.ListItems(i - 2).ListSubItems(1).ForeColor = deg2(m)
Exit For
End If
Next m

sut2 = 2
[COLOR="red"]If veri3 = veri2 And veri3 = veri1 Then[/COLOR]
suti2 = 1
[COLOR="red"]ElseIf veri3 = veri2 And veri3 <> veri1 Then[/COLOR]
sut2 = 1
[COLOR="red"]ElseIf veri3 = veri1 And veri3 <> veri2 Then[/COLOR]
sut2 = 1
End If
aranan2 = Sheets("AL").Cells(i, 10).FormatConditions(sut2).Interior.ColorIndex
For m = 0 To 57
If aranan2 = deg1(m) Then
ListView3.ListItems(i - 2).ListSubItems(2).ForeColor = deg2(m)
Exit For
End If
Next m
Next i

halit3 · 1 Haziran 2018

Belki böylede olabilir

Kod:

For i = 3 To Sheets("AL").Cells(6666, 1).End(3).Row
ListView3.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView3.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 8).Value
ListView3.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 10).Value

veri1 = Sheets("AL").Cells(i + 2, "b").Value
veri2 = Sheets("AL").Cells(i + 2, "d").Value
veri3 = Sheets("AL").Cells(i + 2, "h").Value

sut1 = 2
If veri3 = veri2 And veri3 = veri1 Then
suti1 = 1
ElseIf veri3 = veri2 And veri3 <> veri1 Then
sut1 = 1
ElseIf veri3 = veri1 And veri3 <> veri2 Then
sut1 = 1
End If

If sut1 = 1 Then
ListView3.ListItems(i - 2).ListSubItems(1).ForeColor = 16744576
Else
ListView3.ListItems(i - 2).ListSubItems(1).ForeColor = 8454016
End If
'

sut2 = 2
If veri3 = veri2 And veri3 = veri1 Then
suti2 = 1
ElseIf veri3 = veri2 And veri3 <> veri1 Then
sut2 = 1
ElseIf veri3 = veri1 And veri3 <> veri2 Then
sut2 = 1
End If

If sut2 = 1 Then
ListView3.ListItems(i - 2).ListSubItems(2).ForeColor = 8454016
Else
ListView3.ListItems(i - 2).ListSubItems(2).ForeColor = 16744576
End If
'
Next i

yesimgurol · 1 Haziran 2018

Sayın Halit, öncelikle ilginize çok teşekkür ederim.Kodları görünce çok sevindim iş yerine geldiğimde ilk işim denemek oldu. Fakat çalışmadı :-(
"Invalid property value" uyarısı veriyor. Nerede yanlış yaptım ki..

halit3 · 1 Haziran 2018

Kod:

For i = 1 To Sheets("AL").Cells(6666, 1).End(3).Row
ListView3.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView3.ListItems(i).SubItems(1) = Sheets("AL").Cells(i, 8).Value
ListView3.ListItems(i).SubItems(2) = Sheets("AL").Cells(i, 10).Value
Next i

yukarıdaki kodun yerine 7 nolu mesajdaki kodu ekle

halit3 · 1 Haziran 2018

Muhtemelen aşağıdaki kodu da silmişsiniz.

Kod:

With ListView3
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "MARKER ", 50
     .ColumnHeaders.Add , , "G", 20, 2
     .ColumnHeaders.Add , , "G", 20, 2
     
     
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With

yesimgurol · 1 Haziran 2018

Halit Bey, dediklerinizi yaptım. Listview 3 çok güzel oldu renkli renkli

Fakat H:J değerleri değişkenlik gösterdiğinde haliyle oradaki renklerde değiştiğinde Listview3'e yansımıyor:-(

halit3 · 1 Haziran 2018

yesimgurol' Alıntı:
Halit Bey, dediklerinizi yaptım. Listview 3 çok güzel oldu renkli renkli

Fakat H:J değerleri değişkenlik gösterdiğinde haliyle oradaki renklerde değiştiğinde Listview3'e yansımıyor:-(

6 nolu mesajımda yazmıştım formüllerden pek anlamam ancak koşullu biçimlendirme formüllerinizi makroya dökmek gerekiyor.

koşullu biçimlendirmeyi neye göre yapıyorsunuz formül ile değil yazı ile yazın belki çözeriz.

yesimgurol · 1 Haziran 2018

Sayın Halit Bey,
Açıklamalı olarak dosyamı ekledim. Lakin baya bir karışık bir durum umarım açıklaya bilmişimdir. Çünkü koşullu biçimlendirme için konu açtığımda saolsunlar çok ama çok ilgilendi arkadaşlar :dua2: En sonunda renklendirme sorunumu çözmüş olduk.

Lakin acaba Listview üzerinde o güzel renklendirmeyi alabilir miyiz ? Yapmış olduğunuz kodları denediğimde listview çok şirin görünmüştü

halit3 · 1 Haziran 2018

Bu ik kodu bir modülün içine koy ve bir komut düğmesine ekle açıklama sayfasında çalıştır H sutünu için değerler doğru mesaj veriyormu.?

Kod:

Sub deneme1()

Dim X As Range

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

For Each X In Range("B3:D17")
If X.Value = aranan Then
MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Yeşil"
Exit For
End If
Next X
Next i
End Sub


Sub deneme2()
Dim X As Range

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

For Each X In Range("e3:g17")
If X.Value = aranan Then
MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Mavi"
Exit For
End If
Next X
Next i
End Sub

yesimgurol · 1 Haziran 2018

Halit bey merhabalar,:mutlu::mutlu:
Cep telefonumdan yazıyorum.. Eve geçince hemen deneyip bilgi vereceğim. Çok teşekkür ederim yaa:dua2:

halit3 · 1 Haziran 2018

Bu kodu da dene H sutünu için R sutünunu renklendiriyor irdele

Kod:

Sub deneme3()

Range("R3:r17").Interior.ThemeColor = xlNone
Range("R3:R17").ClearContents

Dim X As Range

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

For Each X In Range("B3:D17")
If X.Value = aranan Then
'MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Yeşil"
Cells(i, "r").Value = aranan & " " & X.Address & " " & "Renk Yeşil"
Cells(i, "r").Interior.ThemeColor = xlThemeColorAccent6

Exit For
End If
Next X
Next i

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

For Each X In Range("e3:g17")
If X.Value = aranan Then
'MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Mavi"
Cells(i, "r").Value = Cells(i, "r").Value & " " & aranan & " " & X.Address & " " & "Renk Mavi"
If Cells(i, "r").Interior.ThemeColor = xlThemeColorAccent6 Then
Cells(i, "r").Interior.Color = 5287936
GoTo atla1
End If
Cells(i, "r").Interior.ThemeColor = xlThemeColorAccent5
atla1:
Exit For
End If
Next X
Next i


End Sub

yesimgurol · 1 Haziran 2018

Hamit Bey merhabalar,

Kodları yenice deneye bildim. Anladığım kadarı ile H3 değerini B sütununda arama yapıyor. J3 değerini de D sütununda.

Resimde anlatmaya çalıştığım gibi her değer bulunduğu satırda değerlendirilmesi gerekiyor.

halit3 · 1 Haziran 2018

Açıklama sayfasında bunu dene

Kod:

Sub deneme3()

Range("R3:R17").Font.ColorIndex = xlAutomatic
Range("R3:R17").ClearContents
Range("R3:r17").Interior.ThemeColor = xlNone


Dim X As Range

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

For Each X In Range("B3:D17")
If X.Value = aranan Then
'MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Yeşil"
Cells(i, "r").Value = aranan
Cells(i, "r").Font.ThemeColor = xlThemeColorAccent6

Exit For
End If
Next X
Next i

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

For Each X In Range("e3:g17")
If X.Value = aranan Then
'MsgBox "Aranan " & aranan & Chr(10) & "Bulunan Hücre " & X.Address & Chr(10) & "Renk Mavi"
Cells(i, "r").Value = Cells(i, "r").Value & " " & aranan
If Cells(i, "r").Font.ColorIndex = 50 Then
Cells(i, "r").Font.Color = 5287936
GoTo atla1
End If
Cells(i, "r").Font.ThemeColor = xlThemeColorAccent5
atla1:
Exit For
End If
Next X
Next i


End Sub

yesimgurol · 1 Haziran 2018

Kod:

For i = 3 To Cells(Rows.Count, "h").End(3).Row

Halit Bey, bu kısımda uyarı verdi.

halit3 · 1 Haziran 2018

Bu sadece bir denemedir maksat renklendirmenizin formülünü anlamak.

Açıklama sayfasındaki komut düğmelerine tıkla R ve S sutündaki değerleri B,D ve E,G sutünlarına bakarak renklendiriyor.

Listview Nesnesin de Düzenleme Hakkında..

yesimgurol

Ekli dosyalar

yesimgurol

Necdet

Moderatör

yesimgurol

yesimgurol

halit3

Uzman

halit3

Uzman

yesimgurol

halit3

Uzman

halit3

Uzman

yesimgurol

halit3

Uzman

yesimgurol

Ekli dosyalar

halit3

Uzman

yesimgurol

halit3

Uzman

yesimgurol

halit3

Uzman

yesimgurol

halit3

Uzman