aynı olanların listelenmesi

[drseref]

sitedeki tüm dosyaları inceledim.tam istediğim gibi macro bulamadım.dosyadaki formüllü değil macrolu çözüm olursa sevinirim.

 

[Orion1]

Dosyanız ektedir.

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

 

[drseref]

evren abi hata veriyor ..

 

[Orion1]

evren abi hata veriyor ..

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ı

 

[drseref]

evren abi run eror 429 hatası yazıyor.

 

[Orion1]

evren abi run eror 429 hatası yazıyor.

Yollayın dosyayı

 

[drseref]

aynı olanları sıralama

dosyayı gönderiyorum.
uğraşınız için tşk edeerim.

 

[Orion1]

dosyayı gönderiyorum.
uğraşınız için tşk edeerim.

Gelmedi dosya.

 

[drseref]

aynı olanları sıralama

dosya tekrar gönderiyorum.

 

[Orion1]

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

 

[tahsinanarat]

Bende hata vermedi, bilgilerinize

 

[drseref]

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.

 

[drseref]

butonun macrosu yok......

 

[drseref]

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.

 

[drseref]

acil lazım

 

[Orion1]

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.
Sorunuza anlaşılır duruma gelince bakacam.
Az sonra.

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.

 

[drseref]

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.

 

[Orion1]

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.

Zaten yolladığınız şekilde çalışıyor kodlar.
Verdiğiniz örnekteki neticeyi verdi.Denedim.

 

[drseref]

Set z = CreateObject("Scripting.Dictionary")

hata kodu bu olarak bunu gösteriyor abi.

 

[Orion1]

Set z = CreateObject("Scripting.Dictionary")

hata kodu bu olarak bunu gösteriyor abi.

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.