11'e kalansız bölünen sayıların a değerine atanması

[peleryn]

Herkese Merhabalar;

100 ile 1.000.000 arasındaki 11'e kalansız bölünebilen sayıları döngüye sokmak istiyorum.

For a=1 to 10 gibi bir ifadeyi nasıl a=100 ile 1.000.000 arasındaki 11'e kalansız bölünenler olarak yazabilirim?

Yardımcı olan olursa sevinirim..

 

[Orion1]

Çalışması ne kadar sürer bilemem.

Application.ScreenUpdating = False
Range("A1:E65536").Clear
For i = 100 To 1000000
    If i / 11 = Int(i / 11) Then
        sat = sat + 1
        Cells(sat, "A").Value = i
        Cells(sat, "B").Value = 11
        Cells(sat, "C").Value = i / 11
    End If
Next
Application.ScreenUpdating = True
MsgBox "işlem bittti"

 

[uzmanamele]

merhaba

alternatif olsun

Sub onbireböl()
Range("a:a").ClearComments
y = 0
For i = 100 To 1000000
If i Mod 11 = 0 Then
y = y + 1
Cells(y, 1) = i
End If
Next
End Sub

 

[omerceri]

bir alternatifte benden
Sub a()
For i = 11 To 1000000 Step 11

say = Range("c1").CurrentRegion.Rows.Count
Range("c" & say + 1).Value = i
Next
End Sub

 

[peleryn]

Evren ve uzmanamele hocalarım çözümleriniz için teşekkür ederim..Her iki kod da 65536 sınırına dayanınca runtime 1004 hatası verdi ve sayfa yetmediği için durdu.Zaten sırf bu sorunu yaşamamak için öyle bir kod soruyorum ki bu kod bu sayısal değerleri 1 to 10 'a step verirmişiz gibi onbire bölünen sayılar olarak algılasın ve atamayı direkt yapsın.

Örneğin A1 hücresinde her next adımında sadece 11 e bölünebilen bir sayı dönsün..umarım anlatabilmişimdir.

 

[peleryn]

Sn omerceri size de teşekkür ederim..İhtiyacım çok basit birşeymiş sadece Step 11'i almam yeterli oldu.Sorunumu hallettim herkese ilgisi için teşekkür ediyorum.

 

[Orion1]

Evren ve uzmanamele hocalarım çözümleriniz için teşekkür ederim..Her iki kod da 65536 sınırına dayanınca runtime 1004 hatası verdi ve sayfa yetmediği için durdu.Zaten sırf bu sorunu yaşamamak için öyle bir kod soruyorum ki bu kod bu sayısal değerleri 1 to 10 'a step verirmişiz gibi onbire bölünen sayılar olarak algılasın ve atamayı direkt yapsın.

Örneğin A1 hücresinde her next adımında sadece 11 e bölünebilen bir sayı dönsün..umarım anlatabilmişimdir.

Anlamadım.
11 e bölünen ne kadarsa o kadar olması gayet doğal.Taşabilirde.
yani o sayılar 11 e tam bölünen sayılar değilmi?Ben sorunuzdan bir şey anlamadım.

 

[uzmanamele]

Evren ve uzmanamele hocalarım çözümleriniz için teşekkür ederim..Her iki kod da 65536 sınırına dayanınca runtime 1004 hatası verdi ve sayfa yetmediği için durdu.Zaten sırf bu sorunu yaşamamak için öyle bir kod soruyorum ki bu kod bu sayısal değerleri 1 to 10 'a step verirmişiz gibi onbire bölünen sayılar olarak algılasın ve atamayı direkt yapsın.

Örneğin A1 hücresinde her next adımında sadece 11 e bölünebilen bir sayı dönsün..umarım anlatabilmişimdir.

merhaba

bu işinizi görür mü?

Sub onbireböl()
Range("a:b").ClearComments
y = 0
a = 1
For i = 100 To 1000000
If i Mod 11 = 0 Then
y = y + 1
If y = 65536 Then
y = 1
a = 2
End If
Cells(y, a) = i
End If
Next
End Sub

100 ile 1.000.000 arasında 90.900 adet 11'e bölünen sayı olduğu için ilk kodlar hata verebilir.
ben excel 2007 de denediğim için ilk kodda hata mesajı almamıştım

 

[peleryn]

Sn Hocalarım alternatif olarak verilen tüm kodlar işimi görüyor çok teşekkür ediyorum.İhtiyacım olan 11'e bölünebilen tüm sayıları listelemek değil her next adımında sırayla sayıları değil 11 e bölünebilen sayıları döngüde çalıştırabilmekti.

Bu kodları einstein'ın üç yıl üzerinde çalışıp çözemediği iddia edilen aşağıdaki sorunun çözümü için kullanmam gerekiyordu.

Eski zamanlarda bir yumurta tüccarı varmış. Yumurta toptancısına gidip bir miktar yumurta almak istemiş. Toptancı ona ne kadar yumurta istediğini sormuş. O da cevaplamış: - Hmm ne kadar yumurta istediğimi tam olarak bilmiyorum ama 100'den fazla olacağı kesin. Yumurtalarımı ikişer ikişer satarsam bana bir yumurta kalsın Yumurtalarımı üçer üçer satarsam gene bana bir yumurta kalsın. Yumurtalarımı dörder dörder satınca da bana bir yumurta kalsın. Beşer beşer altışar altışar yedişer yedişer sekizer sekizer dokuzar dokuzar onar onar satsam da hep bana bir yumurta kalsın Ama demiş onbirer onbirer satarsam bana yumurta kalmasına gerek yok! Toptancı başlamış mal mal düşünmeye Sizce yumurtacı toptancıdan en az kaç yumurta almak istemiş?

Çözüm için yardımlarınızdan sonra kullandığım kodun son hali aşağıdaki gibidir.

İlgilerinize teşekkür ederim.

Sub einstein()
For i = 110 To 1000000 Step 11
[a1] = i
If i Mod 2 = 1 And i Mod 3 = 1 And i Mod 4 = 1 _
And i Mod 5 = 1 And i Mod 6 = 1 And i Mod 7 = 1 _
And i Mod 8 = 1 And i Mod 9 = 1 And i Mod 10 = 1 Then Exit Sub
Next
End Sub

 

[uzmanamele]

merhaba

...einstein'ın üç yıl üzerinde çalışıp çözemediği iddia edilen aşağıdaki sorunun çözümü için kullanmam gerekiyordu.

=OKEK(2;3;4;5;6;7;8;9;10)*10+1=25.201

ben Albert Einstein'den daha zeki olmadığıma göre O bu problemi 2 dakika içersinde çözebilirdi.

 

[peleryn]

merhaba

=OKEK(2;3;4;5;6;7;8;9;10)*10+1=25.201

ben Albert Einstein'den daha zeki olmadığıma göre O bu problemi 2 dakika içersinde çözebilirdi.

Hocam bu durumda Einstein'ın dediğiniz gibi 3 yıl uğraşmayacağı kesin gibi ama sanırım benim sizin çözümünüzü anlamam bir üç yıl alabilir

 

[parametre]

Hocam bu durumda Einstein'ın dediğiniz gibi 3 yıl uğraşmayacağı kesin gibi ama sanırım benim sizin çözümünüzü anlamam bir üç yıl alabilir

Bazen zor gibi gozuken problemlerin çok basit bir mantıkla rahat bir şekilde çozuldugu çok kere gorulmustur . arkadasımız ikiyi uce dorde onbire kadar olan kombinasyonları dusunerek işlem yapmış sonucta bu olmalı