2 hücre arasında eşlenik rakamlar oluşturma Acil Yardım lütfen..

[mehmet332]

Arkadaşlar benim sorum örneğin bir hücreye 3 yazdık bir alt hücreye otomatikmen 245678 sayısı, aynı hücreye 4 yazınca yine alt hücreye 545854 sayısı, 5 yazınca 876548....diye verebilen 8 farklı numaralar oluşturmam gerekiyor bunun için nasıl bir yol izleriz ???

 

[Orion1]

İlgili sayfanın kod bölümüne aşağıdaki kodları girin.
Ben sadece 3 sayısı için yaptım.
Diğerlerini size bıraktım.
A sütununda çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = 3 Then Target.Offset(1, 0).Value = 245678
End Sub