[Yardım]  Listbox'tan Excele Veri Aktarmayı Hızlandırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#1)  sinemakel » 12 Eyl 2017 22:12

Arkadaşlar, Bu kod çok yavaş nasıl hızlandırabilirim.
Kod: Tümünü seç
For i = 0 To Me.ListBox1.ListCount - 1
'Range("a65536").End(3)(2, 1) = Me.ListBox1.List(i, 0)
'Range("a65536").End(3)(1, 2) = Me.ListBox1.List(i, 5)
'Range("a65536").End(3)(1, 3) = Me.ListBox1.List(i, 2)
'Range("a65536").End(3)(1, 4) = Me.ListBox1.List(i, 6)
'Range("a65536").End(3)(1, 5) = Me.ListBox1.List(i, 4)
'Next i
Kullanıcı avatarı
sinemakel
Yeni Başlamış
 
Adı Soyadı:Sinem Akel
Kayıt: 09 May 2014 07:20
Konum: Ankara
Meslek: Sekreter
Yaş: 32
İleti: 89
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#2)  sinemakel » 14 Eyl 2017 09:43

Arkadaşlar, Burada yapmak isteğim şey listbox'taki verileri excel sayfasına aktarmak.
Bu vermiş olduğum kod sıra sıra satır satır atıyor ve çok uzun sürüyor. Benim istediğim ise listbox'taki hazır listeli bilgileri olduğu gibi anında aktarsın istiyorum.
Kodu hızlandırmaktaki amacım bu listbox'taki verileri anında excele aktarması vermiş olduğum kod satır satır atmakta.
Bu kodu seçmemdeki amaç ise listbox'taki istediğim sütunu istediğim excel sütununa sıralatmak.
Kullanıcı avatarı
sinemakel
Yeni Başlamış
 
Adı Soyadı:Sinem Akel
Kayıt: 09 May 2014 07:20
Konum: Ankara
Meslek: Sekreter
Yaş: 32
İleti: 89
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

REKLAM

Cevap: Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#3)  Ali ÖZ » 14 Eyl 2017 09:49

Sayfa ismini düzeltip deneyiniz.
Kod: Tümünü seç
Set con CreateObject("Adodb.Connection"): Set rs CreateObject("Adodb.Recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" ThisWorkbook.FullName ";extended properties=""Excel 8.0;hdr=yes"""
sorgu "select * from [Sayfa1$] "
rs.Open sorgucon13
 
For 0 To ListBox1.ListCount 1
    rs
.addnew
    rs
(0).Value ListBox1.List(i0)
    
rs(1).Value ListBox1.List(i5)
    
rs(2).Value ListBox1.List(i2)
    
rs(3).Value ListBox1.List(i6)
    
rs(4).Value ListBox1.List(i4)
    
rs.Update
 Next
MsgBox 
"Kayıt işlemi tamamlandı"
Set rs NothingSet con Nothing
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 36
İleti: 8662
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#4)  sinemakel » 14 Eyl 2017 11:15

Ali bey, denedim çok uzun sürdü ve veride gelmedi.
Şu kodu denedim çok hızlı fakat istediğim listbox sütununu istediğim excel sütununa aktarmak istiyorum bu konuda yardımcı olabilirmisiniz?
Kod: Tümünü seç
Set s1 = Sheets("Ornek")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(2, 1), s1.Cells(sat, sut)) = ListBox1.List
Kullanıcı avatarı
sinemakel
Yeni Başlamış
 
Adı Soyadı:Sinem Akel
Kayıt: 09 May 2014 07:20
Konum: Ankara
Meslek: Sekreter
Yaş: 32
İleti: 89
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu

Logo Object Designer ile Uyarlama

Cevap: Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#5)  sinemakel » 14 Eyl 2017 11:35

Ali bey, İlgilenebilirseniz birde listbox 1. satırdan (tamamı), excel ise 4.satırdan başlanarak aktarılacak.
Kullanıcı avatarı
sinemakel
Yeni Başlamış
 
Adı Soyadı:Sinem Akel
Kayıt: 09 May 2014 07:20
Konum: Ankara
Meslek: Sekreter
Yaş: 32
İleti: 89
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Listbox'tan Excele Veri Aktarmayı Hızlandırma

İleti#6)  Ali ÖZ » 14 Eyl 2017 12:08

Dosyanızı eklermisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 36
İleti: 8662
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama

ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe