iki sayı arasındaki rakamları bulma ayrı hücrelere yazma

[cem yılmaz]

yapmak istediğim işlem kısaca belirli iki rakam aralığı vererek bu arasında kalan rakamları belirli hücrelere makro yardımıyla yapıştırmak

örneğin girdiğim sayı aralığı 1-100 (1-100 dahil)arasında kalan sayıların ilk 50 adedini b6 hücresine kalan 50 adedinide d6 hücresine yapıştırsın?
Bu işlem için yardım edebilirmisiniz?

kısaca kullandığım formül
Sub sayıyaz()
a = Range("A1")
b = Range("B1")
For i = a To b
Cells(i + 1 - a, 4) = i
Next
End Sub

 

[Orion1]

Dosyanız ekte.

Sub sayıyaz()
Dim a As Long, b As Long, a_sat As Byte, b_sat As Long
a = Range("e1")
b = Range("f1")
a_sat = 6: b_sat = 6
Application.ScreenUpdating = False
Range("A6:A100,B6:B100").ClearContents
For i = a To b
If a_sat <= 55 Then
    Cells(a_sat, 2).Value = i
    a_sat = a_sat + 1
    Else
    Cells(b_sat, 4).Value = i
    b_sat = b_sat + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı..!!"
End Sub

 

[cem yılmaz]

hocam çok teşekkür ederim ilgi ve alakanıza yalnız küçük düzeltmeler yapabilmek açısından şunları sorabilirmiyim?
1-)yapmış olduğunuz sistemde hücrenin yapıştırma yerlerini değiştirmek istersem ne yapmam gerek?
2-) ilk beş hücre sabit kalan hücreler hareketli durumda bunu nasıl değiştirebilirim?

 

[cem yılmaz]

Sub sayıyaz()
Dim a As Long, b As Long, a_sat As Byte, b_sat As Long
a = Range("e1")
b = Range("f1")
a_sat = 6: b_sat = 6Application.ScreenUpdating = False
Range("A6:A100,B6:B100").ClearContents
For i = a To b
If a_sat <= 55 Then
Cells(a_sat, 4).Value = i
a_sat = a_sat + 1
Else
Cells(b_sat, 6).Value = i
b_sat = b_sat + 1
End If
Next
Application.ScreenUpdating = True

End Sub


kendimce buldu&#287;um de&#287;i&#351;tirme y&#246;ntemi &#351;u ama a_sat=6 ve b_sat6'y&#305; de&#287;i&#351;tirdi&#287;im zaman ilk 48 birinci s&#252;tuna sonraki say&#305;lar ikinci s&#252;tuna ge&#231;iyor.nas&#305;l d&#252;zeltebilirim

 

[Orion1]

hocam çok teşekkür ederim ilgi ve alakanıza yalnız küçük düzeltmeler yapabilmek açısından şunları sorabilirmiyim?
1-)yapmış olduğunuz sistemde hücrenin yapıştırma yerlerini değiştirmek istersem ne yapmam gerek?
2-) ilk beş hücre sabit kalan hücreler hareketli durumda bunu nasıl değiştirebilirim?

1-)

Cells(a_sat, 2).Value = i

Yukarıda 2 sütun numarasını göstermektedir Yani 2 numaralı sütun B sütunudur.
Burada 2 yerine listelemek istediğiniz sütun numarasını veya sütun adını yazınız
Aşağıdaki gibi

Cells(a_sat, "B").Value = i

2-)

a_sat = 6: b_sat = 6

Yukarıdaki satırlarda 6 yazarak 6ncı satırdan başlanacağı kabul edilmiştir.
Siz 6 yerine 0 dan büyük bir sayı yazarak istediğiniz satırdan başlayarak listeleme yapabilirsiniz.

 

[Orion1]

Sub sayıyaz()
Dim a As Long, b As Long, a_sat As Byte, b_sat As Long
a = Range("e1")
b = Range("f1")
a_sat = 6: b_sat = 6Application.ScreenUpdating = False
Range("A6:A100,B6:B100").ClearContents
For i = a To b
If a_sat <= 55 Then
Cells(a_sat, 4).Value = i
a_sat = a_sat + 1
Else
Cells(b_sat, 6).Value = i
b_sat = b_sat + 1
End If
Next
Application.ScreenUpdating = True

End Sub


kendimce bulduğum değiştirme yöntemi şu ama a_sat=6 ve b_sat6'yı değiştirdiğim zaman ilk 48 birinci sütuna sonraki sayılar ikinci sütuna geçiyor.nasıl düzeltebilirim

If a_sat <= 55 Then

Yukarıdaki satırda 55in üzerine sayı ekleyerek veya çıkarark deneyiniz .Sizin anlattğınıza bakılrsa 55 yerine 57 olamsı gerekiyor.

 

[cem yılmaz]

evet şimdi oldu çok çok teşekkürler hocam sağolun bu iyiliğinizi asla unutmayacağım bilginize emeniğinize sağlık

 

[Orion1]

evet şimdi oldu çok çok teşekkürler hocam sağolun bu iyiliğinizi asla unutmayacağım bilginize emeniğinize sağlık

Rica ederim.
iyi çalışmalar.

 

[sosyogog0401]

Merhaba elimdeki excel dosyasında aylara göre düzenlenmiş satış raporları var. ben değeri 0-10 arasında olanları ayrı hücreye, 10-30 olanları ayrı hücreye, 30-50 olanları ayrı hücreye 50-100 olanları ayrı hücreye, 100 ve üzerini ayrı hücreye yazsın istiyorum (#yok yerine boş olsun formülde) sonra bu yeni verlierle bir grafik oluşturmak istiyorum. Bu grafikte her sayı aralığı faklı renkte olsun. Örneğin 0-10 arası amvi, 10-30 arası yeşil gibi...
Yıl Ay Satış Adeti
2011 Temmuz 19
2011 Ağustos 46
2011 Eylül 23
2011 Ekim 4
2011 Kasım 13
2011 Aralık 8
2012 Ocak 18
2012 Şubat 42
2012 Mart 41
2012 Nisan 27
2012 Mayıs 22
2012 Haziran 21
2012 Temmuz 39
2012 Ağustos 53
2012 Eylül 50
2012 Ekim 49