sütundaki 65536 satır sonuçları görüntülemede yetmediği için hata alıyorum ?

[xrasitxx]

Sub KOMBİNASYONLARI_LİSTELE()
Dim X As Long, Y As Long, z As Long, m As Long, n As Long, k As Long, Satır As Long
Columns(4).ClearContents
For X = 1 To [A65536].End(3).Row
For Y = 1 To [A65536].End(3).Row
For z = 1 To [A65536].End(3).Row
For m = 1 To [A65536].End(3).Row
For n = 1 To [A65536].End(3).Row
For k = 1 To [A65536].End(3).Row
Satır = Satır + 1
Cells(Satır, "D") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
Next
Next
Next
Next
Next
Next
End Sub



"D" sütunu dolunca "E"sütunundan göstermeye devam ettirmek için nasıl bi kod eklemliyim

Cells(Satır, "D") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
Cells(Satır, "E") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)

yaptım aynı sonuçları "E sütununda gösterdi, kaldığı yerden devam etmedi

Cells(Satır, "D" & "E") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
hata verdi sanırım ama olmadı

yardımlarınızı bekliyorum?

 

[xrasitxx]

ilgili dosya ekte

 

[fedeal]

Option Explicit

Sub KOMBİNASYONLARI_LİSTELE()
Cells(3, "f").Value = Now
Cells(5, "f").Value = ""
Dim X As Long, Y As Long, z As Long, m As Long, n As Long, k As Long, Satır As Long, Satır1 As Long
Columns(4).ClearContents
Columns(5).ClearContents
For X = 1 To [A65536].End(3).Row
For Y = 1 To [A65536].End(3).Row
For z = 1 To [A65536].End(3).Row
For m = 1 To [A65536].End(3).Row
For n = 1 To [A65536].End(3).Row
For k = 1 To [A65536].End(3).Row
If [d65536].End(3).Row = 65535 Then
Satır1 = Satır1 + 1
Cells(Satır1, "e") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
Else
Satır = Satır + 1
Cells(Satır, "D") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
End If
Next
Next
Next
Next
Next
Next
Cells(5, "f").Value = Now
End Sub

deneyin umarım olur.

 

[xrasitxx]

syn fedeal deneyeceğim teşekkürler

 

[xrasitxx]

sayın fedeal
c'yi tanımalamda hata verdi
c = [e65536].End(3).Row + 1

 

[fedeal]

kodları düzelttim tekrar denermisiniz

 

[xrasitxx]

c As İnteger değişken tanımını fark etmemişim bunu yazmamıştım
c hatasından kurtuldum.
ama yine hata verdi
Cells(Satır, "D") = Cells(X, 1) & Cells(Y, 1) & Cells(z, 1) & Cells(k, 1) & Cells(m, 1) & Cells(n, 1)
yine "d" sütunu dolunca "e" ye devam etmedi. aynı sorun devam ediyor

sizin ekteki dosyanız işimi gördü, sorumun cevabını aldım nasıl diğer sütuna devam ettirileceğini.. gereken değişiklikleri ("d" doldu "e" ye geç, "e" doldu "f" geç) artık yaparım çok teşekkürler. Allah razı olsun..

 

[fedeal]

Örnek dosya ekledim inceleyin (3. mesajda)