Macro problemi

[Dbchayley]

Merhaba,
Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub

macrom güzel çalışıyor fakat, devamını getirdiğimde problem veriyor.
Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub

Range("n1:n10000").ClearContents
For x = 1 To [j10000].End(3).Row
ben = [n10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub

macroyu bu şekilde uzatınca çalışmıyor. yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Aradaki end sub'ı çıkartıp dener misiniz? Bir de ikinci bölümde de yine x ve y yerine başka değişkenler kullanmanız da iyi olabilir.

 

[Dbchayley]

o şekilde hiç çalışmıyor.

 

[Huseyinkis]

Ekteki gibi deneyin.

Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
Call daylihgt2
End Sub


Sub daylihgt2()
Range("n1:n10000").ClearContents
For x = 1 To [j10000].End(3).Row
ben = [n10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub

 

[Dbchayley]

ilki oluyor 2.yi yapmyıor.

 

[Huseyinkis]

ilki oluyor 2.yi yapmyıor.

Kodlarda sıkıntı yok ne yapmaya çalıştığınızı bilmediğim için yardımcı olamıyorum fakat sunu söyleyebilirim her iki kodun yaptığı işlem birbiri üzerine yazıyor ..

Cells(y, 5) = Cells(x, 1)
Cells(y, 5) = Cells(x, 1)


E hücresine A hücreden veri getiriyorsunuz. Ama bunu yaparken bir tarafta E hücresinin son satırını buluyorsunuz diğer tarafta N hücresinin son satırını alıp E hücresine veri kaydediyorsunuz.

siz ikinci kodları ekteki gibi değiştirip tekrar deneyin çalışmaz ise dosya yüklemenizi ve detaylı bir anlatım isteyeceğim.

Sub daylihgt2()
Range("n1:n10000").ClearContents
For x = 1 To [j10000].End(3).Row
ben = [n10000].End(3).Row + 1
For y = ben To Cells(x, 11) + ben - 1
Cells(y, 14) = Cells(x, 10)
Next y
Next x
End Sub

 

[Dbchayley]

dosya ektedir.
yapamya çalıştığım şu ilk macro düzenlemeyi yaptıktan sonra 2. 3. stunlarda onun düzenledği stuna göre veriyi düzenleyecek.