- Katılım
- 15 Eylül 2016
- Mesajlar
- 39
- Excel Vers. ve Dili
- türkçe 2007
- Altın Üyelik Bitiş Tarihi
- 10-07-2021
merhaba ARKADAŞLAR:VE BÜYÜKLERİM VE KÜÇÜKLERİM
sitede sayısal loto macro ları var bana buna benzer 4 adet macro lazım
örnek vermek gerekirse elimde 30 adet araç var bunların plakalarını girerek işlem yapmak istiyorum sitede bulunan sayısal loto macrosuna benzer rakamları ben kendim belirlemek istiyorum örnek olara 1,3,28,53,72,17,46,79,80 gibi düşünelim be bu macro ları 5 li 6 lı
8li 10 lu olarak yapmak istiyorum ama tüm sonuçları sayfada görmek istiyorum yardımlarınız için şimdiden teşekkür ederim ÖRNEK:MACRO PİLİNT TARAFINDAN BANA YOLLANDI BEN BUNU 1/49 OLARAK DEGİLDE YUKARIDA RAKAMLARI KENDİ YAZDIĞIM GİBİ BELİRLEMEK İSTİYORUM.BUNU YAPMA ŞANSIM VARMI BİLMİYORUM YARDIMLARINIZ İÇİN TEŞEKKÜRLER ŞİMDİDEN.
sitede sayısal loto macro ları var bana buna benzer 4 adet macro lazım
örnek vermek gerekirse elimde 30 adet araç var bunların plakalarını girerek işlem yapmak istiyorum sitede bulunan sayısal loto macrosuna benzer rakamları ben kendim belirlemek istiyorum örnek olara 1,3,28,53,72,17,46,79,80 gibi düşünelim be bu macro ları 5 li 6 lı
8li 10 lu olarak yapmak istiyorum ama tüm sonuçları sayfada görmek istiyorum yardımlarınız için şimdiden teşekkür ederim ÖRNEK:MACRO PİLİNT TARAFINDAN BANA YOLLANDI BEN BUNU 1/49 OLARAK DEGİLDE YUKARIDA RAKAMLARI KENDİ YAZDIĞIM GİBİ BELİRLEMEK İSTİYORUM.BUNU YAPMA ŞANSIM VARMI BİLMİYORUM YARDIMLARINIZ İÇİN TEŞEKKÜRLER ŞİMDİDEN.
Kod:
Sub Listele()
Dim x As Byte, y As Long, z As Long
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
Cells.Clear
x = 49
z = 1
For a = 1 To x
For b = a + 1 To x
For c = b + 1 To x
For d = c + 1 To x
For e = d + 1 To x
For f = e + 1 To x
y = y + 1
If y > 1048576 Then
y = 1
z = z + 7
End If
Cells(y, z) = a
Cells(y, z + 1) = b
Cells(y, z + 2) = c
Cells(y, z + 3) = d
Cells(y, z + 4) = e
Cells(y, z + 5) = f
Next f
Next e
Next d
Next c
Next b
Next a
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub