önceki değerleri unutmama

[mlakdag]

Sayın Forum Üyeleri,

Kabaca şöyle bir ifadede;

sub deneme()
for f = 1 to ....
.
.
if exsayı = sayı then ...
for i = 1 to ...
sayı = ....
.
.
exsayı = sayı
next i
next f
End sub

i döngüsü içinde sayı değişkenin aldığı her değeri exsayı değişkenine atamak ve f döngüsü içindede sayı ile sayının daha önce aldığı herdeğeri (exsayı değişkeni) karşılaştırmak istiyorum. Galiba sorun "Array" ile çözülebilir ama bir türlü formülize edemedim.

Konuya ilişkin yardımlarınızı rica ediyor, ayırdığınız zaman ve harcadığınız emek için şimdiden teşekkürlerimi sunuyorum.

Saygılarımla.

 

[uzmanamele]

merhaba

sorunuzu örnek dosya ile destekleyiniz.

 

[mlakdag]

merhaba

sorunuzu örnek dosya ile destekleyiniz.

Dosya içinde soruyu tekrar izah etmeye çalıştım.

Tekrar Teşekkürler.

Saygılarımla.

 

[Orion1]

Dosyanız ektedir.

Global col As Collection
Sub auto_open()
Dim i As Long, sat As Long
Set col = New Collection
For i = 2 To Sheets("Sheet1").Cells(65536, "A").End(xlUp).Row
    col.Add Sheets("Sheet1").Cells(i, "A").Value
Next

End Sub
Sub rastgele_59()
Dim i As Long, deg, say As Long
Randomize Timer
Sheets("Sheet1").Range("b2") = ""
If col.Count < 1 Then
    MsgBox "rastgele sayı bitti.", vbCritical, "UYARI"
    Exit Sub
End If
say = Int(Rnd() * col.Count) + 1
deg = col(say)
Sheets("Sheet1").Range("B2").Value = deg
MsgBox "Sayı : " & deg & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
col.Remove (say)
End Sub

 

[mlakdag]

Sayın Evren Gizlen,

Yardımlarınız için çok teşekkür ederim.

Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen,

Yardımlarınız için çok teşekkür ederim.

Saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

Sayın evren gizlen yine süper bir kod yazmışsınız. Tebrik ve teşekkür ederim. Ayrıca Münir Özkul'u fotoğrafı için de teşekkürler.