Çözüldü Combobox ta arama

Merhaba,

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

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

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

Merhaba

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


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

Ahmet' Alıntı:

Merhaba

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

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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

Genişletmek için tıkla...

Hocam teşekkürler fakat olmadı.

jerfinby' Alıntı:

Hocam teşekkürler fakat olmadı.

Genişletmek için tıkla...

olarak değiştirin.

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