makro ile adres defterinde hata...

[ileri]

Arkadaşlar ben bir adres defteri yaptım ama hata var galiba listele butonuna basınca olan syler birdaha geliyor kökten hata avr galiba yardımıcı olursanız çok sevinirim daha acemiyimde.. dosyayı ekte verdim.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton3_Click()
    e = WorksheetFunction.CountA(Sheets("sayfa1").Range("a2:a65535")) + 1
    
    ListView1.View = lvwReport
[COLOR=red]    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
[/COLOR]    
    With ListView1.ColumnHeaders
        .Add , , Sheets("sayfa1").Cells(1, 2)
        .Add , , Sheets("sayfa1").Cells(1, 3)
        .Add , , Sheets("sayfa1").Cells(1, 4)
        .Add , , Sheets("sayfa1").Cells(1, 5)
    End With
    k = 2
    With ListView1
    For i = 1 To e - 1
        If Sheets("sayfa1").Cells(i + 1, 1) <> "S" Then
            .ListItems.Add , , Sheets("sayfa1").Cells(k, 2)
            .ListItems(k - 1).SubItems(1) = Sheets("sayfa1").Cells(i + 1, 3)
            .ListItems(k - 1).SubItems(2) = Sheets("sayfa1").Cells(i + 1, 4)
            .ListItems(k - 1).SubItems(3) = Sheets("sayfa1").Cells(i + 1, 5)
            k = k + 1
        End If
    Next
    End With
    ListView1.FullRowSelect = True
    ListView1.Gridlines = True
    Label4.Caption = "Toplam " & ListView1.ListItems.Count & " Kayıt Var"
End Sub

 

[ileri]

Arkadaşım Yardımcı oldugun için teşekkür Ederim....
ACABA EXCELL SAYFASI AÇILMADAN SADECE USER FORUM AÇILABİLİRMİ SADECE KAYIT BÖLÜMÜ...
YANİ EXCEL DEKİ SAYFALAR EXCELL GÖZÜKMÜYECEK SADECE USER FORUM AÇILACAK....
ŞİMDİDEN YARDIMCLARINIZ İÇİN ÇOK TEŞEKKÜR EDERİM.

 

[Korhan Ayhan]

Selamlar,

Forumda Userform ile ilgili birçok örnek bulunmaktadır. Arama menüsünü kullanarak rahatlıkla ulaşabilirsiniz.

Aşağıdaki kodu çalşmanızın THISWORKBOOK bölümüne uygulayın.

Option Explicit
 
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

 

[ileri]

Çok Teşekkür ederim Korhan Ayhan Yardımın için..
Bir sorun var :S Malesef Ben Kayıt ı Seçiyorum sil diyorum ya bi üsteki kayıt ı siliyor yada bir lattaki onu naısl düzelte bilrim. birde düzeltte Hata var Galiba Düzelte Aynı Şekilde. Şimdiden Yardımların İçin Teşkkür Ederim.

 

[halit3]

bu durumda kodları değiştirmek gerekiyor forma bir adet label nesnesi ekledim. sıranumarasını bu nesneye yazıyor. birde listview1 ilk sütuna veri alırken satır numaralarını aldırdım. bu sütun gizli olarak duruyor lisview tıklandığı zaman ilgili veriye ait satır numarasını labal1 nesnesine yazıyor. silme işide buna göre oluyor gerisini halledersiniz.

 

[ileri]

Arkadaşım Silemyi Gene Olmuyor Başaramadım :s malesef sil diyorum bir üstekini siliyor bir yardımcı olsan olurmu halit3 şimdiden Teşekkür ederim. yani başladımda fazla bilgim yak ama yeniye göre biras iyim galiba.

 

[halit3]

bu bölümü

.ListItems.Add , , i

bununla değiştir

.ListItems.Add , , i + 1

 

[halit3]

6 nolu mesajdaki dosyayı yeniden güncelledim.

 

[ileri]

Teşekkür Ederim. Halit Bey. Yardımların için.

 

[halit3]

Teşekkür Ederim. Halit Bey. Yardımların için.

iyi çalışmalar

 

[ileri]

Halit Bey Kusura Bakmayınız Bu Çalışmada ListView1 oaln tabloda 8 Tane kayıt Gösteriliyor 8 Den sornası Gözükmüyor Sağ Tarafa Scroll Bar Olabilirmi yada bir çözüm Yolu varmdır Ben Çok Denedim Başaramıdım Şimdiden Yardımlarınızı Beklerim..

 

[halit3]

Halit Bey Kusura Bakmayınız Bu Çalışmada ListView1 oaln tabloda 8 Tane kayıt Gösteriliyor 8 Den sornası Gözükmüyor Sağ Tarafa Scroll Bar Olabilirmi yada bir çözüm Yolu varmdır Ben Çok Denedim Başaramıdım Şimdiden Yardımlarınızı Beklerim..

satır olarak 8 den fazla ve diğer bütün kayıtları gösteriyor

sütun olarak eklemeler yapman gerekiyor