mükerrre kayıt

[mcetinkaya65]

A stünundaki bilgileri g stünunda gelişmiş filtre uygulayarak mükerrer kayıtı teke indirmek için filtrelersek a1 hücresindeki bilgiyi 2 kez yazıyor.saygılarımla.

 

[Vedat Özer]

Merhabalar,


Boş bir modül ekleyip aşagıdaki kodları yapıştırıp bir butona bağlarak deneyin,

Mükerrer Kayıtla İlgili Konular İnceleyin

Option Explicit
 
Sub SiralaSay()
Dim S1 As Worksheet 
Dim i As Long, son As Long, sat As Long
 
Set S1 = Sheets("Sayfa1"):
 
Application.ScreenUpdating = False
 
son = S1.[a65536].End(3).Row
 
sat = 1
For i = 1 To son

    If WorksheetFunction.CountIf(S1.Range("a1:a" & i), S1.Cells(i, "a")) = 1 Then
        sat = sat + 1
        S1.Cells(sat, "g") = S1.Cells(i, "a")
    End If
Next i
 

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır", vbCritical

End Sub

 

[mcetinkaya65]

İlginize bilginize teşekkür.
Filtreleme yoluyla çok uğraşmıştım.O şekil de olsaydı istediğimiz yerde uygulamamız çok pratik olacaktı.Selamlar

 

[Vedat Özer]

Merhabalar,

İstediğiniz şekilde yukarda verdiğim linkte "Mükerrer-4" sayfa sekmesinden detaylı bir şekilde anlatımı yapılmış .

 

[mcetinkaya65]

Sayın hocam mükerrer 4 örneğinde de Ankarayı 2 kez yazmış.Boş bir sayfada denediğimde aktarılan yerin ilk hücresindekini kelime veya sayı 2 kez yazıyor.

 

[Vedat Özer]

Merhabalar,


Liste aralıgı satır başından itibaren yaparak deneyin,


Örneğin;

$A$1:$A$26

 

[mcetinkaya65]

Değerli hocam a1 hücresinde bulunan değerden a stünuda başka varsa o değeri 2 kez yazıyor.Saygılarımla.

 

[yuzun23]

=eğer(eğersay($a:$a;a1)>1;doğru;yanlış)