Çözüldü Seçilen çalışma kitabında hücrede ara, varsa diğer çalışma kitabına kopyala

[himmgarip]

Merhaba,

Ana Excel çalışma kitabında buton ile dosyadan veri alınacak çalışma kitabını seçip;

Seçtiğim çalışma kitabının son sayfasında bulunan veride H sütununda yazan kelimede "deneme" geçiyorsa,




Deneme yazısı geçen satırı Ana Excel sayfasında seçim yapılan sayfanın 4. satırından itibaren alt alta listelemesini istiyorum. Sayfa yapıları aynıdır.



Önemli olan seçtiğim kitabın en sondaki çalışma sayfasından veriyi almasıdır. Desteğinizi rica ederim.

 

[Refaz]

Merhaba.
Dosyaları incelemedim ama alttaki gibi en sondaki sayfa adı alınmalı gerek diğerleri klasik soru galiba.
HTML:

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

 

[Ümit Bakacak]

Sayın himmgarip buyurun:
Birden fazla dosya desteği eklendi.

 

[himmgarip]

Sayın himmgarip buyurun:
Birden fazla dosya desteği eklendi.

ubak hocam,

autofilter ile değilde, find ile yapsak daha sağlıklı olacak. H4:H son dolu değer aralığında arama yaparak aktarabilirmiyiz? Birleştirilmiş hücreler problem yaratıyor.

 

[Ümit Bakacak]

Filtre her zaman çok hızlı sonuç verir. find ise çok yavaş çalışacaktır. Bu yüzden filtre kullanmaktan yanayım.
Düşüncem şu, eğer hücreleri çözmek sorun olmayacaksa seçilecek dosyada son sayfada bütün hücreleri çözeriz. Bu şekilde filtrede problem olmaz.
Ayrıca diyelim ki h6:h20 arası birleştirilmiş ve bu birleşik hücrede deneme kelimesi geçiyor. Bu durumda o aralıktaki hangi satırı almamız gerekli?
Bu yüzden elinizdeki birleşik hücrelerin olduğu dosyayı görmemiz gerekli.

 

[himmgarip]

Çalışma sayfasının sadece en üst 3 satırı ve verinin bitiminde ki 5 satır birleştirilmiş hücreler içeriyor. Bu birleştirilmiş hucrelerin aralığındaki hücrelerde bulunan veri satırlarında birleştirilmiş hücre yok. Filtreleme konusunda hemfikirim.

Problem şu ki kullanılan çalışma sayfası ortak bir sayfa. Bu yüzden yapı bozulmamalı. Ek olarak her sayfada en fazla 60 satır veri oluyor. Find ile pek sıkıntı olmaz diye düşündüm.

 

[Ümit Bakacak]

Sayın himmgarip ; seçilecek dosyadan veri alırken başlıkları da alıyormuşum onu düzelttim. Gerisini üstteki soruya vereceğiniz cevaba göre şekillendiririz. Bir de H4:H son dolu konusunda; eğer alacağımız veride arada boş satırlar yoksa yazdığım kod
(Set alan1 = s2.Range("A3").CurrentRegion.Offset(1).Resize(alan1.Rows.Count - 1)
sona kadar alır zaten. Buyurun:

 

[Ümit Bakacak]

Üstat dosyayı açıp işlem yapıp kapatıyoruz. Kapatırken kaydetmeden kapatıyorum. d2 seçilen dosya.
d2.Close False

 

[himmgarip]

Üstat dosyayı açıp işlem yapıp kapatıyoruz. Kapatırken kaydetmeden kapatıyorum. d2 seçilen dosya.
d2.Close False

ubak hocam öyle yoğun bir gün oldu ki sabah 8 den beri bilgisayar başındayım. Ve artık beynim vücuduma komut vermiyor . Bildiğim şeyleri unuttum. Siz yazdıkça kafamda netleşiyor. Hatamız olduysa affola. Eve geçiyorum geçince bakacağım biraz daha sağlam kafayla. Desteğiniz için teşekkür ederim.

 

[Ümit Bakacak]

Son hali ektedir. Son satır tespiti isteğinize göre düzenlendi.
Bütün hücreleri çözdürüyoruz. Eğer bundan kaynaklı problem olursa o zaman başka çözüm düşünürüz. Buyurun:

 

[himmgarip]

Son hali ektedir. Son satır tespiti isteğinize göre düzenlendi.
Bütün hücreleri çözdürüyoruz. Eğer bundan kaynaklı problem olursa o zaman başka çözüm düşünürüz. Buyurun:

ubak hocam unuttuğum bir durum var. Arada gizlenmiş sütunlar var onları açtıracağız. Ek olarak Ana excel sayfasına çekilen her yeni kayıt için yeni sayfa açtırıp sayfa adını dünün tarihi olarak vereceğiz. Bunu da halledersek tamamdır.

 

[Ümit Bakacak]

Üstat, seçilecek dosyanın aslını paylaşır mısınız?

 

[himmgarip]

Üstat, seçilecek dosyanın aslını paylaşır mısınız?

ubak hocam dosya ekteki gibidir.

 

[Ümit Bakacak]

Biz A:H arasını alıyoruz. Gizli sütunlar H sütunundan sonra. Bizim alacağımız veriye engel değil.
Gizli sütunlar bizim veri alacağımız alanın içinde de kalsa olsa problem olmaz.
1- Gene de sütunları açalım mı?
2- Sütunları açtıktan sonra seçilecek dosyayı kaydedelim mi? (Kaydetmeyeceksek zaten açmamızın anlamı kalmaz.)

 

[himmgarip]

Biz A:H arasını alıyoruz. Gizli sütunlar H sütunundan sonra. Bizim alacağımız veriye engel değil.
Gizli sütunlar bizim veri alacağımız alanın içinde de kalsa olsa problem olmaz.
1- Gene de sütunları açalım mı?
2- Sütunları açtıktan sonra seçilecek dosyayı kaydedelim mi? (Kaydetmeyeceksek zaten açmamızın anlamı kalmaz.)

ubak hocam ben kısa ve kafa karıştırmasın diye H ye kadar aldım örnek dosyada. Değer bulunan satırı komple kopyalayacağımız için diğer sütunlara gerek duymadım. Seçilecek sayfasında satırda ne veri varsa ana Excel sayfasına aynı veri alınsın istiyorum.

Aralığı A4:AF olarak düşünelim lütfen.

Gizli sütunlar açılmadığında oradaki veriyi almıyor. Sütunları açalım veriyi alalım yeterli. Sayfa kaydedilmesin.

 

[Ümit Bakacak]

Üstat buyurun:

 

[himmgarip]

Üstat buyurun:

ubak hocam teşekkürler.

Bi problem dışında çok iyi çalışıyor. 1. satırdaki veriyi alıyor. O satırda deneme yazmasada alıyor. Onuda çözersek tamamdır.

 

[Ümit Bakacak]

Tekrar buyurunuz: