Skip to main content

AccessTr.neT


Listbox1 deki veriyi excele aktarma?

Listbox1 deki veriyi excele aktarma?

Çözüldü #1
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.
.xls deneme.xls (Dosya Boyutu: 37 KB | İndirme Sayısı: 25)
Cevapla
Çözüldü #2
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 & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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

OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
Sayın ogulcan92;

Teşekkürler...
Son Düzenleme: 04/07/2010, 13:35, Düzenleyen: assenucler.
Cevapla
Çözüldü #6
Sn:Ogulcan92 Bey;

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

Ellerinize sağlık.

Saygılarımla.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task