AccessTr.neT

Bul · 03/07/2010, 15:22

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.

Bul · 03/07/2010, 19:27

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

Bul · 03/07/2010, 20:33

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.

Bul · 04/07/2010, 10:52

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

Bul · 04/07/2010, 11:36

Sayın ogulcan92;

Teşekkürler...

Bul · 04/07/2010, 17:05

Sn:Ogulcan92 Bey;

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

Ellerinize sağlık.

Saygılarımla.

AccessTr.neT

Listbox1 deki veriyi excele aktarma?

Listbox1 deki veriyi excele aktarma?

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri