Farkli sutunlardaki verileri bir sutunda toplamak

Katılım
12 Mart 2009
Mesajlar
119
Excel Vers. ve Dili
Office 365 - Ingilizce
Merhabalar,

E,F,G,H,I,J sutunlarinda veriler var ve bu verileri L sutununda altalta siralamak istiyorum fakat aralarinda bircok bos hucre var. Sadece veri olan hucreleri siralatmak mumkunmu ?

Ornek dosya: https://files.fm/u/vt7h57nt

Simdiden cok tesekkurler.
 

metehan8001

Yasaklı
Katılım
8 Nisan 2010
Mesajlar
125
Excel Vers. ve Dili
Office 2007 -2016 TR
Merhabalar,

E,F,G,H,I,J sutunlarinda veriler var ve bu verileri L sutununda altalta siralamak istiyorum fakat aralarinda bircok bos hucre var. Sadece veri olan hucreleri siralatmak mumkunmu ?

Ornek dosya: https://files.fm/u/vt7h57nt

Simdiden cok tesekkurler.
Aşağıdaki kodu kullanın.
Kod:
Sub liste()
su = Array(5, 6, 7, 8, 9, 10)
sa = 2
For sat = 2 To 65536 ' Cells(Rows.Count, 1).End(xlUp).Row ' Son Satır Sayısı
For sut = 0 To UBound(su)
If Not Cells(sat, su(sut)) = "" Then
Cells(sa, 12) = Cells(sat, su(sut))
sa = sa + 1
End If
Next sut
Next sat
MsgBox ".İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "Tamam...!"
End Sub
 
Üst