Benzersiz

[turgayzeynep]

Hocam kolay gelsin

Makro ile F4 :F 111 arasında olan benzersizleri otomatik olarak nasıl yapabilirim makro ile yardımcı olurmusnuz

 

[AdemCan]

Profil bilginizi yapılan açıklamaya göre günceller misiniz?

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

excel.web.tr

 

[Levent Menteşoğlu]

Hocam kolay gelsin

Makro ile F4 :F 111 arasında olan benzersizleri otomatik olarak nasıl yapabilirim makro ile yardımcı olurmusnuz

Bunu için veri menüsündeki "Yinelenenleri Kaldır" özelliğinide kullanabilirsiniz. Makro ile isterseniz bu işlemi makro kaydet ile yaparak ilgili kodlarada ulaşabilirsiniz.

 

[turgayzeynep]

Bunu için veri menüsündeki "Yinelenenleri Kaldır" özelliğinide kullanabilirsiniz. Makro ile isterseniz bu işlemi makro kaydet ile yaparak ilgili kodlarada ulaşabilirsiniz.

Ekli dosyayı görüntüle 247210

Hocam ben yazdığımda otomatikmen kendisinin bunu yapması lazım O sebepten dolayı sordum Rica etsem yardımcı olur musunuz

 

[Levent Menteşoğlu]

Hocam ben yazdığımda otomatikmen kendisinin bunu yapması lazım O sebepten dolayı sordum Rica etsem yardımcı olur musunuz

Range("F4:F111").RemoveDuplicates Columns:=1, Header:=xlNo

 

[turgayzeynep]

Range("F4:F111").RemoveDuplicates Columns:=1, Header:=xlNo

[

Range("F4:F111").RemoveDuplicates Columns:=1, Header:=xlNo

Hocam direkt kodu kod bölümüne yapıştırıyorum doğru mudur başka bir şey yazmama gerek yok

 

[Levent Menteşoğlu]

Hayır. Aşağıdaki gibi bir sub oluşturup onu bir modüle kopyalayın sonrada bir butona bağlayarak çalıştırın. Kodu önce dosyanızın bir kopyası üzerinde deneyin.

Sub benzersiz()
Range("F4:F111").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

 

[turgayzeynep]

Hayır. Aşağıdaki gibi bir sub oluşturup onu bir modüle kopyalayın sonrada bir butona bağlayarak çalıştırın. Kodu önce dosyanızın bir kopyası üzerinde deneyin.

Sub benzersiz()
Range("F4:F111").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Hocam butonsuz olmuyor mu çalışmaz mı Makro butonsuz bir şekilde olmasını istiyorum F4 ile F 111 arasındaki veriler ana veride bulunuyor benim almak istediğim yer ise telefon tutanağı sayfasına benzersiz bir şekilde almak istiyorum telefon tutanağı sayfasının a sütunun 80 ile A 150 arası sutununa almak istiyorum

 

[Levent Menteşoğlu]

Olurda bunun için örnek dosyanızı ekleyin.

 

[turgayzeynep]

Askeri evrak olduğu için yükleme yapamıyoruz kusura bakmayın

 

[Levent Menteşoğlu]

F4 ile F111 arasındaki verilerin bulunduğu sayfanın adı nedir? Ona göre bir kod önereceğim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu "telefon tutanağı" sayfasının kod sayfasına kopyalayın. Kod içindeki "veri alınacak sayfa" yerine verilerin alınacağı sayfa adını yazın.

Kod "telefon tutanağı" sayfası her aktif olduğunda çalışacaktır. Kodun çalışması için başka bir sayfa seçtikten sonra "telefon tutanağı" isimli sayfası tekrar seçin.

Private Sub Worksheet_Activate()

Set s1 = Sheets("veri alınacak sayfa")

Range("A80:A150").ClearContents

For a = 4 To 114

If s1.Cells(a, "F") = "" Then Exit For

say = WorksheetFunction.CountIf(Range("A80:A150"), s1.Cells(a, "F"))

If say = 0 Then
Cells(80 + c, "A") = s1.Cells(a, "F")
c = c + 1
End If

Next

End Sub

 

[turgayzeynep]

Hocam telefon tutanağında hangi sütuna gelmesi gerekiyor bunların kodu çalıştıramadım a80 a 150'leri f ile değiştirdim

 

[turgayzeynep]

Hocam ana veri de F12'den F11 sutununda birçok ülke yazıyor ben bunları telefon tutanağı sayfasına A1: A 111 kadar benzersizleri sıralamasını istiyorum Benim istemiş olduğum kod bu şekilde tam Buna göre tasarlarsanız çok büyük yardımcı olmuş olursunuz teşekkür ederim

 

[Muhammet Okumuş]

Telefon sayfasındayken sayfa sekmesine sağ tıklayın ve kod görüntüle seçin.
Açılan VBE sayfasına kodları yapıştırın.

 

[turgayzeynep]

Yaptım olmuyor hocam benzersizleri getirmiyor

 

[Muhammet Okumuş]

2. sayfa F sütunu veriler var. 1. sayfa A sütununa sıralar.

 

[turgayzeynep]

Hocam dosyayı indiremiyorum Ne yapmam lazım