index oluşturmak istiyorum

[gemilim]

arkadaşlar bir kasa defterimiz var ve buradaki bilgileri bir formül aracılığı ile tek tek cari hesaplara aktaracağım. ancak bir yanlışlık olmaması (mesela aynı verinin 2 kez bir dosyaya yazmaması) için bir index kullanacağım.
rastgele sayılar üreterek yada şimdi() gibi fonkisyonlar üreterek her bir satır için bunu yapmayı düşündüm.
ancak şu formüllle yaptığım zaman formülü kullandığım bütün satırlar her seferinde değişmeye başladı
A7 = EĞER(E7<>"",RASTGELEARADA(1,1000),"")
bu formülle "E7" yi değiştirdiğimde sadece "A7 "de bir sayı üretmesi gerekirken. dolu olan diğer "A" hücrelerindeki sayılarda yeniden hesaplanıyor ve değişiyor.
makro kullanarakta her satır için kopyala ve değerleri yapıştır çözümü aklıma geldi ama uzun olacağını düşünüyorum.
kolay bir yöntemi varmıdır.
Şimdiden teşekkürler.

Mehmet

 

[gemilim]

soru zormuydu
yoksa çokmu saçma acaba
yada çokmu karışık yazmışım

neyse yinede teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Ama rastgele sayı ile ne yapmak istediğinizi açıkçası anlayamadım. Verdiğim kod aynı değeri birden fazla verebilir bunuda belirtmekte yarar görüyorum.

[vb:1:bdfdd93108]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
Target.Offset(0, -4) = Int(Rnd * 1000)
End Sub
[/vb:1:bdfdd93108]