Çözüldü Hücredeki veriyi, bulup ilgili satırı başka sayfaya aktarma

[Chagathai]

Herhalde böyle

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
Set bul = s1.Range("D10:D" & s1.Cells(Rows.Count, 4).End(3).Row).Find(s1.Range("F4"))
Set bul1 = s3.Range("D10:D" & s3.Cells(Rows.Count, 4).End(3).Row).Find(s3.Range("F4"))
s1.Range("C" & bul.Row & ":M" & bul.Row).Copy s2.Range("B" & s2.Cells(Rows.Count, 2).End(3).Row + 1)
s1.Range("C" & bul.Row & ":M" & bul.Row).ListObject.ListRows(bul.Row - 10).Delete
s3.Range("C" & bul1.Row & ":M" & bul1.Row).ListObject.ListRows(bul1.Row - 10).Delete
End Sub

Bu şekilde çalışmadı

 

[alicimri]

Çalışır niye çalışmasın. Örnek dosyası da ekte

Ornek_Dosya.xlsm dosyasını indir - download

Ornek_Dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[asdsxx]

Arkadalar benimde bir sorum olacak bu konu uygun başlık gibi geldi bu yüzden yeni bir konu açmadan burada sorayım dedim
Sorum şu "M" sütununda tekrar eden veriler var "M6:M1006" arasında. Ben bu sütun aralındaki verilerden tekrar edenleri süzdürüp "F6" hücresinden itibaren yapıştırmasını istiyorum.
Birden fazla ise sadece bir tanesini, tek veri varsa onu almasını istiyorum

 

[Chagathai]

Çalışır niye çalışmasın. Örnek dosyası da ekte

Ornek_Dosya.xlsm dosyasını indir - download

Ornek_Dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Hakkınızı nasıl öderim bilmiyorum çok teşekkür ederim.

 

[asdsxx]

Çalışır niye çalışmasın. Örnek dosyası da ekte

Ornek_Dosya.xlsm dosyasını indir - download

Ornek_Dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Ali Bey soruma yardımcı olabilirmisiniz

 

[Chagathai]

Arkadalar benimde bir sorum olacak bu konu uygun başlık gibi geldi bu yüzden yeni bir konu açmadan burada sorayım dedim
Sorum şu "M" sütununda tekrar eden veriler var "M6:M1006" arasında. Ben bu sütun aralındaki verilerden tekrar edenleri süzdürüp "F6" hücresinden itibaren yapıştırmasını istiyorum.
Birden fazla ise sadece bir tanesini, tek veri varsa onu almasını istiyorum

Benzersiz formülünü kullanarak yapabilirsiniz. ama 2016 sürümünde çalışıyor mu tam emin değilim. Makro ile istiyorsanız ona hakim değilim

 

[asdsxx]

Benzersiz formülünü kullanarak yapabilirsiniz. ama 2016 sürümünde çalışıyor mu tam emin değilim. Makro ile istiyorsanız ona hakim değilim

Formül sadece 365 de çalışıyormuş. Başka bir yol olmalı...

 

[Chagathai]

Formülü yazabilirmisiniz denesem... Yukarıdaki hücrelere göre

=BENZERSİZ(M6:M1006;0)

F6 hücresine bunu yapıştırırsanız kendisi listeleyecektir. Ama dediğim gibi 2016 sürümünde çalıştığına emin değilim.

 

[alicimri]

Ali Bey soruma yardımcı olabilirmisiniz

M sütunu seçip, kopyalayın, F sütununa yapıştırın F6 hücresini seçin, Veri>Yinelenleri Kaldır