Mükerrer kayıt

[ahmett46]

Slm Arkadaşlar
konuyla ilgili örneklerre baktım ama sorunumu çözecek örnek bulamadım. Ekli dosyada bana yardımcı olursanız sevinirim. Teşekkürler.

 

[meslan]

merhaba

Sub x_yaz()
satır = 3
For i = 3 To [b65536].End(3).Row
If WorksheetFunction.CountIf([c:c], Cells(i, 1).Value) < 1 Then
Cells(satır, 3) = Cells(i, 1).Value
satır = satır + 1
End If
Set isim = Rows(2).Find(Cells(i, 2), lookat:=xlValue)
Set tarih = Columns(3).Find(Cells(i, 1), lookat:=xlValue)
If Not tarih Is Nothing Then Cells(tarih.Row, isim.Column) = "X"
Next
End Sub

Kolay gelsin.

 

[ahmett46]

İlginize teşekkür ediyorum ama olmuyor yada ben yapamadım.

 

[meslan]

Soruyu eksik anlamışım . Düzelttim.Tekrar deneyin

 

[ahmett46]

Teşekkürler şimdi oldu

 

[ahmett46]

eklemiş olduğum dosya üzerinde nasıl değişiklik yapabilirim. İsim listesini silmek istiyorum

 

[meslan]

eklemiş olduğum dosya üzerinde nasıl değişiklik yapabilirim. İsim listesini silmek istiyorum

Kodun il satırına

Range("C3:V" & [A65536].End(3).Row).Clear

ilave ediniz.

 

[ahmett46]

hocam eklediğim dosya üzerinde yani burdaki dosya açıldığında görünmesin

 

[meslan]

hocam eklediğim dosya üzerinde yani burdaki dosya açıldığında görünmesin

Kardeş kusura bakma sorunuz anlayamadım. Biraz açıklama yapın. Yardımcı olayım.

 

[meslan]

Dosyayı inceleyiniz. İstediğiniz bu mu?

 

[ahmett46]

slm hocam
isimler derken listedeki buraya eklediğim isimler gerçek kişilerin isimleriydi. dosya içindeki isimleri silmek istiyordum. sitede yüklü olan dosyadan tamamını silmek istiyorum. yani bir üyemiz siteden dosyayı indirdiğinde dosyada hiç isim olmasın.
Ayrıca bir kaç sorum daha olacak
1-isimleri bir defa kodla yazan sütunda, bu isimleri alfabetik sıraya göre sıralama imkanımız varmı?
2-A sütununa yeni isimler eklediğimizde ve düğmeye tıkladığımızda tüm bilgileri silip yeniden isim sırasını oluşturup karşılarına X işareti koyabilirmi? İlginize teşekkürler

 

[ahmett46]

hocam yardım

 

[ahmett46]

yardım yok mu hocam?

 

[meslan]

slm hocam
isimler derken listedeki buraya eklediğim isimler gerçek kişilerin isimleriydi. dosya içindeki isimleri silmek istiyordum. sitede yüklü olan dosyadan tamamını silmek istiyorum. yani bir üyemiz siteden dosyayı indirdiğinde dosyada hiç isim olmasın

Bunu site yönetimi yapabilir.

Ayrıca bir kaç sorum daha olacak
1-isimleri bir defa kodla yazan sütunda, bu isimleri alfabetik sıraya göre sıralama imkanımız varmı?
2-A sütununa yeni isimler eklediğimizde ve düğmeye tıkladığımızda tüm bilgileri silip yeniden isim sırasını oluşturup karşılarına X işareti koyabilirmi? İlginize teşekkürler

Mevcut kod yeni eklenen isimleri zaten alıyor.
sıralamak için kod ekledim.
Son hali.

Sub x_yaz()
 Application.ScreenUpdating = False
 Cells.Clear
 Sheets("SAYFA1").Range("B3:B" & Sheets("SAYFA1").[b65536].End(3).Row).AdvancedFilter _
       Action:=xlFilterCopy, COPYTORange:=Range( _
        "A3"), Unique:=True
        Range("A3:A" & [a65536].End(3).Row).Copy
        Range("b1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
         [B1:Y1].Orientation = 90
      Application.CutCopyMode = False
Sheets("SAYFA1").Range("a3:a" & Sheets("SAYFA1").[a65536].End(3).Row).AdvancedFilter _
       Action:=xlFilterCopy, COPYTORange:=Range( _
        "a2"), Unique:=True
         Range("a2:a" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
   Range("a2:a" & [a65536].End(3).Row).Sort Key1:=Range("A2")
For i = 3 To Sheets("SAYFA1").[a65536].End(3).Row
Set isim = Rows(1).Find(Sheets("SAYFA1").Cells(i, 2), lookat:=xlValue)
Set tarih = Columns(1).Find(Sheets("SAYFA1").Cells(i, 1), lookat:=xlValue)
If Not tarih Is Nothing Then Cells(tarih.Row, isim.Column) = "X"
Next
 [A1:Y1].EntireColumn.AutoFit
 Application.ScreenUpdating = True
End Sub

 

[ahmett46]

Hocam çok teşekkürler harika olmuş. Bi sorum daha olacak denedim yapamadım. Z sütunundan sonraki sütunları temizlemese AA sütununa formül gireceğim. Mümkün mü? Teşekkürler..

 

[meslan]

Hocam çok teşekkürler harika olmuş. Bi sorum daha olacak denedim yapamadım. Z sütunundan sonraki sütunları temizlemese AA sütununa formül gireceğim. Mümkün mü? Teşekkürler..

Bu kodu

Cells.Clear

Bu kodla değiştir.

Columns("A:Z").Clear