[Yardım]  Mevcut Kodlara Ekleme Hakkında...

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Mevcut Kodlara Ekleme Hakkında...

İleti#1)  yesim_gurol » 17 Haz 2018 21:44

Merhabalar ;

Listview nesnesi kodlarının içerisine forumda yapılmış örnek çalışmalardan bulduğum aşağıdaki kodları eklemeye çalıştım fakat sürekli uyarı mesajı aldım. [ilginc]

Mevcut kodlarım şu şekilde ;
Kod: Tümünü seç
Sub UserForm_Initialize()
Call analizCOCUK2

With ListView1
    .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 , , "AL1", 35, 2
     .ColumnHeaders.Add , , "AL2", 40, 2
      .ColumnHeaders.Add , , "AL1", 40, 2
       .ColumnHeaders.Add , , "AL2", 40, 2
        .ColumnHeaders.Add , , "AL1", 40, 2
         .ColumnHeaders.Add , , "AL2", 40, 2
         .ColumnHeaders.Add , , " ", 20, 2
         .ColumnHeaders.Add , , "B", 65, 2
         .ColumnHeaders.Add , , "D", 70, 2
         .ColumnHeaders.Add , , "P.", 50, 2
          .ColumnHeaders.Add , , "DIŞ", 60, 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
ListView1.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView1.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 2).Value

ListView1.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 4).Value
ListView1.ListItems(i - 2).SubItems(3) = Sheets("AL").Cells(i, 5).Value
ListView1.ListItems(i - 2).SubItems(4) = Sheets("AL").Cells(i, 7).Value
ListView1.ListItems(i - 2).SubItems(5) = Sheets("AL").Cells(i, 11).Value
ListView1.ListItems(i - 2).SubItems(6) = Sheets("AL").Cells(i, 13).Value
ListView1.ListItems(i - 2).SubItems(8) = Sheets("AL").Cells(i, 21).Value
ListView1.ListItems(i - 2).SubItems(9) = Sheets("AL").Cells(i, 19).Value
ListView1.ListItems(i - 2).SubItems(10) = Sheets("AL").Cells(i, 32).Value

ListView1.ListItems(i - 2).SubItems(11) = Sheets("DIŞ").Cells(i, 6).Value


Next i


TextBox1 = Sheets("HESAP").Range("T8").Value
TextBox2 = Sheets("HESAP").Range("T9").Value
TextBox3 = Sheets("bulgu2").Range("F72").Value

End Sub


Amacım ise ; Listview 11.kolon içerisinde dolu hücre var ise satırın kırmızı renklenmesi. Yapılan örneklerden bulduğum kodlar ise şöyle ,

Kod: Tümünü seç
Dim item As Integer
Dim i As Integer
For item = 1 To ListView1.ListItems.Count
If ListView1.ListItems(item).SubItems(10).Value <> "" Then

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(item).ListSubItems(i).ForeColor = vbRed
    Next i
    End If
Next item
    ListView1.Refresh

Kodlar sayın Ozan İlgün beye aittir.

Kod: Tümünü seç
SubItems(10)
Bu kısımda sadece 11 olarak değişiklik yapıp denemeye çalıştım ama yapamadım ne yazık ki [ilginc] :oops:
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#2)  feraz » 18 Haz 2018 00:34

SubItems(10) burası zaten 11.ci sütun olmuyor mu?
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#3)  feraz » 18 Haz 2018 00:37

SubItems(10).Value birde burada bence .value yazmaya gerek yok.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#4)  feraz » 18 Haz 2018 00:57

SubItems(10) yerine ListSubItems(10) olarak deneyebilirsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#5)  yesim_gurol » 18 Haz 2018 02:11

feraz yazdı:SubItems(10) yerine ListSubItems(10) olarak deneyebilirsiniz.


Merhaba Sayın feraz,

Dediğiniz gibi denedim ama yine aynı uyarıyı aldım.. [ilginc]
Kod: Tümünü seç
Dim i As Integer

Bu kısımda uyarı veriyor.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#6)  feraz » 18 Haz 2018 02:15

Merhaba.
İntegier yerine long yazıp yada dim i olarak deneyebilirsiniz.
32 binden fazla ise ondan vermiş diye düşünüyorum.
Tam olarak anlamak için örnek dosyaya bakmak gerek.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#7)  feraz » 18 Haz 2018 02:18

https://youtu.be/hm9-pFmicoA

Burda bir örnek var listiew renk ile ilgili.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#8)  yesim_gurol » 18 Haz 2018 02:23

feraz yazdı:https://youtu.be/hm9-pFmicoA

Burda bir örnek var listiew renk ile ilgili.

Sayın feraz, ilginiz için öncelikle çok teşekkür ederim. şkşk

Örnek dosya eklemeye çalışacağım. [ilginc]
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Cevap: Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#9)  feraz » 18 Haz 2018 02:37

yesim_gurol yazdı:
feraz yazdı:SubItems(10) yerine ListSubItems(10) olarak deneyebilirsiniz.


Merhaba Sayın feraz,

Dediğiniz gibi denedim ama yine aynı uyarıyı aldım.. [ilginc]
Kod: Tümünü seç
Dim i As Integer

Bu kısımda uyarı veriyor.


Birde bu hata için şunu yazayım.
Eğer kod sayfasında en üstte Dim i diye bir tanımlama daha yaptıysanız bundan dolayıda hata verir.
Yani iki tane i tanımlama çakışabilir.
En iyi çözüm örnek dosyada belli olur.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#10)  yesim_gurol » 18 Haz 2018 10:09

Merhabalar,

Örnek dosyam ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#11)  feraz » 18 Haz 2018 11:41

Alttaki kodu deneyebilirsiniz.

Kod: Tümünü seç
Sub UserForm_Initialize()

Dim item As Integer
Dim i As Integer


With ListView1
    .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 , , "MA ", 50
     .ColumnHeaders.Add , , "A1", 35, 2
     .ColumnHeaders.Add , , "A2", 40, 2
      .ColumnHeaders.Add , , "A1", 40, 2
       .ColumnHeaders.Add , , "A2", 40, 2
        .ColumnHeaders.Add , , "A1", 40, 2
         .ColumnHeaders.Add , , "A2", 40, 2
         .ColumnHeaders.Add , , " ", 20, 2
         .ColumnHeaders.Add , , "BA", 65, 2
         .ColumnHeaders.Add , , "DO", 70, 2
         .ColumnHeaders.Add , , "INDEX", 50, 2
          .ColumnHeaders.Add , , "DIÞ", 60, 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
ListView1.ListItems.Add , , Sheets("AL").Cells(i, 1).Value
ListView1.ListItems(i - 2).SubItems(1) = Sheets("AL").Cells(i, 2).Value

ListView1.ListItems(i - 2).SubItems(2) = Sheets("AL").Cells(i, 4).Value
ListView1.ListItems(i - 2).SubItems(3) = Sheets("AL").Cells(i, 5).Value
ListView1.ListItems(i - 2).SubItems(4) = Sheets("AL").Cells(i, 7).Value
ListView1.ListItems(i - 2).SubItems(5) = Sheets("AL").Cells(i, 11).Value
ListView1.ListItems(i - 2).SubItems(6) = Sheets("AL").Cells(i, 13).Value
ListView1.ListItems(i - 2).SubItems(8) = Sheets("AL").Cells(i, 21).Value
ListView1.ListItems(i - 2).SubItems(9) = Sheets("AL").Cells(i, 19).Value
ListView1.ListItems(i - 2).SubItems(10) = Sheets("AL").Cells(i, 32).Value

ListView1.ListItems(i - 2).SubItems(11) = Sheets("DIÞ").Cells(i - 1, 2).Value


Next i


For item = 1 To ListView1.ListItems.Count
If ListView1.ListItems(item).ListSubItems(11) <> "" Then

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(item).ListSubItems(i).ForeColor = vbRed
    Next i
    End If
Next item
    ListView1.Refresh

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#12)  feraz » 18 Haz 2018 11:46

Birde kodu eksik yazmışlar ilk sütun için.

Kod: Tümünü seç
If ListView1.ListItems(item).ListSubItems(11) <> "" Then
bunun alt satırına
Kod: Tümünü seç
ListView1.ListItems(item).ForeColor = vbRed
ekleyiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#13)  yesim_gurol » 18 Haz 2018 12:28

Sayın feraz ,

Çok teşekkür ederim. şkşk
Deneme dosyamda oldu müsait olduğumda orjinal dosya üzerine ekleyeceğim kodları sorun olmaz ümid ediyorum. --)(

[TESEKKÜR]
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Mevcut Kodlara Ekleme Hakkında...

İleti#14)  feraz » 18 Haz 2018 12:32

Rica ederim.
Aslında koda eklemeler yapılabilir hız için.
Mesela scriptingupdate false yada true gibi.

Sorun felan olursa burdayız :)

Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

cron
Bumerang - Yazarkafe