iki rakam arasını sıralama yardım

[tamer060]

İki rakam arasındak sayıları bulup sıralaması lazım nasıl bir formül kullanabilirim?

 

[omerceri]

Sıralama mokrosu aşağıda.
Formüle de yapılabilir ama bayağı çok hücreye formül yazmak gerekir.
Sub a()
Range("A11:N500").ClearContents
b = Range("D7") - Range("B7") + 1
c = Application.Ceiling(b / 14, 1) + 10
For i = 1 To b
Range("A11:N" & c)(i).Value = i
Next
End Sub

 

[omerceri]

Başlangıç rakamı 1 den farklı olunca yukardaki kodlar yanlış sonuç veriyor düzeltimiş kodlar aşağıda.
Sub a()
Range("A11:N500").ClearContents
b = Range("D7") - Range("B7") + 1
c = Application.Ceiling(b / 14, 1) + 10
e = Range("B7")
For i = 1 To b
Range("A11:N" & c)(i).Value = e
e = e + 1
Next
End Sub

 

[janveljan]

A11 hücresine aşağıdaki formülü yazıp, gri alanı bu formülle doldurabilirsiniz.

=EĞER(VE(data!A8>=Sheet1!$B$7;data!A8<=Sheet1!$D$7);data!A8;"")

 

[tamer060]

Emeğinize sağlık teşekkür ederim