• DİKKAT

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

tekrar eden değerden sadece birini başka sütuna yazma

nunikmakarios

nunikmakarios

Katılım
25 Ekim 2006
Mesajlar
349
Excel Vers. ve Dili
MS Office Standart 2016 Türkçe
A sütununda aşağıda sıraladığım şekilde bir kısmı tekrar eden veriler var. Ben her veriden sadece birini başka sütuna yazman istiyorum. Şöyle ki;
Verilerim;
A
1050
1050
1050
2450
1050
2450
1250
3350
1050
2450

Bu verilerden sadece birer tanesini başka bir sütuna yazmak istiyorum. Şöyle görünmesi gerek,

C
1050
2450
1250
3350

Nasıl bir kod yazmayılım
 
Merhaba;
Sayfanın kod bölümüne;

Sub benzersiz_liste()
Range("c1:c65536").ClearContents
say = 1
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, "a") <> "" And WorksheetFunction.CountIf(Range("a1:a" & i), Cells(i, "a")) = 1 Then
Cells(say, 3) = Cells(i, 1)
say = say + 1
End If
Next i
End Sub

Ekleyerek deneyin.
İyi çalışmalar.
 
Alternatif olarak.

Kod: 
Sub Tekrarsiz()
    Range("C1:C100000").ClearContents
    Range("C1:C" & Cells(Rows.Count, 1).End(3).Row).Value = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value
    Range("C1:C" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
 
Hocam merhaba ben formülünüzü kullandım öncelikle bu sebepten ötürü teşekkür ediyorum. Bununla birlikte bir eklentiye ihtiyacım var bu konuda da yardımcı olabilir misin? Şöyle ki bu 2 stun var a ve b olarak b stununda ki tekrar eden değerlerden birini d stununa ve a stununda ki b değerine ait olan veriyi de c stununa çekebilir miyiz? düşeyara formülü ile yapabilirim ama bu sefer çok kasmaya başlıyor toplamda 165.500 satırlı bir dosya üzerinde çalışıyorum. Şimdiden teşekkürler.
 
Merhaba , anlattıklarınızı destekleyecek örnek bir dosya ekleyebilirmisiniz?
 
Sayın EmrExcel16,
Sayın Muygun'a ve size teşekkür ederim.
Çalışmanız, A sütunundakileri C sütununda tekrarsız sıralıyor. Ben C sütununda C11 den itibaren olanları L sütununda L11 den itibaren tekrarsız yapmak istedim, ekli hatayı veriyor. Nerede hata yaptım?
Saygılarımla
 

Ekli dosyalar

  • 2020-02-11_07-55-53.png
    2020-02-11_07-55-53.png
    17 KB · Görüntüleme: 5
Tevfik_Kursun' Alıntı:
Sayın EmrExcel16,
Sayın Muygun'a ve size teşekkür ederim.
Çalışmanız, A sütunundakileri C sütununda tekrarsız sıralıyor. Ben C sütununda C11 den itibaren olanları L sütununda L11 den itibaren tekrarsız yapmak istedim, ekli hatayı veriyor. Nerede hata yaptım?
Saygılarımla
Genişletmek için tıkla ...

Rica ederim Sayın @Tevfik_Kursun aşağıdaki gibi deneyiniz..

Kod: 
Sub Tekrarsiz()
    Range("L11:L100000").ClearContents
    Range("L11:L" & Cells(Rows.Count, 3).End(3).Row).Value = Range("C11:C" & Cells(Rows.Count, 3).End(3).Row).Value
    Range("L11:L" & Cells(Rows.Count, 3).End(3).Row).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
 
https://www.dosyaupload.com/frTe

Merhaba sayın @mkadoglu eklediğiniz dosyayı maalesef göremiyorum (Pc kısıtlı) harici sitelerden sadece google drive yüklenen dosyaları görebiliyorum.

Dosyaya ulaşabilen ve konuya yardımcı olmak isteyen arkadaşlarımız yardımcı olacaklardır ,size.
 
@EmrExcel16, öncelikle ilginiz için teşekkür ederim. şöyle ifade etmeye çalışayım A ve B olmak üzere 2 stunda verilerim mevcut. A stununda tarih B stununda da fatura numarası var bir faturada birden fazla ürün olduğu için gerçek fatura sayımı alamıyorum. B stununda bulunan fatura numarasını c stununa aktarınca D stununa da da tarihini aktarmasını istiyorum.

tarih fatura no fatura no tarih
11.02.2020 fatura1 fatura1 11.02.2020
11.02.2020 fatura1 fatura2 12.02.2020
12.02.2020 fatura2

Gibi.
Teşekkürler.
 
Bu şekilde deneyiniz..

Kod: 
Sub Tekrarsiz()
    Range("C1:D100000").ClearContents
    Range("C1:C" & Cells(Rows.Count, 1).End(3).Row).Value = Range("B1:B" & Cells(Rows.Count, 1).End(3).Row).Value
    Range("D1:D" & Cells(Rows.Count, 1).End(3).Row).Value = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value
    Range("C1:D" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=2, Header:=xlNo
End Sub
 
Teşekkür ederim @
EmrExcel16
Uzun zamandır çözemediğim bir konuyu çözmeme yardımcı oldunuz. veriyi C D yerine farklı bir sayfaya aktarmak için nereyi editlemem gerekiyor? örneği sayfa 1
 
mkadoglu' Alıntı:
Teşekkür ederim @
EmrExcel16
Uzun zamandır çözemediğim bir konuyu çözmeme yardımcı oldunuz. veriyi C D yerine farklı bir sayfaya aktarmak için nereyi editlemem gerekiyor? örneği sayfa 1
Genişletmek için tıkla ...

Rica ederim , başka sayfada işlem yapacak kodların basina sayfa adresi verilmesi gerekli .Sheets("Sayfa1").Range("C1:D100000").ClearContents gibi , sayfa1 deki C1 ile D100000 arasıni siler , kodun hangi sayfada çalıştığının önemi kalmaz ,ilgili adreste işlem yapar .
 
@EmreExcel16 Tekrardan çok teşekkür ederim. Başka bir konu daha var rica etsem ona da bi el atabilir misin?
R stununda PST verisi olan satırların hepsinin silinmesi gibi bir kod mümkün mü?
 
Rica ederim ,başka bir konu ise , bu konunun bütünlüğünün bozulmaması açısından yeni bir konu açarak sorunuzu sorarsanız daha uygun olacaktır. İyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst