Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: öğrtm - 14 Ekim 2010, 21:24:27

Başlık: kod çalışmıyor
Gönderen: öğrtm - 14 Ekim 2010, 21:24:27

Merhaba
excel sayfasına userformdan (comboboxtan) veri girdiğim zaman çalışan bir kod aynı çalışma sayfasına kopyala yapıştır ile veri girdiğimde çalışmıyor.halbuki kodun çalıştığı sütunun hücre biçimlendirmesi iki türde de "genel" olarak ayarlı bunun sebebi ne olabilir.yardımlarınızı bekliyorum.kodlarım şunlar;

'Kan grubuna göre tarama yapıyoruz
If Me.ComboBox21 = "Kan Grubu Bilgileri Eksik Girilen Öğrenciler" Then
           
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).Find("", , xlValues, xlWhole)
If Not i Is Nothing Then
    adr = i.Address
    Do
        k = k + 1
        Me.ListView2.ListItems.Add , , k
        Me.ListView2.ListItems(k).SubItems(1) = i.Offset(0, -9)
        Me.ListView2.ListItems(k).SubItems(2) = i.Offset(0, -8)
        Me.ListView2.ListItems(k).SubItems(3) = i.Offset(0, -10)
        Me.ListView2.ListItems(k).SubItems(4) = i.Offset(0, -5)

        Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).FindNext(i)
    Loop While Not i Is Nothing And i.Address <> adr
    Exit Sub
End If

Başlık: Ynt: kod çalışmıyor
Gönderen: Rami - 24 Ekim 2010, 02:01:44

Alıntı yapılan: öğrtm - 14 Ekim 2010, 21:24:27

Merhaba
excel sayfasına userformdan (comboboxtan) veri girdiğim zaman çalışan bir kod aynı çalışma sayfasına kopyala yapıştır ile veri girdiğimde çalışmıyor.halbuki kodun çalıştığı sütunun hücre biçimlendirmesi iki türde de "genel" olarak ayarlı bunun sebebi ne olabilir.yardımlarınızı bekliyorum.kodlarım şunlar;

'Kan grubuna göre tarama yapıyoruz
If Me.ComboBox21 = "Kan Grubu Bilgileri Eksik Girilen Öğrenciler" Then
           
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).Find("", , xlValues, xlWhole)
If Not i Is Nothing Then
    adr = i.Address
    Do
        k = k + 1
        Me.ListView2.ListItems.Add , , k
        Me.ListView2.ListItems(k).SubItems(1) = i.Offset(0, -9)
        Me.ListView2.ListItems(k).SubItems(2) = i.Offset(0, -8)
        Me.ListView2.ListItems(k).SubItems(3) = i.Offset(0, -10)
        Me.ListView2.ListItems(k).SubItems(4) = i.Offset(0, -5)

        Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).FindNext(i)
    Loop While Not i Is Nothing And i.Address <> adr
    Exit Sub
End If

Sn. Mahmut bey
Aşağıdaki kodda yanlışlıklar var gibi;

Kod: [Seç]

Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).Find("", , xlValues, xlWhole)
 

Kod: [Seç]

Sheets(syf) .[l1048576]     (65536 satırdan fazla yazmayınız)

Şöyle olabilir ...

Kod: [Seç]

Set i = Sheets("syf").Range("l1:l" & Sheets("syf").[l65536].End(3).Row).Find("", , xlValues, xlWhole)

veya

Kod: [Seç]

Set i = Sheets("syf").Range("l1:l" & Sheets("syf").Cells(65536, 12).End(xlUp).Row).Find("", , xlValues, xlWhole)