Şarta bağlı olarak satır kopyalama (Sütun değerine göre)

[coşkun79]

Ekteki dosyanın birinci sayfasındaki tablonun "I" sütununda eğer "X" yazıyorsa karşısındaki satırları seçmek ve sonrasında kopyalamak istiyorum. Şarta uyan ve seçilecek / kopyalanacak satırları sarıya boyadım.
Yalnız tablonun yeri bazen farklı olabilir. İkinci sayfada olduğu gibi tablonun ilk satır ve ilk sütunu farklı. (Dolayısı ile tablonun yerine göre makronun içinde değişiklik yapmam gerekebilir.) Bu durumda makronun içinde değişiklik yaparak "I" sütunu yerine "J" sütununu; üçüncü satır yerine de beşinci satırı seçebilmek isterim.
Diğer bir husus ise üçüncü sayfada olduğu gibi tabloda süzme işlemi yapılmış olsa bile makronun çalışmasını istiyorum.
Bu makroyu butona atayacağım.

 

[EmrExcel16]

Sormak istediğim birkaç konu var,
Tablonun yeri değişiyor diyorsunuz peki başliklar değişiyor mu ?
Bu verilerin satir uzunluğu maksimum ne olabilir (net satir şart değil tahmini) ?
Bu kopyalanan satirlar nere yapiştirilacak ?

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
For s = 6 To [I65536].End(3).Row
If Cells(s, "I") = "X" Then Range("B" & s & ":I" & s).Copy
Next
End Sub

 

[coşkun79]

Seyit Bey, x değerine göre hücreleri silme makrosunu da siz yazmıştınız. Yukarıdaki makro kopyalıyor ama tek satırı. İstediğim ise, x yazan tüm satırları aynı anda kopyalamak. makroyu çalıştırdığımda tabloda sarı ile belirtilen satırların (hücrelerin) kopyalanması gerekiyor.
Başlıklar ve satır uzunlukları değişebiliyor. Veriler aynı sayfaya ya da başka bir sayfaya yapıştırılacak.

 

[EmrExcel16]

Sorularıma tam olarak cevap alamasam da , bir dosya hazırladım yinede deneyiniz.

 

[coşkun79]

Emre Bey, teşekkür ederim zahmetleriniz için. Başka bir sayfaya sıra ile yapıştırma işlemini yapıyor. Bu şekilde kullanabilirim.

Benim aklımda olan ise tek tek kopyalamak değil de, "I" sütununda "X" yazan satırları toplu olarak kopyalamaktı. Şartlara uyan birden fazla satırı aynı anda kopyalamak. Böylece satırları tek tek kopyala + yapıştır yapmak yerine tek seferde şartlara uyan bütün satırları kopyalamak + tek seferde yapıştırmak. Bu mümkün mü tabi bunu bilmiyorum.

Ama bu şekilde de dosyamda kullanabilirim. Tekrar teşekkürler.

 

[EmrExcel16]

Rica ederim .

Sorduğum sorular bu sebepten önemli idi ama cevap alamadığım için bende bildiğim gibi yaptım. Dediğiniz şekilde istemenizin sebebi nedir ,makro zaten bunu size göstermeden toplu bir şekilde başka sayfaya kopyalıyor.

 

[coşkun79]

Veriler büyük olduğunda bütün uygun satırları tek seferde kopyalamak ve sonra tek bir yapıştırma işlemi yapmak daha kısa sürer diye düşündüm.

 

[EmrExcel16]

Ne kadarlik bir veri ?

 

[coşkun79]

Çalıştığım hukuk bürosundaki bazı excel kitapçıklarında 10 binin üzerinde satır var. Diğerlerinde de bin satırdan az değil

 

[EmrExcel16]

Anladim , peki 10 bin satirlik veride eğer deneme yapti iseniz kaç saniye sürdü tahmini eğer gerçekten de can sikici bir bekleme oldu ise başka bir mantikla çözmeye çalisalim.

 

[coşkun79]

Ekteki dosyada 9.000 küsur satır için 2 dakika 1 saniye sürdü. "x" yazan sütun da dahil bütün tabloyu başka bir sayfaya veri olarak yapıştırıp süzdükten sonra ekranda kalan o istemediğim satırları toplu olarak silmeyi deneyeceğim. Herhalde böyle daha hızlı olur.

 

[EmrExcel16]

Evet dediğiniz şekilde daha hizli olur , bütün veriyi kopyalamaniza da gerek yok sadece X olanlari süzüp kopyalayip yapistirabilirsiniz , yada dediğiniz gibide yapilabilir her ikiside bir yöntemdir. Eğer yapamaz iseniz yardimci oluruz , ama kendinizin yapmasi sizin için öğrenme açisindan faydali olur.

 

[mst_arc]

merhaba
ekli dosyaları açamıyorum hata veriyor

 

[EmrExcel16]

Merhaba , sanırım foruma kayıt olurken dikkatinizden kaçtı.

Altın Üyelik

Değerli Üyemiz, Forumda DOSYA EKLEME ile DOSYA İNDİRME işlemleri için ve yayınlanan Video Dersleri izleyebilmek için ALTIN ÜYELİK gerekmektedir. ALTIN ÜYELİK ONLİNE SİPARİŞ İÇİN TIKLAYIN ALTIN ÜYELİK fiyatlar ; 1 Yıl = 150 TL KDV Dahil 2 Yıl = 250 TL KDV Dahil 5 Yıl = 500 TL KDV Dahil...

www.excel.web.tr

 

[uhercan]

MERHABA, bir sorum olacaktı, bu tabloda "X" leri diğer sayfaya atıyor. çok güzel. ayrı bir sayfayı veri datası yapsak, atıyorum "x" leri A sayfasına,
"Q" ları "B" sayfasına ve daha fazlasını, sonra bu tanımlamalara göre macroyu çalıştırabilirmiyiz.
kolay gelsin iyi çalışmalar

 

[uhercan]

yardımcı olan varsa sevinirim.

 

[Korhan Ayhan]

Veriler hangi alana aktarılacak?

 

[uhercan]

günaydın,
cls-1 genel dosya. bunun içinde data sekmesinde firma datası var. ayrıca genel sekmesinde kayıtların tutulduğu alan var. "B" olanları şahıs aktar butonu ile "özgeyikçi" sekmesine atıyor.
şimdi gelelim talebime,
1- data sekmesinde tanımladığım firmalara göre aktarmaları yapsın. ama önceden açılmış dosyaların içine yapabiklirmi?

 

[Korhan Ayhan]

Merhaba,

Bahsettiğiniz şekilde dış dosyaya aktarım yapılabilir. Fakat FİRMA ADI dediğiniz bölümle dış dosyanın adı aynı olmalıdır. Dış dosyalarınız asıl dosyanızla aynı klasörde mi bulunuyor?

Ayrıca aktarım yapılırken dış dosyada bulunan kayıtlar silinecek mi? Yoksa eski kayıtların altına mı aktarım yapılacak?