• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Farkli sutunlardaki verileri bir sutunda toplamak

Katılım
12 Mart 2009
Mesajlar
71
Beğeniler
4
Excel Vers. ve Dili
office 2013 Ingilizce
#1
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.
 
Katılım
8 Nisan 2010
Mesajlar
43
Beğeniler
15
Excel Vers. ve Dili
office 2007 2003
#2
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