AccessTr.neT

Tam Versiyon: Listbox1 deki veriyi excele aktarma?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba Arkadaşlar;

Sayfa1 mevcut olan bilgileri Listbox1 görüntüleyebiliyorum. Listbox1 herhangi bir veriyi seçtiğimde seçilen verinin; Sayfa1'den, Sayfa2'ye kesilip kopyalanmasını istiyorum. Bunu yapmak mümkün mü?

Konu ile çalışma ek'tedir.

Saygılarımla.
Sn:winpa
Aşağıdaki kodları deneyiniz.Bundan sonra formumuzdan yararlanabilmek için lütfen form kurallarına uyunuz.

Kod:
Private Sub CommandButton1_Click()
Selection.EntireRow.Cut
Sheets("Sayfa2").Select
Range("a1").Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!A2:B100"
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;100"
End Sub
Private Sub ListBox1_Click()
On Error Resume Next
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 2).Select
End If
Next
End Sub
Oğulcan Bey;

İlgi ve emeğinize çok teşekkür ederim.
Kodlar tam istediğim gibi, fakat ikinci bir veriyi iptal etmek istediğimde a1 satırına tekrar yazmaktadır.
Her iptal edilen veriyi alt alta Sayfa2'ye yazmasını sağlayabilir miyiz?

Saygılarımla.
Sn:winpa
Butondaki kodları aşağıdaki ile değiştiriniz.

Kod:
Selection.EntireRow.Cut
Sheets("Sayfa2").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
ActiveSheet.Paste
Sheets("Sayfa1").Select
Selection.EntireRow.Delete
Sayın ogulcan92;

Teşekkürler...
Sn:Ogulcan92 Bey;

İlgi ve emeğinize çok teşekkür ederim.

Ellerinize sağlık.

Saygılarımla.