Düşük değeri silme

[darka]

Merhaba,

A sütununda 5000 adet barkod numarası var.

B sütünunda ise fiyatları var.


Her barkodun iki fiyatı var ve düşük fiyatlıları silmek istiyorum. Bunun basit bir yolu var mıdır?



örnek


123456789 15,20
123456789 8,00 ( düşük fiyatlı olan silinecek)
234567890 99,20
234567890 35.60 ( silinecek)
....
...
...



TEŞEKKÜR EDERİM

 

[Murat OSMA]

Dosyanızı ekleyebilir misiniz ?

 

[darka]

http://www.dosya.tc/server18/lhOV2q/Kitap1.xlsx.html

buyrun


tekrarlanan değerleri boyadım

 

[Murat OSMA]

Şu kodları deneyiniz;

Sub Emre()
    Dim con As Object, rs As Object
    Dim sorgu As String, dosya As String
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordSet")
        dosya = ThisWorkbook.FullName
        con.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" _
        & dosya & ";Extended Properties=""Excel 12.0;hdr=no"""
        sorgu = "Select distinct [F1], max([F2]) FROM [Sayfa1$] group by [F1]"
        rs.Open sorgu, con, 1, 1
        Range("E1").CopyFromRecordset rs
    rs.Close: con.Close
    Set con = Nothing: Set rs = Nothing
    dosya = vbNullString: sorgu = vbNullString
End Sub

Bilgilendirme: Dosyanızı siteye eklebiliyorsunuz, dışarıdan bağlantı adresi vermenize gerek yok...

 

[darka]

eklemeye çalıştım siteye fakat 404 hatası aldım maalesef.

bir de bu kodu nasıl kullanacagım acaba ?

zor olmazsa küçük bir anlatım yapabilir misiniz

 

[Murat OSMA]

■ Lütfen mesajınızdaki alıntıyı siler misiniz ? Teşekkür ederim...
■ Ek'teki dosya üzerinde TIKLA yazan buton var, ona basınız...

 

[darka]

Hayat kurtarıcısınız!
ÇOK TEŞEKKÜR EDERİM BÜTÜN ÇALIŞMA ARKADAŞLARIMA ÖNERECEĞİM BURAYI )

 

[Murat OSMA]

Ek iş olarak acil serviste çalışıyorum. Yaptığım işe göre az maaş alıyorum ama mutluyum...

Önerin tabi, onlar da gelsin. Ben de çok faydalanıyorum.

İyi günler...

 

[baydeniro]

Sayın Murat Osma. Paylaştığınız kodun Access ile bir ilgisi olabilir mi ?

 

[Murat OSMA]

Serdar Bey, ADO + SQL kodlarıdır..

 

[baydeniro]

Yanlış anlaşılmasın, Access ile bir uyarı verdi de, acaba yanlış konu ile mi ilgileniyorum diye merak ettim. İlginize çok teşekkür ederim.

 

[Murat OSMA]

Serdar Bey, Access ile bir uyarı verdi derken, ne demek istediğiniz ? :dusun:

6. mesajın ek'inde dosya paylaşmıştım. Verdiğim kodlar iki Excel arasında işlem yapar...

İyi akşamlar..