Çözüldü Combobox ta arama

[jerfinby]

Sevgili üstadlar kolay gelsin
Excelde hazırlamış olduğum bir çalışma kitabında kayıtlar sayfasında b sütünunda arama yapıp bulduğum veriler listboxta gösterilsin ve bu verileri sayfa5 e kopyalasın istiyorum.
Bu konuda yardımlarınızı bekliyorum. Şimdiden teşekkürler

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

İ_DENEME.zip.html


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

Merhaba,

İstediğiniz böyle bir şey mi? İyi günler.

 

[jerfinby]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

böyle bir makro var elimde fakat sayfa5'e 1 satırdan kopyalıyor ben 2. satırdan kopyalamasını istiyorum.

 

[jerfinby]

Selam hocalarım listbox'taki verileri sayfa5e kopyalıyorum, fakat 1.satırdan kopyalamaya başlıyor ben ise 2. satırdan kopyalamaya başlamasını istiyorum. Bu konuda yardımlarınızı bekliyorum.


Private Sub CommandButton1_Click()

Dim s1 As Worksheet
Sheets("Sayfa5").Range("A2:G2").ClearContents
If ListBox1.ListCount = 0 Then
MsgBox "Kopyalanacak Veri Yok.", vbCritical, ""
Exit Sub
End If

Set s1 = Sheets("Sayfa5")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount

s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
MsgBox "Seçilen Veriler Kopyalandı.", vbApplicationModal, ""
Set s1 = Nothing
Unload Me

End Sub

 

[Ahmet]

Merhaba

Satırı bu şekilde değiştirip, dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

İstediğiniz bu değilse, dosyanızı paylaşınız kontrol edelim..

 

[jerfinby]

Merhaba

Satırı bu şekilde değiştirip, dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

İstediğiniz bu değilse, dosyanızı paylaşınız kontrol edelim..

Hocam teşekkürler fakat olmadı.

 

[himmgarip]

Hocam teşekkürler fakat olmadı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

olarak değiştirin.

 

[Ahmet]

Dosyanızı inceledim. Neden 2. satırdan kopyalamak istiyorsunuz? Başlık satırı mı ekleyeceksiniz?

 

[himmgarip]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

olarak değiştirin.

Pardon yanlı yeri almışım.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu şekilde değiştiriniz. 2. satırdan başlayarak kopyalar.