Yalnız Mesajı Göster
Eski 09-02-2018, 14:38  
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,363
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Aşağıdaki gibi deneyin
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
s=rows.count
With ListView1
Sayfa1.Range("A2:J" & s).ClearContents
For i = 1 To .ListItems.Count
Sayfa1.Cells(i + 1, 1) = .ListItems(i)
For e = 2 To .ColumnHeaders.Count

Sayfa1.Cells(i + 1, e) = .ListItems(i).SubItems(e - 1)
Next e
Next i
End With
If ComboBox1.Value = "" Then
Unload Me
Call Formaç
Sayfa1.Range("A2:J" & s).ClearContents
End If
Sayfa1.Columns.AutoFit
Label2.Caption = "Toplam Veri Sayısı: " & ListView2.ListItems.Count
i = Empty: e = Empty: s = Empty
End Sub

Bu mesaj en son " 09-02-2018 " tarihinde saat 15:31 itibariyle PLİNT tarafından düzenlenmiştir....
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla