• DİKKAT

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

aynı olanların listelenmesi

  • Konbuyu başlatan Konbuyu başlatan drseref
  • Başlangıç tarihi Başlangıç tarihi
D

drseref

Katılım
19 Şubat 2011
Mesajlar
177
Excel Vers. ve Dili
excel 2010 tr
sitedeki tüm dosyaları inceledim.tam istediğim gibi macro bulamadım.dosyadaki formüllü değil macrolu çözüm olursa sevinirim.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod: 
Sub tekrarsiz_59()
Dim i As Long, j As Long, z As Object, n As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("E4:F65536").ClearContents
sat2 = Cells(65536, "A").End(xlUp).Row
Set z = CreateObject("Scripting.Dictionary")
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If Not z.exists(Cells(i, "B").Value) Then
        If WorksheetFunction.CountIf(Range("A2:A" & sat2), Cells(i, "B").Value) > 0 Then
            n = n + 1
            z.Add Cells(i, "B").Value, n
        End If
    End If
Next
If n > 0 Then Range("E4").Resize(n, 2) = Application.Transpose(Array(z.items, z.keys))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub
 

Ekli dosyalar

drseref' Alıntı:
evren abi hata veriyor ..
Genişletmek için tıkla ...

vermez.
Birleştirilmiş hücreleriniz varsa onları düzeltin.
Unutmayın birleştirilmiş hücreler vba'ya ters gelir.
Eğer vba istiyosanız(Makro yani) birleştirilmiş hücre kullanmayacaksınız.
Üstelik makroları etkin kıldınızmı
 
aynı olanları sıralama

dosyayı gönderiyorum.
uğraşınız için tşk edeerim.
 
Sorun yok.
bende 2010 var
başka arkadaşta 2007 ile denedi.çalışıyor.Sorun yok.
Hata veren satır sarı renk placak
o satır yazın bakalım bana
 
sarı renk satır ne hatası verecek abi.
makroları etkin kıldım
dediğiniz gibi baktım birleştirilmiş hücre yok.
.....yine olmadı.
başka excel dosyalarında bir problem yok.
bu dosya hala hata veriyor.
 
Dim i As Long, j As Long, z As Object, n As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("E4:F65536").ClearContents
sat2 = Cells(65536, "A").End(xlUp).Row
Set z = CreateObject("Scripting.Dictionary")
For i = 2 To Cells(65536, "B").End(xlUp).Row
If Not z.exists(Cells(i, "B").Value) Then
If WorksheetFunction.CountIf(Range("A2:A" & sat2), Cells(i, "B").Value) > 0 Then
n = n + 1
z.Add Cells(i, "B").Value, n
End If
End If
Next
If n > 0 Then Range("E4").Resize(n, 2) = Application.Transpose(Array(z.items, z.keys))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"



b sütunda mükerrer (sadece b sütununda mükerrer kayıt olmayacak) . a ve b sütunları karşılaştırılacak aynı hücre değeri olanlar f sütunuda sıralanacak.
bunu yukardaki makro malesef yapmıyor.
yapan bir makro yazarsanız sevinirim.
 
Burada anlaşılmayan bir durum var.
Sadece a sütununda ve sütununda eşleşenlermi aktarılacak.
lütfen sorunuzu daha net sorunuz.
Çünkü defalarca kod yazmak cevaplayan kişileri bıktırıyor.
Burada her soruya 1 değil birden fazla yçnetmlerle yanıt verebilecek kapasitede arkadaşlar var.
Bütün maharet sizde.Siz sorunuz net ve anlaşılır sorarsanız yanıtını hem daha hızlı hemde doğru şekilde alırsınız.
Soruyu soraken siz konuyu biliyorsunuz.
Ama karşı taraf konuya çok uzak.
Hiç bilgisi yok.
Lütfen durumu bu şekilde algılayalım.:cool:
Sorunuza anlaşılır duruma gelince bakacam.
Az sonra.
drseref' Alıntı:
Dim i As Long, j As Long, z As Object, n As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("E4:F65536").ClearContents
sat2 = Cells(65536, "A").End(xlUp).Row
Set z = CreateObject("Scripting.Dictionary")
For i = 2 To Cells(65536, "B").End(xlUp).Row
If Not z.exists(Cells(i, "B").Value) Then
If WorksheetFunction.CountIf(Range("A2:A" & sat2), Cells(i, "B").Value) > 0 Then
n = n + 1
z.Add Cells(i, "B").Value, n
End If
End If
Next
If n > 0 Then Range("E4").Resize(n, 2) = Application.Transpose(Array(z.items, z.keys))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"



b sütunda mükerrer (sadece b sütununda mükerrer kayıt olmayacak) . a ve b sütunları karşılaştırılacak aynı hücre değeri olanlar f sütunuda sıralanacak.
bunu yukardaki makro malesef yapmıyor.
yapan bir makro yazarsanız sevinirim.
Genişletmek için tıkla ...
 
Dosyayı tekrar gönderiyorum.
Sadeleştirdim.
Sadece a ile b sütununu karşılaştırılacak.
Aynı değer içeren hücreler f sütununda sıralanacak.
 

Ekli dosyalar

drseref' Alıntı:
Dosyayı tekrar gönderiyorum.
Sadeleştirdim.
Sadece a ile b sütununu karşılaştırılacak.
Aynı değer içeren hücreler f sütununda sıralanacak.
Genişletmek için tıkla ...
Zaten yolladığınız şekilde çalışıyor kodlar.
Verdiğiniz örnekteki neticeyi verdi.Denedim.
 
Set z = CreateObject("Scripting.Dictionary")

hata kodu bu olarak bunu gösteriyor abi.
 
drseref' Alıntı:
Set z = CreateObject("Scripting.Dictionary")

hata kodu bu olarak bunu gösteriyor abi.
Genişletmek için tıkla ...
Anlayamadım.
Az önce yanlış sonuç veriyor demiştiniz.(Bu hata vermiyor çalışıyor anlamına gelir)
Şimdi ise çalışmıyor hata veriyor diyorsunuz.
Ben konudan çekiliyorum.
Ben anlayamıyorum bu durumu.
Belkide bu gün kafam karışık.
Sanırım başka arkadaşlar size yardımcı olacaktır.
Kolay gelsin.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst