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

[mehmetuca]

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

 

[YUSUF44]

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.

 

[mehmetuca]

Verileri formül ile dosyada verdiğim örnekte olduğu gibi başka bir sayfada birleştirmek istiyorum.

 

[YUSUF44]

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.

 

[mehmetuca]

Çok teşekkür ederim. Emeğinize sağlık

 

[mehmetuca]

Birşey daha sormak istiyorum. Sıra rakamlarının olduğu sütunu kaldırırsak nasıl bir formül yapabiliriz?

 

[YUSUF44]

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.

 

[mehmetuca]

Elime ulaşan bazı tablolarda sayı sütunu yok

 

[YUSUF44]

Formülle nasıl olur bilmiyorum, makroyla isterseniz aşağıdaki makroyu deneyin:

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

 

[mehmetuca]

Kod için teşekkür ederim. Formüllü bir çözüm var mıdır acaba?