Sayı Listesi Düzenleme

[arda41]

Merhabalar,

Elimdeki uzun bir sayı listesi üzerinde düzenleme yapmak istiyorum. Ekteki dosyada anlatmaya çalıştım. Yardımcı olabilecek arkadaşlara şimdiden çok çok teşekkür ederim.

Saygılarımla

 

[Ömer BARAN]

Merhaba.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın ve çalıştırın.
.

[FONT="Arial Narrow"]Sub sayı_düzenle()
For satır = 1 To [A65536].End(3).Row
    If Cells(satır, 1) > [D2] Or Cells(satır, 1) < [D1] Then _
    Cells(satır, 1) = WorksheetFunction.RandBetween([D1] * 10, [D2] * 10) / 10
Next
End Sub[/FONT]

 

[arda41]

Ömer Bey Merhabalar,

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

Saygılarımla

 

[Ömer BARAN]

Ömer Bey Merhabalar,
Yardımınız için çok çok teşekkür ederim.
Saygılarımla

İyi günler dilerim.
.