Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: kod çalışmıyor  (Okunma sayısı 6245 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı öğrtm

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • excelle herşey biraz daha kolay!
  • Ad Soyad: mahmut
  • Mesleğiniz: öğretmen
kod çalışmıyor
« : 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

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: kod çalışmıyor
« Yanıtla #1 : 24 Ekim 2010, 02:01:44 »
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)


« Son Düzenleme: 24 Ekim 2010, 02:23:05 Gönderen: Rami »