• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

alicimri' Alıntı:
Herhalde böyle
Kod: 
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
Genişletmek için tıkla ...

Bu şekilde çalışmadı :(
 
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
 
asdsxx' Alıntı:
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
Genişletmek için tıkla ...

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 :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst