Sayfa1 den sayfa2 veri aktarmak

[ydeniz1]

Sayfa1 B kolonda yazılı firma isimlerini Sayfa2 B kolona aktarmak istiyorum, lakin sayfa1'de yazılı olan firma isimlerinde mükerrer olanlar var ben bunları sayfa2'ye aktarırken sadece 1'er kez aktarılmasını istiyorum, ne şekilde bir formül uygulayabilirim?..

 

[Orion1]

Sayfa1 B kolonda yazılı firma isimlerini Sayfa2 B kolona aktarmak istiyorum, lakin sayfa1'de yazılı olan firma isimlerinde mükerrer olanlar var ben bunları sayfa2'ye aktarırken sadece 1'er kez aktarılmasını istiyorum, ne şekilde bir formül uygulayabilirim?..

Örnek dosya ekleyiniz.O zaman daha çabuk yardım alabilirsiniz kanaatindeyim.

 

[ydeniz1]

üstadım eklediğim dosyada izah etmeye çalıştım umarım anlatabilmişimdir, acemiliğimi mazur görün

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub aktar59()
Dim sh As Worksheet, sat As Long, liste(), i As Long, z As Object
Sheets("Sayfa2").Select
Range("A2:A" & Rows.Count).ClearContents
Set sh = Sheets("Sayfa1")
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row
liste = sh.Range("B2:B" & sat).Value
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
    End If
Next i
Erase liste
Range("A2").Resize(z.Count, 1) = Application.Transpose(Array(z.keys))
Set z = Nothing
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly

End Sub

 

[Emir Hüseyin Çoban]

. . .

Müsadenizle Orion1, alternatif olarak.

Sub KOD()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

sat = 2
S2.Range("A2:A65536").ClearContents
For i = 2 To S1.[B65536].End(3).Row
If WorksheetFunction.CountIf(S2.Range("A:A"), S1.Cells(i, "B")) = 0 Then
S2.Cells(sat, "A") = S1.Cells(i, "B")
sat = sat + 1
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[ydeniz1]

Üstadım ilginiz için çok çok teşekkür ederim yalnız ben VBA olarak değil formül olarak yapmak istemiştim (((

 

[Orion1]

Üstadım ilginiz için çok çok teşekkür ederim yalnız ben VBA olarak değil formül olarak yapmak istemiştim (((

sorunuzu fonksiyonlar bölümüne sorunuz.

 

[ydeniz1]

Yönetici arkadaşlardan konunun fonksiyonlar bölümüne aktarılmasını rica ediyorum, yanlış yerde konu açmışım, özür dilerim.

 

[ydeniz1]

formül için yardımcı olabilir misiniz?

 

[ZorBey_]

Merhaba İyi Çalışmalar
Ekli Dosyayı Denermisiniz.

 

[ydeniz1]

Merhaba İyi Çalışmalar
Ekli Dosyayı Denermisiniz.

üstad formülü uyguladım fakat olmadı hata verdi, birkez daha yinelemek istiyorum bir dosya ekledim benim için önemli olan sadece firma isimleri ben bu firma isimlerini 2. sayfaya aktarmak istiyorum tek yapmak istediğim içinde mükerrer yazılı firma isimlerini sadece tek bir kez aktarmak.

 

[ZorBey_]

İyi Çalışmalar
Sayın
grafikop
Sayfa1 De A Sutunundaki Formüllere
Sayfa2 De A Sutunundaki Formüllere
Sayfa2 De B Sutunundaki Formüllere
Dikkat Edin Lütfen
Gönderdiğim Dosya
Mükerrer Firma İsimlerini
Tek OLarak Sayfa2 Ye Alıyor.

 

[ydeniz1]

üstad;
=EĞER(EĞERSAY(C$3:C3;C3)=1;MAK(C$2:C2)+1;"")

formülün sonundaki +1 nedir?

 

[ydeniz1]

halen tam olarak yapmak istediğim formülü bulamadım