Sayın hocam bu hücrelere verdirdiğiniz rasgele sayılara bir üst limit koyma ihtimali var mıdır? Örneğin sayımız 100 olacak ve hücrelere verilecek değer 10 u geçemeyecek şekilde dağıtacak.
Merhaba Hocam. Makrosu ve makroların atanmış olduğu butonları olan bir dosyanın gönderdiğim yerde çalışması için ne yapmam gerekir? Flash bellek ya da mail olarak gönderdiğim dosyaların makro ve butonları diğer pc lerde çalışmıyor..
Merhaba. 4x4 lük bir tablo oluşturup 1 den 4 e kadar olan sayıları bu tabloya yerleştirmek istiyorum. Aynı satır ve aynı sütunda sayıların tekrar etmesini istemiyorum. işin içinden çıkamadım. Yardımcı olursanız çok sevinirim. Saygılar.
Hocam aynen uyguladım ama çalışmıyor bir türlü "C'ant find project or library hatası veriyor". Sub razgele() Range("A:A").ClearContents Dim deger As Integer Dim toplam As Integer ReDim dizim(deger) deger = InputBox("Kaç tane sayı olacak?") toplam = InputBox("Sayıların toplamı ne kadar?") Dim baslangic As Integer baslangic = 0 Dim i As Long For i = 1 To deger dizim(i) = Rnd baslangic = baslangic + dizim(i) Next i For i = 1 To deger dizim(i) = dizim(i) / baslangic Next i With Application.WorksheetFunction For i = 1 To deger Cellls(i, "A").Value = Round(toplam * dizim(i), 0) Next i Cells(deger, "A").Value = toplam - .Sum(Range("A1:A" & deger - 1)) End With End Sub
Yine " BİLGİ DERYASINDA UÇUYORUM" Emeğinize ve bilginize sağlık
Bakmak isteyen çok ama anlayan az. Şu değişkenlere sürekli i değerini vermeseniz daha kolay olacak Mustafa bey. Elinize sağlık.
Muhteşem bir video...Gerçekten çok yararlı ve niş konulara parmak basıyorsunuz. Emeğinize sağlık
Çok janti bir kod olmuş. Teşekkürler
Çok teşekkür ederim Hocam Allah'a emanet olun.
Sayın hocam bu hücrelere verdirdiğiniz rasgele sayılara bir üst limit koyma ihtimali var mıdır? Örneğin sayımız 100 olacak ve hücrelere verilecek değer 10 u geçemeyecek şekilde dağıtacak.
Teşekkürler hocam
Emeğinize sağlık hocam
Merhaba Hocam. Makrosu ve makroların atanmış olduğu butonları olan bir dosyanın gönderdiğim yerde çalışması için ne yapmam gerekir?
Flash bellek ya da mail olarak gönderdiğim dosyaların makro ve butonları diğer pc lerde çalışmıyor..
Hocam oluşturulan sayıların belli bir aralıkta olmasını da sağlayabilir miyiz? Teşekkürler.
Merhaba. 4x4 lük bir tablo oluşturup 1 den 4 e kadar olan sayıları bu tabloya yerleştirmek istiyorum. Aynı satır ve aynı sütunda sayıların tekrar etmesini istemiyorum. işin içinden çıkamadım. Yardımcı olursanız çok sevinirim. Saygılar.
Mustafa bey size mail yada baska bir yol arayiciliyla ulasmam mümkünmü?
Merhaba hocam " for i =1 to deger dizim(i)=dizim(i)/baslangic next i " bu kod ile bu bölme işlemini neden yaptınız , merak ettim...
Merhaba. Denkleştirme işlemi yapıyor. Sayılar arasındaki farkı kapatıyor
Hocam aynen uyguladım ama çalışmıyor bir türlü "C'ant find project or library hatası veriyor".
Sub razgele()
Range("A:A").ClearContents
Dim deger As Integer
Dim toplam As Integer
ReDim dizim(deger)
deger = InputBox("Kaç tane sayı olacak?")
toplam = InputBox("Sayıların toplamı ne kadar?")
Dim baslangic As Integer
baslangic = 0
Dim i As Long
For i = 1 To deger
dizim(i) = Rnd
baslangic = baslangic + dizim(i)
Next i
For i = 1 To deger
dizim(i) = dizim(i) / baslangic
Next i
With Application.WorksheetFunction
For i = 1 To deger
Cellls(i, "A").Value = Round(toplam * dizim(i), 0)
Next i
Cells(deger, "A").Value = toplam - .Sum(Range("A1:A" & deger - 1))
End With
End Sub
F8 ile adımlarsanız hata satırını bulursunuz.Belki excel versiyonunuzdan worksheetsfuncion kısmındadır hata.
teşekkürler hocam.