Listboxtan seçilen ismin sayfasına veri aktarmak

[tuncer17]

Merhaba arkadaslar ekte bir çalışmam var sizden istediğim isim listesine tıkladıgımda açılan listbox tan benim seçtiğim ismin uygulama sayfasına alt alta aktarılması.Benim yaptıgımda sıkıntı isim ekle deyince hepsini ekliyor...Teşekkürler..

 

[veyselemre]

Kodlarınızda aşağıdaki değişikliği yapın,

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
    sat = 1
    With ListBox1
        SutSay = .ColumnCount
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                sat = sat + 1
                secilivar = True
                For sut = 0 To SutSay - 1
                    s1.Cells(sat, sut + 1) = .List(i, sut)
                Next sut
            End If
        Next i
    End With

If secilivar = False Then
    MsgBox "Lütfen En Az Bir Tane Kayıt Seçiniz...."
    Else
    MsgBox "İşleminiz Tamamlandı...."
End If
End Sub

 

[tuncer17]

Süpersin olmuş fakat işlem tamamlandı uyarısı geldikten sonra yeni ekleme yaptıgımda ilk eklenenlerin altına degilde onlarla yer degiştiriyo..Yardımcı olur musun..

 

[veyselemre]

sat = 1

yerine aşağıdaki ifadeyi ekleyin.

sat = s1.[a65536].End(3).Row

 

[tuncer17]

cok tesekkür ederim...