Verİlerİ BİrleŞtİrmek

[devran]

Merhaba arkadaşlar,
Elimdeki veride yaklaşık AB1000 e kadar tanımlı kodlar bunların MDS açıklamaları(sadec 2 tanesi) var. Bu verilerinin pivotunu alamıyorum veri düzgün olmadığı için. Ekte AB003 e olan bir örnek gönderiyorum nasıl AB1000 e kadar olan veriyi düzenleyebilirim?
İyi çalışmalar

 

[Necdet]

Merhaba,

Verdiğiniz örnekte

• D3 hücresine bir başlık yazın.
• C: D sütununu hepsini seçin
• F5 (Git)
• Özel
• Boşluklar

Dedikten sonra tüm boş hücreler seçilmiş olur.

• Sağ Tık
• Sil
• Tüm Satır
• Tamam

İşte F5 in Sırrı, Gücü artık ne derseniz

 

[devran]

İlginiz için çok teşekkürler.
C:E aralığında boş olan hücreler seçilip sağ tıkla tüm satırları sil dediğimde AB001,.....lar gidiyor. Ben bu veriden AB001 leri silmeden pivot alınabilecek hale getirebilirim.Herbir AB... kaç tane, ne tür MDS açıklaması almış onu görmek istiyorum

 

[Necdet]

Sayın devran,

Özür dilerim C yazacakken yanlışlıklı D:E yazmışım, sonra sözümona düzelttim ama bu seferde C:E kalmış
İdare edin artık.

Sizin verilerinize göre doğrusu C sütunlarının seçilmesi gerek.

 

[Necdet]

Tekrar merhaba,

Ben Tarih ile başlayan satırların kalmasını diğer satırların silinmesi olarak düşündüm.

Bu durumda satır silme işi A sütununda yapılırsa dosya biraz daha sadeleşiyor.

Birde olması gereken durumu belirtirseniz çözüme ulaşmak daha kolaylaşacaktır.

 

[devran]

Sayın Necdet,
Verinin olması gereken şeklinin gönderiyorum.
Teşekkürler.

 

[Necdet]

Sayın devran,

Ekteki dosyayı inceleyiniz, umarım olmuştur.

Sub Pivota_Hazirla()
Application.ScreenUpdating = False
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("A:A").Insert Shift:=xlToRight
   
For i = [B65536].End(3).Row To 3 Step -1
    If Cells(i, "B") = "Terminal Toplam Adet :" Or Cells(i, "B") = "Tarih" Then Rows(i).Delete
Next i
For i = 1 To [B65536].End(3).Row
    If Cells(i, "B").Value Like "AB*" Then
        Değer = Cells(i, "B")
        Cells(i, "B") = ""
    Else
        Cells(i, "A") = Değer
    End If
Next i
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[A1] = "Terminal"
MsgBox "İşlem Bitmiştir...."
End Sub

 

[devran]

Necdet bey çok çok sağolun, elinize sağlık.
Ben birara makrolarla ilgilenmek zorunda kaldım. Benden önceki arkadaş raporları hep makroyla yapıyomuş. Bende onları makrolarla çalıştırıyodum, makroların verdiği hatayı anlamak için kitap falan almıştım. Tekrar başlarsam sen ne önerirsin, kolay mı?

 

[Necdet]

Merhaba,

Güle güle kullanınız. Bende makronun başındayım, hem kitaplardan yararlanıyorum hemde özellikle burayı izliyorum. Yapabildiklerimi yanıtlıyorum, yapamadıklarım yada verilen yanıtları inceliyorum.

İlginiz varsa sitemize sürekli gelip verilen kodları incemenizi öneririm.