Aralarında boşluk olan verileri üst üste getirmek

Katılım
28 Nisan 2010
Mesajlar
182
Excel Vers. ve Dili
2007 Türkçe
Değerli hocalarım; ekte gönderdiğim dosyada dosyanın aşağısına doğu devam eden ama hem satırlarda hem de sütunlarda aralarında boşluk ve farklı bilgiler bulunan üye no, adı ve aidat tutarı bilgileri var.Benim istediğim yapılacak bir formülle tüm bu bilgilerin satır ve sütundaki boşlukların kaldırılarak başka bir sayfada bir araya getirilmesi. Şimdiden Teşekkür ederim
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Boş satırları silme:
1 - Sayfayı taşı veya kopyala yaparak bir kopyasını oluşturun.
2 - Kopyalanan sayfada G sütununu seçin
3 - F5 tuşuna basın
4 - Özel düğmesine basın
5 - Boşluklar'ı işaretleyin
6 - Seçili hücrelerden birine sağ tıklayarak Sil deyin
7 - Açılan menüde Tüm satır'ı seçip işlemi tamamlayın.

Boş sütunları silme:
1 - 1. satırı seçin
2 - Yukardaki 2, 3, 4, 5 ve 6. adımları uygulayın
3 - Açılan menüde Tüm Sütun'u seçip işlemi tamamlayın.
 
Katılım
28 Nisan 2010
Mesajlar
182
Excel Vers. ve Dili
2007 Türkçe
Verileri formül ile dosyada verdiğim örnekte olduğu gibi başka bir sayfada birleştirmek istiyorum.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
A1 hücresine:

=DÜŞEYARA(METNEÇEVİR(SATIR();"0");Sheet1!$B:$G;2;0)

B1 hücresine:

=DÜŞEYARA(METNEÇEVİR(SATIR();"0");Sheet1!$B:$G;4;0)

C1 hücresine:

=DÜŞEYARA(METNEÇEVİR(SATIR();"0");Sheet1!$B:$G;6;0)

Formülleri aşağı doğru kopyalayınız.
 
Katılım
28 Nisan 2010
Mesajlar
182
Excel Vers. ve Dili
2007 Türkçe
Birşey daha sormak istiyorum. Sıra rakamlarının olduğu sütunu kaldırırsak nasıl bir formül yapabiliriz?
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Neden öyle bir şey yapasınız ki? O sütunun ne zararı var? Ne güzel benzersiz ve sıralı bir veri sonuçta.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Formülle nasıl olur bilmiyorum, makroyla isterseniz aşağıdaki makroyu deneyin:

PHP:
Sub sendika()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sayfa1")
s2.[A:C].ClearContents
son = s1.Cells(Rows.Count, "B").End(3).Row
For i = 7 To son Step 57
    yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
    If s2.[A1] = "" Then yeni = 1
    s1.Range("B" & i & ":B" & i + 47).Copy s2.Cells(yeni, "A")
    s1.Range("D" & i & ":D" & i + 47).Copy s2.Cells(yeni, "B")
    s1.Range("F" & i & ":F" & i + 47).Copy s2.Cells(yeni, "C")
Next
End Sub
 
Katılım
28 Nisan 2010
Mesajlar
182
Excel Vers. ve Dili
2007 Türkçe
Kod için teşekkür ederim. Formüllü bir çözüm var mıdır acaba?
 
Üst