• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır Birleştirme Hk

Katılım
25 Haziran 2015
Mesajlar
11
Excel Vers. ve Dili
Microsoft Excel 2010 TÜRKÇE
Değerli Arkadaşlar,

SAP Logon ortamından dışa aktarmış olduğum bir .xls dosyası vardır.
Dışarıya aktarıldıktan sonra .xls verileri ise dağınık gözükmektedir.
Mesela;
2. Satırda (D hücresi: Geliş tarih, E hücresi: Gidiş tarihi, F hücresi Geliş no, G hücresi Gidiş no vs..) bilgiler yazmaktadır.

4. Satırda (Geliş tarihleri "0" olarak gözükmekte olup, gidiş tarihleri ise doğru sayılar gelmektedir)

5. Satırda (Gidiş tarihleri "0" olarak gözükmekte olup, geliş tarihleri ise doğru sayılar gelmektedir.


Ben bunları tek satırda hücrelerin içine yerleştirmek istiyorum ve sıfırlardan kurtulmak istiyorum. 5 satırdaki verileri, 4 satırdaki verilere kopyalamak çok zor oluyor ve işlem hep bu zamana kadar manuel yapıldı.
İlgili bir makro veya formül var ise, desteklerinizi beklerim.

Saygılarımla,
 
Örnek bir excel paylaşırsanız size daha iyi yardımcı olabiliriz. Saygılar
 
Caner Bey,

https://yadi.sk/d/feOTdcgzzMdDY adresine şimdi .xls çalışmasını yükledim oradan indirebilirsiniz.
Çok teşekkür ederim, ilginiz için.
Siteye yüklemeyi bilmediğimden dolayı, yandex disk uygulamasını kullandım.
 

Ekli dosyalar

  • Adsız.jpg
    Adsız.jpg
    121.4 KB · Görüntüleme: 6
Merhaba,

Ekteki dosyanın veri doğruluğunu kontrol eder misiniz? Olmasını istediğiniz gibi ise makrolu hali ile paylaşacağım.
 

Ekli dosyalar

Caner Bey,
İndirme işlemini gerçekleştiremiyorum altın üyelik istiyor.
Yandex üzerinden paylaşmanız mümkün müdür?
Saygılarımla,
 
Caner Bey,

Göndermiş olduğunuz çalışma gibi olacaktır.
Fakat, 6F hücresi TK2504 ise 6G hücresi TK2505 olacaktır.
7F hücresi TK7150 ise 7G TK7151 olmalıdır.
Gelen Uçuş Numarasının yanındaki sütun +1 artarak devam etmelidir.

https://yadi.sk/i/dINClmayzMy6J

Ekte tekrar renklendirerek belirtme yapılmıştır.

Saygılarımla,
 
Sn. su13ym4n
1- Herhalde kayıtlar UÇAK ADI'larına göre bir gidiş bir geliş olarak çiftleştirilmesi gerekiyor. Geliş Tarihi ilk kayıt Gidiş Tarihi ikinci kayıt olması gerekiyor
2- STA Geliş Saatini STD Gidiş saatini mi gösteriyor.
3- Uçak Adı A319 da kayıtlar tek kalıyor ve bu uçağın Kuyruk Adı TCANA olan kayıttaki tarihlerde "00.00.0000" sorunu yok.
 
Ali Bey,

Geliş ve gidiş tarihleri, geliş uçuş numarası ile gidiş numarası, STA ve STD 2 satırda dağınık olarak gelmektedir.
Bunları tek satırda birleştirmek istiyoruz.
SAP ortamında tarih aralığını girdiğimizde, verileri dışarı aktardığımızda dağınık gelmektedir.
Biz bunları tek bir tuş ile toparlamak istiyoruz.
 
Caner Bey,

Göndermiş olduğunuz çalışma gibi olacaktır.
Fakat, 6F hücresi TK2504 ise 6G hücresi TK2505 olacaktır.
7F hücresi TK7150 ise 7G TK7151 olmalıdır.
Gelen Uçuş Numarasının yanındaki sütun +1 artarak devam etmelidir.

https://yadi.sk/i/dINClmayzMy6J

Ekte tekrar renklendirerek belirtme yapılmıştır.

Saygılarımla,


Dediğinizi anladım peki kayma sadece 6F veya 7F sütünlarındamı mevcut? Diğer sütünlarda kayma varmı? Eğer Diğer herşey düzgün sadece giden uçuşta kayma yapıyor ise çözebilirim. Yok değil ise neyse göre kayma yapıyor onu bulup çözmek gerekcek.
 
Caner Bey,

Geliş tarihi ile gidiş tarihleri birleşecektir olduğu gibi.
Mesela, 6 satır (TK2538) 7 satır (TK2539) bunun gibi satırlar birbiri ile eşitlenip tek satır haline gelecektir.
Gelen uçuşların, gidiş uçuşları da excelde gözükmektedir. (uçuş numaranın son sayısı +1 artırınca gidiş uçuşu o'dur)
 
Caner Bey,

Geliş tarihi ile gidiş tarihleri birleşecektir olduğu gibi.
Mesela, 6 satır (TK2538) 7 satır (TK2539) bunun gibi satırlar birbiri ile eşitlenip tek satır haline gelecektir.
Gelen uçuşların, gidiş uçuşları da excelde gözükmektedir. (uçuş numaranın son sayısı +1 artırınca gidiş uçuşu o'dur)


Merhaba ,

Ben dün epey uğraştım ama konu beni aştı. Çözümleyemedim varsa diğer üstadlardan yardım almak gerek . Ben bir çok döngü denedim ama hepsinde bazı kaymalar oldu malesef. :frown:
 
1- Uçak adının benzersiz olduğunu geliş ve gidişlerde aynı uçak adını kullandığını varsaydım.
2- Geliş tarihi ve Geliş saatini, Gidiş tarih ve Gidiş saatini geçici olarak Örneğin en son sütunda (AF)
"01.09.2016 14:20" şeklinde birleştirdim.
3- İlk önce Uçak No'ya daha sonra tarih ve saati birleştirdiğim sütuna göre sıralattım.
4- Bu işlemlerden sonra aynı uçağın bir gelişine bir gidiş şeklinde sıralanması gerekir diye düşündüm. Genelde istediğim şekilde olsa da bazı kayıtlarda iki geliş veya iki gidiş alt alta geldi.
Yukardaki anlattığım mantıkta bilmediğim ve atladığım bir durum mu var. Aşağıdaki kodu uygulayıp incelermisiniz.

Süleyman.xls dosyasında olduğu gibi A Sütunun, 1 ve 3 satırın tamamen boş olduğu sütun başlıkların 2 satırda olduğunu varsaydım
Kod:
Sub Makro1()

    Columns("A:A").Delete Shift:=xlToLeft
    Rows("3:3").Delete Shift:=xlUp
   Rows("1:1").Delete Shift:=xlUp
    Range("AF1").Value = "GEÇİCİ"
For i = 2 To Range("A65536").End(3).Row
If Range("C" & i) = "00.00.0000" Then
Range("AF" & i).Value = Range("D" & i) + Range("H" & i)
Else
Range("AF" & i).Value = Range("C" & i) + Range("G" & i)
End If
Next
   ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range( _
        "M2:M1200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveSheet.Sort.SortFields.Add Key:=Range( _
        "AF2:AF1200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:AF1200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  
  For i = Range("A65536").End(3).Row To 2 Step -1
  If Range("C" & i) <> "00.00.0000" And Range("D" & i) <> "00.00.0000" Then
   Rows(i).Delete Shift:=xlUp
  End If
  Next
  For i = 2 To Range("A65536").End(3).Row
  If Range("C" & i).Value <> "00.00.0000" Then
Rows(i).Interior.ColorIndex = 8
End If
Next
End Sub
 
Geri
Üst