Exeldeki Benzer Yazıları Araması

[alisbilgisayar]

Merhabalar Exelde Bi Çalışma Yapmam Gerekiyor Exelde B Sutunundaki listede benzer ürünleri bulup D Sütununa alt alta yazmasını nasıl yapabiliriz cevabınız için teşekkürler


ÜCRETLİ YAPACAK ARKADAŞLAR VARSA ÜCRETİ KARŞILIĞINDA YAPTIABİLİRİM

 

[Orion1]

Merhabalar Exelde Bi Çalışma Yapmam Gerekiyor Exelde B Sutunundaki listede benzer ürünleri bulup D Sütununa alt alta yazmasını nasıl yapabiliriz cevabınız için teşekkürler


ÜCRETLİ YAPACAK ARKADAŞLAR VARSA ÜCRETİ KARŞILIĞINDA YAPTIABİLİRİM

Örnek dosyanızı aşağıdaki verdiğim linkten yükleyebilirmisiniz?

DOSYA YÜKLE

..

 

[alisbilgisayar]

Örnek dosyanızı aşağıdaki verdiğim linkten yükleyebilirmisiniz?

DOSYA YÜKLE

..

http://s6.dosya.tc/server5/8oo85e/Kitap4.xlsx.html

yükledim teşekkürler

 

[Orion1]

Dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

Sub benzersiz59()
Dim z As Object, liste(), i As Long
Range("D2:D" & Rows.Count).ClearContents
liste = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
    If liste(i, 1) <> "" Then
        If Not z.exists(liste(i, 1)) Then
            z.Add liste(i, 1), Nothing
        End If
    End If
Next i
Erase liste
Application.ScreenUpdating = False
If z.Count > 0 Then Range("D2").Resize(z.Count, 1) = Application.Transpose(z.keys)
Application.ScreenUpdating = True
MsgBox "Benzersiz veriler listelendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[alisbilgisayar]

Dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

Sub benzersiz59()
Dim z As Object, liste(), i As Long
Range("D2:D" & Rows.Count).ClearContents
liste = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
    If liste(i, 1) <> "" Then
        If Not z.exists(liste(i, 1)) Then
            z.Add liste(i, 1), Nothing
        End If
    End If
Next i
Erase liste
Application.ScreenUpdating = False
If z.Count > 0 Then Range("D2").Resize(z.Count, 1) = Application.Transpose(z.keys)
Application.ScreenUpdating = True
MsgBox "Benzersiz veriler listelendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

ilginiz için teşekkür ederim çok sağolun peki benzer ürünleri d sutununa alt alta nasıl listelerim Asus K53SE Tuş Takımı Orjinal 10 tane var diyelim b stününda farklı yerlerde ben d satırına o 10 taneninde alt alta yazılmasını istiyorum ücreti karşılığında

resim ekledi ama görünmüyor linki

http://hizliresim.com/9210QQ

 

[Orion1]

ilginiz için teşekkür ederim çok sağolun peki benzer ürünleri d sutununa alt alta nasıl listelerim Asus K53SE Tuş Takımı Orjinal 10 tane var diyelim b stününda farklı yerlerde ben d satırına o 10 taneninde alt alta yazılmasını istiyorum ücreti karşılığında

resim ekledi ama görünmüyor linki

http://hizliresim.com/9210QQ

SIRALA butonuna basınız.
Dosyanız aşağıdaki linktedir..

DOSYAYI İNDİR

Sub altalta59()
Dim sonsat As Long
Range("D2:D" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
Range("B2:B" & sonsat).Copy Range("D2")
Range("D2:D" & sonsat).Sort Range("D2")
Application.ScreenUpdating = True
MsgBox "Veriler Listelendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[alisbilgisayar]

SIRALA butonuna basınız.
Dosyanız aşağıdaki linktedir..

DOSYAYI İNDİR

Sub altalta59()
Dim sonsat As Long
Range("D2:D" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
Range("B2:B" & sonsat).Copy Range("D2")
Range("D2:D" & sonsat).Sort Range("D2")
Application.ScreenUpdating = True
MsgBox "Veriler Listelendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

istediğim buydu çok teşekkür ederim satır sayısı max kaç yükseltebiliyormuyuz benim elimdeki listede 282 bin kayıt varda ücret talebiniz varsa özel mesajdan bilgi verirseniz gönderebilirim teşekkürler

 

[Orion1]

istediğim buydu çok teşekkür ederim satır sayısı max kaç yükseltebiliyormuyuz benim elimdeki listede 282 bin kayıt varda ücret talebiniz varsa özel mesajdan bilgi verirseniz gönderebilirim teşekkürler

satır sayısı farketmez.
Ücret talep etmiyorum.
İyi çalışmalar.

 

[ahmethuseyin]

satır sayısı farketmez.
Ücret talep etmiyorum.
İyi çalışmalar.

Evren bey sizin ne kadar mutavazi biri oldugunuzu biliyorum haddim olmayarak bir fikrim var, eger site yoneticileride uygun gorurlerse bu sekil sizin gibi ucret talep etmeyenlere, is yaptiran arkadaslar siteye bir buton eklense YARDIM BUTONU veya yardim hesap NR, gibi siteye katkida bulunulsa nekadar cok yatirim okadar cok hizmet olmus olmazmi sitede,neticede bizleri bulusturan bu gibi yararli siteler,
Tekrar tekrar haddim olmayarak diyorum farkinda olmadan uygun olmayan bir bir kelime yazdim ise lutfen yonetici arkadaslar yazimi silsinler.

Saygilarimla