Verileri sıralama hakkın da

[rota59]

Merhaba,


A1 den başlayarak, tüm A Sütunun da ki en son veriyi bulup, B1 de yan yana yazdırmak istiyorum code düzeltemedim yardımcı olurmusunuz.

Sub birleştir()
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
ad = Cells(i, 1)
[b1] = [b1] + ad & ","
Next
End Sub

 

[antonio]

Kodlarınız aşağıdadır:

Sub yana_aktar()
Dim sh As Worksheet, ss As Long, alan As Range
Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("A1:A" & ss)
sh.Range("B1").Resize(1, ss).Value = Application.Transpose(alan)
End Sub

 

[rota59]

Yapmak istediğim A sütununda ki verileri,
B1 hücresi için de yan yana yazmak yani;
C1, D1, E1.. Boş kalması gerekmekte.

Yan yana yazılan veriler arasın da boşluk veya virgül olmasını sağlamak.

 

[sakman26]

selam,
kodlarınız üzerinde revizyon yapılarak...

Sub birleştir()
son = Cells(65536, 1).End(xlUp).Row
'yeni bir sıralama ihtiyaç olduğunda B1 hücre içeriğinin silinmesi için eklendi
[b1].ClearContents
For i = 1 To son
ad = Cells(i, 1)
'eğer alanda boşluklar varsa değerlendirilmemesi için
If ad <> "" Then
'eğer son hücre yazdırılacaksa arkasına ; gelmemesi için
'Not : A kolonunda daima sayı olabilir diyerek "," yerine ";" yazıldı...
If i = son Then
[b1] = [b1] & ad & ""
Else
[b1] = [b1] & ad & ";"
End If
End If
Next
End Sub

şeklinde düzenlendi....

Bu şekilde birleştirmeler için KTF de kullanabilirsiniz... Sitede arama yaparsanız bir çok örnek bulabilirsiniz.

Düzenlemeye yönelik, eki inceleyebilirsiniz...

link : http://dosya.co/byf1j9jl5fep/rota59.rar.html

 

[rota59]

Alternatif çözümler eklemişsiniz, çok güzel olmuş. Teşekkür ederim.

 

[sakman26]

rica ediyorum..
kolay gelsin..