listboxtaki bilgileri print etmem lazım

[n_a_zzz]

excel dosyasından listboxa attığım bazı değerler var.bunları print etmek istiyorum.fakat tüm excel sayfasını print ediyor.sanıırım sheets() kısmına yanlış bişey yazıyorum.yardımcı olursanız sevinirim
bu ön izlemede kullandığım kod

Private Sub CommandButton5_Click()
'formkapa
Unload Me
'baskı ö izlemeyi aç
Sheets("Sayfa1").PrintPreview
'baskı ön izleme kapandığında forma geri dön
UserForm1.Show
End Sub

 

[n_a_zzz]

orion2'ye...

bu dosyadaki girilen verileri değiştirip sorunumuzu belirttik.

tsk..

 

[Orion1]

Merhaba.
İstediklerinizi yaptım.
Ekli dosyayı inceleyiniz.

 

[Orion1]

Merhaba.
Bir tane kaydetmek için Userform İlave ettim.
Artık kayıtları Userformdan yapabilirsiniz.
Bu programı dağada geliştirip,Silme ve Değiştirme userform'uda yapabiliriz.
O zaman Çalışma sayfasına hiç bir şekilde elle veri girmeye gerek kalmaz .Çalışma sayfasınada koruma koyarız.Tam bir program olmuş olur.

 

[n_a_zzz]

tekrar tekrar teşekkürler..

 

[Orion1]

Merhaba.
Ben soyada Göre düzenleme yaptım.
Siz diğer userform'ları onu örnek alarak hazırlayabilirsiniz.
Şimdi soyad sorunsuz çalışıyor.

 

[Orion1]

Merhaba.
Kırmızı olan yeri değiştiriniz:cool

Sub Listele()
Dim i As Long, k As Byte, ktpcmb As String, ktpcell As String
Dim adcmb As String, ad As String, sat As Long
Dim adr1 As String, adr2 As String
ListBox1.RowSource = ""
Sheets("RAPOR").Range("A2:O65536").Clear
Sheets("Sayfa1").Select
adcmb = ComboBox2.Value
ktpcmb = ComboBox1.Value
sat = 2
For i = 2 To Cells(65536, "M").End(xlUp).Row
ad = Cells(i, "M").Value: ktpcell = Cells(i, "H").Value
If ad = adcmb And ktpcell = ktpcmb Then
    adr1 = Range(Cells(sat, "A"), Cells(sat, "O")).Address
    adr2 = Range(Cells(i, "A"), Cells(i, "O")).Address
    Sheets("RAPOR").Range(adr1).Value = Range(adr2).Value
    sat = sat + 1
End If
Next i
[COLOR="Red"]sonsat = Sheets("RAPOR").Cells(65536, "A").End(xlUp).Row
If sonsat >= 2 Then ListBox1.RowSource = "RAPOR!A2:O" & sonsat[/COLOR]
Label4.Caption = "TOPLAM [ " & ListBox1.ListCount & " ] Kere..!!"
adcmb = "": ktpcmb = "": ad = "": ktpcell = ""
End Sub