Listbox seçilen satırı buton ile sayfaya aktarma

[beza]

Merhaba,
Listbox1 içerisine veriler sayfa1 den geliyor. Listbox1 de seçilen satırdaki veriyi, CommandButton1 basarak sayfa2 ye yazmak, sonrasında sayfa1 den ve listbox1 den silmek istiyorum. (Forumda silme ile ilgili örnekler buldum, ancak CommandButton1 basarak seçili satırı aktarmayı bulamadım.) Bu işlem mümkünümdür?

 

[YUSUF44]

Bulduğunuz kodların commandbuttonla yapılacak işlemden bir farkı yoktur. Kodları commandbuttonun kod bölümüne yazarsanız düğmeye basıldığında işlem yapar.

Fazlası için örnek dosya olması iyi olur. Çünkü bu tür işlemlerde verilerin nesneye nasıl yüklendiği önemlidir.

 

[beza]

Bulduğunuz kodların commandbuttonla yapılacak işlemden bir farkı yoktur. Kodları commandbuttonun kod bölümüne yazarsanız düğmeye basıldığında işlem yapar.

Fazlası için örnek dosya olması iyi olur. Çünkü bu tür işlemlerde verilerin nesneye nasıl yüklendiği önemlidir.

Silme satırlarını uyguma konusunda sorun yok. Bulamadığım Listbox1 içinde seçili satırı commandbutton ile sayfa2 ye aktarmak. Örnek dosya linki aşağıdadır. Teşekkür ederim.

aktar.xlsm dosyasını indir - download

aktar.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[YUSUF44]

Aşağıdaki kodları deneyin:

Private Sub CommandButton3_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) = True Then
        yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
        For j = 0 To 6
            s2.Cells(yeni, j + 2) = ListBox1.List(i, j)
        Next
        ListBox1.RemoveItem i
    End If
Next
End Sub

 

[beza]

Aşağıdaki kodları deneyin:

Private Sub CommandButton3_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) = True Then
        yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
        For j = 0 To 6
            s2.Cells(yeni, j + 2) = ListBox1.List(i, j)
        Next
        ListBox1.RemoveItem i
    End If
Next
End Sub

Tam olarak bu. Mükemmel çalıştı. İşleriniz hep yolunda gitsin. Çok teşekkür ederim.

 

[YUSUF44]

Siz sayfadan da silinmesini istemiştiniz. Bunu yapabilmek için listenizde A sütununda benzersiz bir değer olması iyi olur. O benzersiz değere göre sayfadan da silinebilir.

 

[beza]

Siz sayfadan da silinmesini istemiştiniz. Bunu yapabilmek için listenizde A sütununda benzersiz bir değer olması iyi olur. O benzersiz değere göre sayfadan da silinebilir.

A sütunu boş değil. Oradaki değer benzersiz. Bulduğum örnekleri inceleyip uyarlamaya çalışıyorum. Teşekkür ederim.