Listbox1 deki veriyi excele aktarma?
Tarih
03/07/2010 15:22
Konu Sahibi
winpa
Yorumlar
5
Okunma
1946
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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.053
31/10/2008
63
İstanbul
-
22/02/2017,20:41
Çözüldü 
Sponsor Reklam
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 454 10/07/2016, 14:59 atoz112
  Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 970 15/06/2016, 16:57 atoz112
  makro ile excele veri almak siyahhayis 4 1.039 05/06/2016, 15:48 atoz112
  Koşullu veri aktarma / Süzme yaramazserkan 6 903 05/06/2016, 14:48 atoz112
  Excel deki veriler okunmuyor afilli 6 822 09/05/2016, 12:38 atoz112


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