Hücre Seç ve Aktar

[ilobilo]

Merhabalar
Ekli listede de anlatıldığı gibi a65000 p65000 hücre arasındaki hücreleren herhangi birini seçtiğimiz zaman o sutundaki eşdeğer olan hücrelerin, tüm satırları ile birlikte başka bir sayfaya aktarılması, ile ilgili çözüm önerilerinizi bekliyorum. Saygılarımla

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub aktar()
Dim s As Worksheet
Dim son As Integer
Set s = Sheets("Sonuç")
son = s.Cells(65536, "a").End(xlUp).Row + 1
Selection.EntireRow.Copy s.Cells(son, "a")
End Sub

 

[halit3]

aşağıda düzeltildi

 

[ilobilo]

Her iki Çalışma içinde Teşekkürler. Halit bey hücrelerdeki sadece yazıları seçiyor rakamları seçmiyor bu konuda çalışma yapabilrimisiniz. Saygılarımla

 

[halit3]

hepsini aktarıyor ben burada denedim

 

[ilobilo]

A-B-C-D-J-K ce L Hücresini aktarmıyor, Diğerleri Aktarıyor.

 

[halit3]

aşağıda düzeltildi

 

[ilobilo]

Herşey İçin Çok Teşekkür Ederim. Saygılarımla

 

[halit3]

09.02.2009 evet sayıları yapmıyor şimdi onuda düzenledim

 

[xlsx]

arkadaşlar tam istediğim aktarma kodları.bu kodlarda nasıl bir ekleme yapalım ki bulunduğumuz hücre ile birebir eşleşen değil de İçeren satırların tamamını aynı çalışan bu kodlardaki gibi sayfaya aktarsa
örneğin ANKARA yazılı hücrede AKTAR'a bastığımızda X kadar buldu diyerek sadece ANKARA ile birebir eşleşeni aktarıyor ama ben altında ABCDEFANKARAGHIJK yazan satırı da alsın aktarsın istiyorum.
2. bir merak ettiğm kod bilgisi de şu: Sheet1de A sütununda benim aktarılmasını istediğim kelimeler altalta olsa ve Aktara bastığımda buradaki makro gibi Sheet1dekileri bulup aktarsa.?

 

[halit3]

folconia dosya ekleyiniz bakalım

 

[xlsx]

dosya

folconia dosya ekleyiniz bakalım

9 numaralı mesajdaki dosyadaki gibi.sadece birebir eşleşenleri değil de içeren formatındakileri de aktarmalı.yani Ankara hücresinde Ankara olan sütuna bağlı satırları aktarıyor hali hazırda.Benim istediğim eğer Ankara hücresine değil de kelimenin içersinde de Ankara geçiyorsa vermeli.ANK yazsam dahi ANKARA olan satırları vermeli.

 

[halit3]

dosya aşağıdadır

 

[xlsx]

ekli dosyaya bakınız

Slm
Dosyayı açamadım tekrar kontrol edebilir misiniz.Ya da xls formatında eklemeniz uygun mudur.? Tşk

 

[halit3]

dosya eki aşağıdadır

 

[xlsx]

Sn halit3
dosyayı indirdim ANKARA yazan hücrelerden bir tanesinin altındaki ANKARA yazısının başına ABCDANKARAFGHI diye yazdım ama içinde ANKARA geçen bu kelimenin olduğu satırı aktarmadı.Ya da ILYAS yazan yerdeki ILYAS'lardan bir tanesini XXXILYASXXX diye değiştirdim ve AKTAR dediğimde içinde ILYAS geçen tüm satırları aktarmadı

 

[halit3]

hücrenin içindeki değerleri arar bulur ama kelimenin içindeki sözçükleri aramaz

 

[xlsx]

Eğer söylediğim gibi olabilse çok fazla dosyada kullanacağım ek bir dosya olacaktı.Aynı Süz yaparken kullandığım ek özellikler gibi olurdu.Bu haliyle de işime yarayacak ancak diğer türlü tam istediğim gibi olacaktı.

 

[xlsx]

Yine de işimi görecek.Benzer bir başka yol ile nasıl yapılır onu araştıracağım sitede.

 

[halit3]

sayın falconia ekli dosyaya bakınız bir kaç çeşit aktarma düğmesi var biri işinize mutlaka yarıyacaktır