Farklı bir çalışma kitabından bilgi almak ?

[rainstar]

Herkese kolay gelsin arkadaşlar...
Kitap1.xls ve Kitap2.xls diye iki çalışma kitabım var Kitap1.xls de bulunan
Sayfa1'deki verilerimi satır satır sırasıyla kitap2.xls'de ki sayfa2'ye almak için nasıl bir kod kullanmam gerekiyor....

 

[excelvba]

Böyle bir kod yazmak elbette mümkün, fakat aşağıdaki ayrıntıları cevaplarsanız yanıt vermek daha kolay olacaktır.

1-Veri alınacak kitap1 dosyası açıkmı yoksa kapalı durumdamıdır.

2-Dosya kapalı iken veri alınması için kitap1'in dosya yolunu belirtmelisiniz.

3-Veri alınacak dosyanın veri aralığını tanımlayın, yani hangi sütunlardaki veriler alınacaktır ve hangi satırdan başlayacaktır.

Eğer imkanınız varsa bir örnek dosya eklemenizi öneririm.

 

[rainstar]

Böyle bir kod yazmak elbette mümkün, fakat aşağıdaki ayrıntıları cevaplarsanız yanıt vermek daha kolay olacaktır.

1-Veri alınacak kitap1 dosyası açıkmı yoksa kapalı durumdamıdır.

2-Dosya kapalı iken veri alınması için kitap1'in dosya yolunu belirtmelisiniz.

3-Veri alınacak dosyanın veri aralığını tanımlayın, yani hangi sütunlardaki veriler alınacaktır ve hangi satırdan başlayacaktır.

Eğer imkanınız varsa bir örnek dosya eklemenizi öneririm.

İlginiz için teşekkür ederim...
Çalışmanın boyutu çok büyük olduğu için sadece bu kısmı oluşturmak bayağı zaman aldı... çalışma ekte ve c:\deneme klasörü oluşturursanız sorun çıkarmayacaktır.
1. Veri.xls ve Hedef.xls adıyla iki adet çalışma kitabı bulunmakta...
2. Veri.xls kapalı bir çalışma kitabı ancak fark edeceksiniz zaten onu açtırıyorum.
3. Veri.xls içerisindeki siparis sayfasında bulunan verileri Hedef.xls sayfasındaki isliste sayfasına aktarıp sonra buradan userform2 de bulunan listbox'a alacağım...

Tam olarak sorunum şudur , veri.xls de bulunan siparis sayfasında kayıtlanmış önceki verilerimi satır satır almak ve bu almak işlemi boş satıra kadar sürmeli... umarım anlatabilmişimdir.
Þimdiden teşekkürler...

 

[Levent Menteşoğlu]

Sorunuzdan anladığım kadarı ile aşağıdaki kodu deneyin. Bu kod "veri" isimli dosyanızın "siparis" isimli sayfasındaki tüm verileri "Hedef" isimli dosyanızın "isliste" isimli sayfasına kopyalar. Yalnız burada takıldığım nokta isliste sayfasındaki başlıklarla, siparis sayfasındaki verilerin uyumlu olmamasıdır. Bu kodu "Hedef" isimli dosyanızın herhangi bir sayfasına ekleyeceğiniz butona bağlayarak deneyin.

[vb:1:49550c09b2]Sub kopyala()
Application.CutCopyMode = False
Workbooks.Open Filename:="C:\deneme\Veri.xls"
Workbooks("Veri.xls").Activate
sonsat = Sheets("siparis").[f65536].End(xlUp).Row
Sheets("siparis").Rows("1:" & sonsat).Copy
Workbooks("Hedef.xls").Activate
Sheets("isliste").Rows(2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
[/vb:1:49550c09b2]

 

[Armani]

LeventM teşekkürler kod için. Bu kod benimde işime yarıyor. ancak belli kritelerlere göre getirebilme şansımız varmı ?
sadece METSAN ELEK.SAN.TİC.AÞ isimli firmaları süzüp alma şansımız varmı ? Son olarak 45 satır kopyaladıkdan sonra bir boşluk verdirebilirmiyiz.

Ã?r. metsan firma isimli olan 45 kayıtdan sonra bir boş satır verib kayıtları aktarmaya devam edecek ve 45 satır sonra bir daha yapacak
Teşekkürler

 

[rainstar]

Yalnız burada takıldığım nokta isliste sayfasındaki başlıklarla, siparis sayfasındaki verilerin uyumlu olmamasıdır.

İlginize teşekkür ederim...
Kod işimize yaradı ancak belirttiğiniz kısım hakkında bilgi vermek istedim,
Evet uyumlu değil çünkü koşullu alabilmeyi hedeflemiştim. Yani siparis sayfasında bulunan verileri islistesine aktarırken örneğin siparis A1 hücresini isliste A1'e ; siparis F1 hücresini isliste G1'e gibi alabilmek ve siparis sayfasındaki satırlarda boş satıra geldiğinde işlemi bitirmesini hedeflemiştim... Bunu uygulatabilme şansımız bulunabilirmi...
Teşekkür ederim

 

[Levent Menteşoğlu]

Sn Armani

İstediğiniz elbette olabilir, bunun için bir örnek dosya eklermisiniz. Ayrıca sorunuza ayrı bir başlık açarsanız karışmayıda engellemiş oluruz.

Sn rainstar

Sorunuzun çözümü çok zor değil fakat örnek dosyanız yeteri kadar açıklayıcı değil, şöyle yapalım, öncelikle örnek dosyanızdaki veri sayınızı arttırın ve veri alınacak sayfada nasıl bir görüntü istiyorsanız bunuda örnek dosyanızda belirtin. Yeni bilgilerin üzerinden gideriz.