Kombinasyon makrosunda düzeltme

[Korhan Ayhan]

Linkteki dosyayı deneyiniz.

http://www.excel.web.tr/f50/kombinasyon-sonucunu-sayfalara-yazdyrabilirmiyiz-t36987/post325201.html

 

[Muharrem41]

korhan hocam

hocam altın üyelik istiyor indiremiyorum

 

[Korhan Ayhan]

Harici link ektedir.

http://www.dosya.tc/server9/vd44yd/CombinationR2.zip.html

Ek olarak dosyanın sizde çalışması için aynı linkteki 5 nolu mesajdaki NOT bölümündeki ayarı yapmanız gerekiyor. Link aşağıdadır.

http://www.excel.web.tr/f50/kombinasyon-sonucunu-sayfalara-yazdyrabilirmiyiz-t36987/post200155.html

 

[Muharrem41]

hocam

sayfa açılıyor fakat işlem yapmuyor indirmiyor dosyayı

 

[Korhan Ayhan]

Birde aşağıdaki linki deneyiniz.

https://drive.google.com/file/d/0B8T-MGFkz28CUVcyVkYyVEJxV1E/view?usp=sharing

 

[Muharrem41]

HATA

Burasıda hata veriyor hocam

 

[Muharrem41]

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
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s1.Cells.Clear
x = s2.Range("A" & Rows.Count).End(xlUp).Row
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
s1.Cells(y, z) = s2.Cells(a, 1)
s1.Cells(y, z + 1) = s2.Cells(b, 1)
s1.Cells(y, z + 2) = s2.Cells(c, 1)
s1.Cells(y, z + 3) = s2.Cells(d, 1)
s1.Cells(y, z + 4) = s2.Cells(e, 1)
s1.Cells(y, z + 5) = s2.Cells(f, 1)
Next f
Next e
Next d
Next c
Next b
Next a

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
6 rakama göre dediğiniz şekilde aşağıda yazdım. Yalnız öncelikle Sayfa2 ekleyip, bu sayfaya A sütununa olması gereken rakamları yazmanız gerekir.
KORHAN HOCAM
ASKM ÜYEMİZ TAM İSTEDİĞİM GİBİ BİR KOD YAZMIŞ 6 LI OLARAK.BANA BUNUN 5 Lİ VE 10 LU SU LAZIM

 

[Korhan Ayhan]

Haluk beyin verdiği örnek aslında tam istediğiniz gibi çalışıyor.

Mail adresinizi özelden bildirin dosyayı size mail olarak göndereyim.

 

[Muharrem41]

mail

muharrem__41@hotmail.com
hocam boş mail de attım size
fakat gitmedi