sırayı değiştir kodu

[acnidre]

Merhaba,

Ekli dosyada bulunan ESKİ FORM örneğindeki veriyi, YENİ FORM'a KOPYALA/SIRAYI DEĞİŞTİR komutu ile taşıdım. ÇOKLU veride (yaklaşık 2500 satırım var) bunu yapmak için gereken kod konusunda yardımcı olursanız sevinirim.

Saygılarımla

Box Linki

 

[PLİNT]

Merhaba
Ek dosyayı deneyin.
http://s5.dosya.tc/server4/eazvrs/sirayi-degistir-coklu2.zip.html

 

[vardar07]

Alternatif olsun.
Dosyanız.

 

[acnidre]

Merhaba
Ek dosyayı deneyin.

öncelikle emeğiniz için teşekkür ederim...

sizin excel dosyanızdaki command button'a tıklayınca şöyle oluyor:

1.foto

ancak 5 satırda bir olmalı. 5'ten az olanlarda boş satır gelmeli... şöyle ki:
2.foto

bunu çözebilecek kod nedir acaba, size zahmet?

 

[acnidre]

Alternatif olsun.
Dosyanız.

alternatif çözümünüzü Altın üye olmadığım için göremiyorum.

en kısa sürede tekrar altın üye olacağım.

size de teşekkür ederim, emeğinize sağlık

 

[acnidre]

...

ancak 5 satırda bir olmalı. 5'ten az olanlarda boş satır gelmeli... şöyle ki:
...

boş kalan satırlara sıfır (0) eleyerek çözdüm...

nasıl teşekkür etsem azdır saygıdeğer forumdaşım... var olasın

 

[PLİNT]

Merhaba
"0" eklemenize gerek yoktu, örnek dosyaya göre x değerini 6 olarak tanımlarsanız yeterli olacaktır.
Yukarıdaki (değişen) dosyayı denersiniz.

 [SIZE="2"]Private Sub CommandButton1_Click()
[COLOR="Red"]With Range("H2:I" & Rows.Count)
.ClearContents
.ClearFormats
End With[/COLOR]
i = 2
For a = 2 To Cells(Rows.Count, 1).End(3).Row
[COLOR="Red"]x = 6[/COLOR]
j = 2
If x > 1 Then
Cells(i, "H") = Cells(a, 1)
Cells(i, "H").HorizontalAlignment = xlCenter
Cells(i, "H").VerticalAlignment = xlCenter
Range("H" & i & ":H" & i + x - 2).MergeCells = True
For b = i To i + x - 2
Cells(b, "I") = Cells(a, j)
i = i + 1: j = j + 1
Next
End If
Next
End Sub[/SIZE]