alt alta sıralama

[mertdalagan]

merhaba,

ekteki dosyada bulunan verileri tek bir sütunda bir kerede alt alta sıralamam mümkün mü. iyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu bir modul sayfasına kopyalayarak çalıştırınız.

Sub sirala()
Dim hucre As Range
Dim y As Integer
y = 0
Sheets("Sheet2").Range("A:A").ClearContents
For Each hucre In Sheets("Sheet1").UsedRange
  If hucre.Value <> "" Then
      y = y + 1
      Sheets("Sheet2").Cells(y, 1) = hucre
  End If
Next
Sheets("Sheet2").Range("A1:A" & y).Sort , Key1:=Sheets("Sheet2").Range("A1")
Sheets("Sheet2").Select
End Sub

 

[mertdalagan]

teşekkürler