• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Soru exceldeki veriler worde yavaş aktarım yapıyor

3

353549

Yeni Üye
Katılım
25 Eki 2022
Mesajlar
60
Aldığı beğeni
3
Excel V
Office 2016 TR
Konu Sahibi
arkadaşlar hayırlı aksamlar dılıyorum hepinize benim bir sorum olacak excelden worde veri aktarımı yapıyorum "yer işaretleri " ile worde aktarım sağlanıyor ama exceldeki verileri cekerken yavas calısıyor hızlı sekilde aktarma durumu olabilirmi acaba koddamıbır sıkıntı vardır
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Tarihe göre sırala Oylara göre sırala
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri bir kod belli bir aralığı/range i doğrudan diziye aktarmak için kullanılabilinir
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Olumlu oy 0 Negatif oyla
353549' Alıntı:
ReDim arr(1 To lr, 1 To 2)
For i = 1 To lr
arr(i, 1) = CStr(Cells(i + 9, 1).Value)
arr(i, 2) = CStr(Cells(i + 9, 2).Value)
Next i
Genişletmek için tıkla...
Bu kısım silinip onun yerine yazılacak
Anladigim kadarıyla verileriniz A10'dan başlayıp B son satıra kadar devam ediyor
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
Bu kısım silinip onun yerine yazılacak
Anladigim kadarıyla verileriniz A10'dan başlayıp B son satıra kadar devam ediyor
Genişletmek için tıkla...
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
hocam a10 dan başlayıp a65,b65 e kadar devam ediyor veriler dediğiniz kodu yazdım ama herhangi bir hızlanma olmadı
 
Olumlu oy 0 Negatif oyla
Merhaba.

Örnek dosyayı göremedim, Standart bir yazıya Excelden veri aktarıyorsanız kodla uğraşmadan Wordeki Posta Gönderileri kısmındaki seçenekleri kullanın. Çok hızlı ve düzenlemesi uygulaması kolay.
Farklı bir durum varsa da örnek bir dosya paylaşırsanız bakabilirim.

İyi çalışmalar.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
KarıncaZ' Alıntı:
Merhaba.

Örnek dosyayı göremedim, Standart bir yazıya Excelden veri aktarıyorsanız kodla uğraşmadan Wordeki Posta Gönderileri kısmındaki seçenekleri kullanın. Çok hızlı ve düzenlemesi uygulaması kolay.
Farklı bir durum varsa da örnek bir dosya paylaşırsanız bakabilirim.

İyi çalışmalar.
Genişletmek için tıkla...
MERHABA .
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
dosya boyutunu aştıgı ıcın dosya adlı url ile ekledim umarım sorunu düzenleyebilirsiniz
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Merhabalar

Koddan ziyade dosyanın kendisi ağır
Dosya ağır olurca hem excele veri girişi ağır hem de kodun her bir belge ve resmi koplayalayıp wordda atanana kadar süreci çok uzamaktadır.


Ağırlığın sebebini bilmediğim için çalışma sayfalarını sildim tekrardan oluşturursunuz


Not Word belgesini farklı kaydet - Word şablonu olarak 12 ismi ile kaydediniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
mesudiye_052' Alıntı:
Merhabalar

Koddan ziyade dosyanın kendisi ağır
Dosya ağır olurca hem excele veri girişi ağır hem de kodun her bir belge ve resmi koplayalayıp wordda atanana kadar süreci çok uzamaktadır.


Ağırlığın sebebini bilmediğim için çalışma sayfalarını sildim tekrardan oluşturursunuz

D10 dan D58 e kadar dolu listede Toplam 3 dk sürdü

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
oncelikle teşekkürler ilginiz için ekteki excel uzerinden verilerimi aktardim tekrar bu yuzden geri donusum gec oldu . fakat worde aktar dedigimde bazen word oluyor bazende , tablo3 yer isareti hatali tablo 4 yer isareti hatali vb mesaji hatasi çıkıyor. yer isaretlerinide tekrardan işaretledim worde ama sonuç degişmedi
 
Olumlu oy 0 Negatif oyla
Merhabalar

Aşağıdaki kodun yerini değiştirerek çözüme ulaştım
Ful dolu listede hız yaklaşık 45 sn de tamamlanıyor

8.nolu dosyayı tekrar indiriniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
mesudiye_052' Alıntı:
Merhabalar

Aşağıdaki kodun yerini değiştirerek çözüme ulaştım
Ful dolu listede hız yaklaşık 45 sn de tamamlanıyor

8.nolu dosyayı tekrar indiriniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
hocam merhaba, bu kodu 1 mesajda attıgım kodda hangi satır içine eklemem gerekiyor benim attığım kod daha stabil suan için
 
Olumlu oy 0 Negatif oyla
8.mesajda ön yüzde bulunan kodu panoya kopyala yapıp kendi dosyanıza kopyalarsınız

Dediğiniz gibi yavaş sürmesi sizin dosyanızın ağır olmasından kaynaklı kod ile alakalı değildir
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Denemedim sadece dikkatimi çekti, ikisi de lr, tanımlamada lr ve lc var
lr = Cells(Rows.Count, "A").End(xlUp).Row
lr = ListObjects("tblOlcut").Range.Rows.Count - 1
 
Olumlu oy 0 Negatif oyla
Merhabalar
Aralığı sonradan tablo şekline dönüştürdüğüm için tekrardan lr oluşturmuştum
birinci lr normalde olmamalı
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
mozuer' Alıntı:
Denemedim sadece dikkatimi çekti, ikisi de lr, tanımlamada lr ve lc var
lr = Cells(Rows.Count, "A").End(xlUp).Row
lr = ListObjects("tblOlcut").Range.Rows.Count - 1
Genişletmek için tıkla...
peki hocam nasıl bir çözüm önerirsiniz bu dediğiniz sorun çıkartırmı ortalama programı çalıtırdıgımda 5 denememin 3 ünde " tablo 20 tablo1 vb." hatalar alıyorum.
 
Olumlu oy 0 Negatif oyla
Dosyaları yuklermisin ikisini de
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Olumlu oy 0 Negatif oyla
Merhaba

1-Eski kodu silip 8.mesajdaki yeni kodu kopyalamamışsınız
2-Excel Listede 5 adet Tablo adı yazmışsınız fakat çalışma adını yazmamışsınız

Birde çalışma sayfalarına ne yapmışsanız acayip ağırlaştırmışsınız

Son söz bu ağır dosya ile kodun çalışmasını hiç bekleme
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst