Listbox1 deki veriyi excele aktarma?
Tarih
03/07/2010 15:22
Konu Sahibi
winpa
Yorumlar
5
Okunma
1908
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
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.


Ek Dosyalar
.xls   deneme.xls (Dosya Boyutu: 37 KB / İndirme Sayısı: 25)
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:winpa
Aşağıdaki kodları deneyiniz.Bundan sonra formumuzdan yararlanabilmek için lütfen form kurallarına uyunuz.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

Cevapla


winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
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.
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:winpa
Butondaki kodları aşağıdaki ile değiştiriniz.

Kod:
1
2
3
4
5
6
7
8
9
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

Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Sayın ogulcan92;

Teşekkürler...
Cevapla


winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
Sn:Ogulcan92 Bey;

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

Ellerinize sağlık.

Saygılarımla.
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formülle köprü oluştırma ve sayfadaki veriyi alma aek1989 3 404 10/07/2016, 14:59 atoz112
  Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 906 15/06/2016, 16:57 atoz112
  makro ile excele veri almak siyahhayis 4 778 05/06/2016, 15:48 atoz112
  Koşullu veri aktarma / Süzme yaramazserkan 6 761 05/06/2016, 14:48 atoz112
  Excel deki veriler okunmuyor afilli 6 752 09/05/2016, 12:38 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya