sayıları değiştir

[ismailozkan4224]

değerli arkadaşlar ekli tabloda c4:v43 arasında 1 ile 20 arasında rakamlar yerleştirilmiştir. benim istediğim bazen sadece 20 yazan yere bazen de 19 ve 20 yazan yerlere sırası ile 1-18 ya da 1-19 arası sayıları yerleştirmek.muhtemelen iki ayrı makro gerekecek.
17-18-1-2
3-17-18-4
5-6-17-18

17-18-1-19
19-17-18-2
3-19-17-18
şeklinde

 

[ismailozkan4224]

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,4,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,5,4,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,6,5,4,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,15,7,6,5,4,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,8,7,6,5,4,3,2,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,9,8,7,6,5,4,3,2,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,10,9,8,7,6,5,4,32,,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,11,10,9,8,7,6,5,432,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,12,11,10,9,8,7,6,5432,,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,13,12,11,10,9,8,7,65432,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,14,13,12,11,10,9,8,765432,,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,15,14,13,12,11,10,9,8765432,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,16,15,14,13,12,11,10,98765432,,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,17,16,15,14,13,12,11,1098765432,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,18,17,16,15,14,13,12,111098765432,,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,19,18,17,16,15,14,13,12111098765432,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,20,19,18,17,16,15,14,1312111098765432,,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2,3,4,5,6,7,8,9,10,11,12,13,

 

[ismailozkan4224]

buradaki sayıların her biri hücrede. her satırdaki 19 ve 20 yazan yerlere sırası ile 1-19 arasındaki sayıları yazmasını istiyorum. 18 i yazdıktan sonra tekrar 1-18 arasındaki sayıları ve sonra tekrar aynı sayıları şeklinde. yani kaç tane 19 ve 20 varsa tamamı bitene kadar sırası ile 1-18 arası rakamla sırasıyla değiştirecek

 

[Necdet]

Merhaba,

Doğru mu anladım, bilmiyorum, deneyiniz.

Sub Deneme()

    Dim Rak As Integer, _
        Hcr As Range, _
        Say As Integer
    
    Rak = Application.InputBox("Hangi Sayı Aranılacak?", "Sayı Giriş", 29, Type:=1)
    If Rak = 0 Then Exit Sub
    
    For Each Hcr In Range("C4:V43")
        If Hcr = Rak Then
            Say = Say + 1
            If Say = Rak Then Say = 1
            Hcr = Say
        End If
    Next Hcr
    
End Sub

 

[ismailozkan4224]

Merhaba,

Doğru mu anladım, bilmiyorum, deneyiniz.

Sub Deneme()

    Dim Rak As Integer, _
        Hcr As Range, _
        Say As Integer

    Rak = Application.InputBox("Hangi Sayı Aranılacak?", "Sayı Giriş", 29, Type:=1)
    If Rak = 0 Then Exit Sub

    For Each Hcr In Range("C4:V43")
        If Hcr = Rak Then
            Say = Say + 1
            If Say = Rak Then Say = 1
            Hcr = Say
        End If
    Next Hcr

End Sub

sayın necdet bey ilginiz için teşekkür ederim. ekli dosyada sayıları dağıt makrosu ile sayıları dağıtıyorum.
1- ancak sonradan sadece 20 yazanları 1-19 arası sayılarla sırası ile değiştirmem gerekiyor.sizin yazdığınız makro bu kısmı karşılıyor.
2-ya da sadece 19 ve 20 yazanları 1-18 arası sayılarla sırası ile değiştirmem gerekiyor.
örnek olarak c4:v4 arasında 19 ve 20 var .bunları sırası ile 1 ve 2 yapacak sonrasında alttaki satırlarda da aynı işlemi 3,4 - 5,6 - 7,-8, .....17-18 olarak devam ettirecek. en son 18 i verdikten sonra halen 19-20 varsa tekrar 1,2-3,4,.....17,18 olarak devam edecek

 

[ismailozkan4224]

InputBox olması şart değil makronun içine de yazabiliriz sayıları