Merhaba Günaydın arkadaşlar ekte gönderdiğim dosyada Sayfa1 e yazdığım isimleri sayfa2 yazsın ancak sayfa1 e bir isim birden çok yazıyor böyle durumdaki isimlerin sadece birini sayfa2 e yazacak yardımlarınızı bekliyorum
İsimleri benzersiz listeleme
- Konbuyu başlatan polis-53
- Başlangıç tarihi
- Katılım
- 28 Eylül 2007
- Mesajlar
- 4,051
- Excel Vers. ve Dili
- 2013 Türkçe
Merhaba,
Sub Mükerrer()
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Sheets("Sayfa2").Range("A1"), Unique:=True
End Sub
kodu deneyiniz.
Sub Mükerrer()
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Sheets("Sayfa2").Range("A1"), Unique:=True
End Sub
kodu deneyiniz.
Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.
Kod:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu : İsimleri Tek Liste Halinde Diğer Sayfaya
'Mail : m.batu.1967@gmail.com
'Msn : m.batu.1967@hotmail.com.tr
'Skype : m.batu.1967
'Coder By : asi_kral_1967
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("Sayfa2")
SAT = S1.Range("A" & Rows.Count).End(xlUp).Row
If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(S1.Range("A3:A" & SAT), Target) = 0 Then
S1.Cells(SAT + 1, "A") = Target
End If
End SubKolay Gelsin.
Dosya Ekte.
Kolay Gelsin.