Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-10-2017, 09:07   #1
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan Kural Tanımlayarak Hücre Birleştirmek

Değerli ustalarım,

Ekli dosyamda bulunan verileri tanımlı bir kural dahilinde birleştirmek mümkün olabilir mi acaba? Detaylar dosyanın içerisinde de anlatılmaktadır.

https://www.dosyaupload.com/dr6m

İlgi ve yardımlarınız için şimdiden teşekkür ederim,

Saygılarımla,
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 11:00   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Umarım doğru anlamışımdır.
Birleştirmeyi Sayfa2 de yapar.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Birlestir()
    
    Dim i As Long, S2 As Worksheet, sat As Long
    
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    S2.Range("C4:P" & Rows.Count).Clear
 
    sat = 4
    For i = 4 To Cells(Rows.Count, "P").End(xlUp).Row Step 2
        If Cells(i, "P") = Cells(i + 1, "P") Then
            Cells(i, "C").Resize(1, 14).Copy S2.Cells(sat, "C")
            S2.Cells(sat, "F") = Cells(i + 1, "F")
            S2.Cells(sat, "H") = Cells(i + 1, "H")
            S2.Cells(sat, "K") = Cells(i + 1, "K")
            S2.Cells(sat, "N") = Cells(i + 1, "N")
            sat = sat + 1
        Else
            Cells(i, "C").Resize(2, 14).Copy S2.Cells(sat, "C")
            sat = sat + 2
        End If
    Next i
    
    S2.Select
    Columns("E:F").NumberFormat = "m/d/yyyy"
    Columns("N:N").NumberFormat = "[$-F400]h:mm:ss AM/PM"
    
    Application.ScreenUpdating = True
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 11:13   #3
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Ömer Bey,

Öncelikle ilgi ve yardımınız için teşekkür ederim.Aynen yapmak istediğim şey bu şekilde birleştirme.Lakin listede de gördüğünüz üzere veri çok ve belirttiğim gibi tarihe göre değişik uçuş numaraları mevcut.Verilerin tamamına bunu uygulamak mümkün olabilir mi? Farklı bir sayfada yapması önemli değil yeterki birleştirsin!!

Saygılarımla,
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 11:44   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Tarihle ilgili bir sınır yada şart koymadım. Tüm verilere uygulanabilir.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 14:38   #5
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Ömer Bey,

Bu anlamda benim ihtiyacım olan şey uçuş numarasına göre tarihini de baz alarak eşleştirme yaptıktan sonra seferleri birleştirmesi.Eğer yanlış anlamadıysam sizin verdiğiniz kod belirtilen hücreleri birleştiriyor.

Yani şöyle birşey olabilir mi? Örneğin Tarihi aynı ise TK2508 gördüğü her seferin devamına aynı tarihli TK2509 ları yerleştirsin!! Eğer bu yapılabilir ise sadece uçuş numaralarını değiştirerek birleştirmeleri yapabilmek kolay ve istenilen sonucu verecek biçimde olur. Yeri geldiğinde bahsettiğim gibi 15000 uçuş verisini birleştirmem gerekiyor.

Saygılarımla,
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 14:53   #6
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

41 ve 42. satırlar.
Sefere göre doğru fakat tarihleri aynı değil. Bu gibi durumlar için ne yapılması gerekiyor.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 15:06   #7
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

TK2526 seferinin geliş saati ve TK2527 seferinin gidiş saatinden kaynaklı tarih değişiyor. N sütünundaki saatler geçerli oluyor.
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-10-2017, 15:17   #8
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Saatlerden dolayı oluyor fakat siz tarih şartı koymak istiyorsunuz. Verdiğim örnekte tarih farklı, bu gibi durumlardaki öneriniz nedir.? Nasıl bir yol izlenmesi gerekiyor.

Şuan kodların yaptığı;
P sütununu ölçüt alıyor. P sütununda seferler sıralı olduğu için, örneğin;

P4 ile P5 i karşılaştırıyor aynı ise birleştiriyor.
P6 ile P7 i karşılaştırıyor aynı ise birleştiriyor.
P8 ile P9 i karşılaştırıyor aynı ise birleştiriyor.
.
.
.

Bu şekilde istenen sonuçları elde ediliyor.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-10-2017, 16:14   #9
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
Saatlerden dolayı oluyor fakat siz tarih şartı koymak istiyorsunuz. Verdiğim örnekte tarih farklı, bu gibi durumlardaki öneriniz nedir.? Nasıl bir yol izlenmesi gerekiyor.

Şuan kodların yaptığı;
P sütununu ölçüt alıyor. P sütununda seferler sıralı olduğu için, örneğin;

P4 ile P5 i karşılaştırıyor aynı ise birleştiriyor.
P6 ile P7 i karşılaştırıyor aynı ise birleştiriyor.
P8 ile P9 i karşılaştırıyor aynı ise birleştiriyor.
.
.
.

Bu şekilde istenen sonuçları elde ediliyor.

.
Ömer bey gecikmeli cevap için öncelikle özür dilerim.İnternet arızasından dolayı ancak erişim sağlayabildim.Tarih farklılığı olanları el ile birleştirmede yapabilirim.Çok problem olmaz.Gece yarısını aşan sefer çok fazla denk gelmiyor.Genel itibariyle bana gün içerisindeki seferleri birleştirsin yeter.Ama bunu tek bir komut ile verilerin geneline yapabilirmiyiz?

Saygılarımla,
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-10-2017, 13:41   #10
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Sefer sayıları birleştirmelerinde P yada O sütununu eşitleyerek gitmeyi düşündüm.
Fakat , aynı tarihte, P5 ile P11 değerleri aynı fakat sefer sayıları tutarsız. Bu veriler hatalı olabilir mi?

Yada P sütunu benim düşündüğüm mantıkta değil mi?

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:02


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden