3 sütundaki sayıları tek sütunda sıralama

[hayri tekin]

Merhaba,
Ekli dosyamda mevcut 3 sütundaki sayıları tek sütunda sıralamak istiyorum.

 

[cenk e.]

Merhaba, şu kodu dener misiniz?

Sub devrikdonusum()
a = 5
With Sheets("Sayfa1")
.Select
Range("A5").Select
For i = 5 To [C65536].End(xlUp).Row
For j = 1 To 3
If .Cells(i, j) <> "" Then
.Cells(a, 6) = .Cells(i, j)
a = a + 1
Else
j = j + 1
End If
Next
Next

End With
End Sub

 

[hayri tekin]

Sn.cenk e.
İlginize çok teşekkür ediyorum.Sadece makro otomatik çalışmıyor.Buna bir çözüm bulmaya çalışacağım.
Esen kalın

 

[cenk e.]

Merhaba, kusura bakmayın ben o kısmı atlamışım, şu kodu visual basic ekranında Sayfa1'e ekler misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
a = 5
With Sheets("Sayfa1")
.Select
Range("A5").Select
'a = Array([A65536].End(xlUp).Row, [C65536].End(xlUp).Row, [C65536].End(xlUp).Row)
'Set byk = Application.WorksheetFunction.Small(a.Value, 1)
For i = 5 To Range("A5:C" & Range("C65536").End(xlUp).Row).Count
For j = 1 To 3
If .Cells(i, j) <> "" Then
.Cells(a, 6) = .Cells(i, j)
a = a + 1
'Else
'j = j + 1
End If
Next
Next
End With
Target.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[hayri tekin]

Harika olmuş,eline sağlık.
Ve de çook teşekkürler..

 

[cenk e.]

Rica ederim, kolay gelsin.