Satırdakiler farklı olsun

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Arkadaşlar,
Ekli dosyadaki Makro, 1 - 40 arasındaki sayıları random olarak, her seferinde bir sonraki sütuna sıralıyor. (40 satır x 40 sütunluk işlem)
istenen; makroya nasıl bir eklenti yapmalı ki, satırdakiler birbirinden farklı olsun.
Saygılarımla
Ornek_TK
Not: Makro, her zaman minnetle andığım sitedeki üstatların çalışmasıdır. Sitenin sürekliliğinde emeği geçen herkese bir kere daha teşekkür ederim.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
Sub BenzersizRassal_Tek_Kolon()
    Dim dizi() As Long
   
    If Cells(6, [A6]).Value <> "" Then
10      alt = 1
        ust = 40
        ReDim dizi(ust - alt)
        say = 0
   
        For i = alt To ust
            dizi(say) = i
            say = say + 1
        Next
   
        For j = 0 To UBound(dizi)
            x = Int(((ust - alt) * Rnd))
            temp = dizi(x)
            dizi(x) = dizi(j)
            dizi(j) = temp
        Next j
        For i = 0 To UBound(dizi)
            Cells(i + 7, [A6]) = dizi(i)
            If WorksheetFunction.Countif(Range(Cells(i + 7, 5), Cells(i + 7, [A6])), Cells(i + 7, [A6])) >1 Then GoTo 10
        Next
    End If
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Deneyiniz.
Cells(i + 7, [A6]) = dizi(i)
If Cells(i + 7, [A6] - 1) = Cells(i + 7, [A6]) Then GoTo 10
Sayın Korhan Ayhan Hocam,
İlginize çok teşekkür ederim. Ancak bu çalışma bir önceki sütuna bakarak cevap veriyor daha önceki sütunlara bakmadığı için yine benzerler çıkıyor.
Saygılarımla
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kodu revize ettim. Tekrar deneyiniz.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Sayın Korhan Ayhan Hocam,
Günaydın, ilginize çok teşekkür ederim, üçüncü sütunda son satırda hata verdi, onun dışındakilerde vermedi.
Saygılarımla
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Sayın Korhan Ayhan Hocam,
İlginize tekrar teşekkür ederim, bir daha hiç hata vermedi.
Saygılarımla
 
Üst