ALT ALTA GETİRME

[kanarya_83]

Merhaba,

Ekteki excel dosyasında A sutunundan AMN sutununa kadar ve satır olarak 2700 olan dağınık sayılar var. Bu dağınık sayıları A 2700 ün altına ( hepsini boş bir sayfaya ) toplamak istiyorum.

Yardımlarınızı rica ediyorum.

Ek-dosya

Şimdiden teşekkürler,

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
Dim dz As Variant
Dim a As Integer, b As Integer
Dim x As Long
Dim sh As Worksheet
Dim yeni()
dz = ActiveSheet.UsedRange
For b = LBound(dz, 2) To UBound(dz, 2)
    For a = LBound(dz) To UBound(dz)
        If dz(a, b) <> "" Then
            ReDim Preserve yeni(x)
            yeni(x) = dz(a, b)
            x = x + 1
        End If
    Next
Next
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Range("A1").Resize(x).Value = Application.Transpose(yeni)
End Sub

 

[kanarya_83]

Cok tesekkurler. Hemen deniyorum

 

[kanarya_83]

Yardımlarınız için teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...