Rastgele arada formülü Hk.

[silkrblt]

Merhabalar ben 2 adet sayıyı rastgele tek hücreye yazsın istiyorum. Bunu nasıl yapabilirim.
2 Adet parçam var ve bunlara ölçü gircem o da 2 adet olmalı ve rastgele (-2,+2) olmalı

 

[silkrblt]

(-2;+2) arasında kaç adet istiyorsam o kadar sayı üretsin yani

 

[Korhan Ayhan]

Merhaba,

Bu şekilde işinize yarar mı?

="("&RASTGELEARADA(-5;-1)&" , "&RASTGELEARADA(1;5)&")"

 

[silkrblt]

ölçü kontrol benimki 5 adet parça varsa (-2;+2) toleranslı 5 adet sayı yazma. ben hücreye 5 yazdığımda bana rastgele (örneğin ) +1,0,-2,-1,1 gibi 5 adet sayı versin hücre. Bunu büyük bir tabloya rastgele sayı yazdım. ardından birleştir formülünü kullandım ama bu birleştirde tek tek adetleri benim yazmam oyalıyor

 

[Korhan Ayhan]

Kullandığınız ofis sürümü ve dili nedir?

 

[silkrblt]

Merhaba,

Bu şekilde işinize yarar mı?

="("&RASTGELEARADA(-5;-1)&" , "&RASTGELEARADA(1;5)&")"

bunun yerine birleştir de adet girdiğimde o kadar adet sayı yazacak formül varsa o da olur.

 

[silkrblt]

Kullandığınız ofis sürümü ve dili nedir?

türkçe ama esk versiyon mesela aralık birleştir özelliği bile işime yarar yeterki tek tek seçmeyeyim

 

[AdemCan]

Merhaba, profil bilgisi için ilgili konu.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

excel.web.tr

 

[Korhan Ayhan]

Eski sürümlerde çoklu aralık birleştirme işlemi yoktur. Yardımcı sütun kullanarak verileri birleştirebilirsiniz.

 

[AdemCan]

Makro ile örnek
Modüle ekleyip sayfada =test_rastgele() olarak kullanabilirsiniz.
A1 de yazılı değere göre sayıları yazar.

Option Base 1
Function test_rastgele()
Dim s1 As Worksheet, i As Byte, x As Byte, dizi()
Set s1 = ActiveSheet: x = s1.Range("A1")
ReDim dizi(x)
For i = 1 To x
    rastgele = WorksheetFunction.RandBetween(-2, 2)
    dizi(i) = rastgele
Next i
test_rastgele = Join(dizi, ", ")
End Function

 

[silkrblt]

Makro ile örnek
Modüle ekleyip sayfada =test_rastgele() olarak kullanabilirsiniz.
A1 de yazılı değere göre sayıları yazar.

Option Base 1
Function test_rastgele()
Dim s1 As Worksheet, i As Byte, x As Byte, dizi()
Set s1 = ActiveSheet: x = s1.Range("A1")
ReDim dizi(x)
For i = 1 To x
    rastgele = WorksheetFunction.RandBetween(-2, 2)
    dizi(i) = rastgele
Next i
test_rastgele = Join(dizi, ", ")
End Function

Ekli dosyayı görüntüle 250829Ekli dosyayı görüntüle 250830

çalıştıramadım bunu detaylı anlatır mısınız size zahmet

 

[AdemCan]

Merhaba,
- Alt + F11 ile VBA ekranını açın.
- Insert menüsünden Module ekleyin


- Açılan module kodları ekleyin


- Dosyanızı Makro İçerebilen Excel Çalışma Kitabı olarak kayıt edin.


Sonrasında 10 numaralı mesajda belirttiğim gibi sayfada kullanabilirsiniz.

 

[silkrblt]

Merhaba,
- Alt + F11 ile VBA ekranını açın.
- Insert menüsünden Module ekleyin
Ekli dosyayı görüntüle 250853

- Açılan module kodları ekleyin
Ekli dosyayı görüntüle 250854

- Dosyanızı Makro İçerebilen Excel Çalışma Kitabı olarak kayıt edin.
Ekli dosyayı görüntüle 250855

Sonrasında 10 numaralı mesajda belirttiğim gibi sayfada kullanabilirsiniz.

değer hatası almayı bıraktım ama o sadece a1 hücresi için oluyor ben sürekli olacak bir işlem istiyorum. c2 hücresine geçtiğimde a2 hücresindeki değeri alayım

 

[AdemCan]

Dosyanızı bu adrese yükleyip paylaşır mısınız?

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

Ayrıca profil bilginizi de güncellemeniz gerekmektedir.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

excel.web.tr

 

[silkrblt]

Dosyanızı bu adrese yükleyip paylaşır mısınız?

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

Ayrıca profil bilginizi de güncellemeniz gerekmektedir.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

excel.web.tr

https://lifeboxtransfer.com/s/bf01b668-00e5-4210-8fda-4fd83ee92bd0
ADET YAZAN KISIMDA Kİ ADET KADAR ÖLÇÜ KONTROL SÜTUNUNDA Kİ YERE YAZSIN İSTİYORUM. SİZİN FORMÜLÜ ÇALIŞTIRDIM AMA O TEK BİR HÜCRE İÇİN GEÇERLİ. BENİM BULDUĞUM ÇÖZÜMDE GÖZÜKÜYORDUR ZATEN O UĞRAŞTIRIYOR ONUN KOLAY YOLU VAR MI DİYE SORMAK İSTEDİM

 

[AdemCan]

Forum Kuralları

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.

Forum Kuralları

Üyelik & Kisisel Bilgileriniz & Üyelik İptali Bilgi Gizliliği: - Foruma üye olurken girdiğiniz kişisel bilgiler sadece forum adminleri tarafından görülecektir. Girmiş olduğunuz bilgileri istediğiniz zaman degiştirebilirsiniz. (kullanıcı adı hariç) Teknik düzenlemeler ve denemeler için Adminler...

excel.web.tr

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

excel.web.tr

 

[AdemCan]

Bu kodları (Ö.K.R) yani sayfa1in kod bölümüne ekleyin.
D sütununda değer yazdıkça hesaplama yapılır ve G sütununa yazılır.
Yardımcı sütun olarak kullandığınız L sütunu ve sonrasındaki formülleri de silebilirsiniz.

Aşağıdaki spoyler butonları ile resimleri açabilirsiniz.

Option Base 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub

If Target.Column = 4 And Target.Row >= 11 Then
If Target.Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Dim s1 As Worksheet, i As Byte, x As Byte, dizi()
Set s1 = ActiveSheet: x = Target.Value
ReDim dizi(x)
For i = 1 To x
    rastgele = WorksheetFunction.RandBetween(-2, 2)
    dizi(i) = rastgele
Next i
s1.Range("G" & Target.Row) = Join(dizi, ", ")
End If

Application.ScreenUpdating = True
End Sub

Spoyler: Sayfa1 Kod Bölümü

Spoyler: İşlem sonu

 

[silkrblt]

Bu kodları (Ö.K.R) yani sayfa1in kod bölümüne ekleyin.
D sütununda değer yazdıkça hesaplama yapılır ve G sütununa yazılır.
Yardımcı sütun olarak kullandığınız L sütunu ve sonrasındaki formülleri de silebilirsiniz.

Aşağıdaki spoyler butonları ile resimleri açabilirsiniz.

Option Base 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub

If Target.Column = 4 And Target.Row >= 11 Then
If Target.Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Dim s1 As Worksheet, i As Byte, x As Byte, dizi()
Set s1 = ActiveSheet: x = Target.Value
ReDim dizi(x)
For i = 1 To x
    rastgele = WorksheetFunction.RandBetween(-2, 2)
    dizi(i) = rastgele
Next i
s1.Range("G" & Target.Row) = Join(dizi, ", ")
End If

Application.ScreenUpdating = True
End Sub

Spoyler: Sayfa1 Kod Bölümü

Ekli dosyayı görüntüle 250866

Spoyler: İşlem sonu

Ekli dosyayı görüntüle 250867

İlk olarak alt+f11 yapıp vba açıyorum
ardından codu yapıştırıyorum burdan sonra bir şeyi yanlış yapıyorum sanırım çünkü formülü girdiğimde gözükmüyor