Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-01-2018, 10:03   #1
AzazelGTR
 
Giriş: 03/01/2018
Şehir: KOCAELİ
Mesaj: 3
Excel Vers. ve Dili:
exel 2010 / türkçe
Exclamation Makro yazmam gerekiyor yardım alabilirmiyim..

........dosya no ...... .. tc .... ..... iletişim
TT 2014511308 11111111119 5303833318

TT 2014529103 11111111111 5303261332 5465108631( gibi )
TT 2014529103 11111111111 5465108631

TT 2014428375 11111111113 3722561625

TT 2014484701 11111111114 5301587486 5412937872 5078312753 3722651507 (gibi)
TT 2014484701 11111111114 5412937872
TT 2014484701 11111111114 5078312753
TT 2014484701 11111111114 3722651507

TT 2014552782 11111111112 5342047683
TT 2014552782 11111111112 5448476761
TT 2014552782 11111111112 5353293457
TT 2014552782 11111111112 3722687073

yukardaki örnekteki gibi exelde 7000 satırda bilgilerimiz mevcut, benim yapmak istediğim aynı dosya numarasındaki farklı numaraları tek satırada yan yana koymak, yani aslında bu 7000 satırda farksız olan 3000 dosyam var yardımcı olursanız sevinirim .
AzazelGTR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 10:25   #2
manyakbiri
 
Giriş: 21/03/2013
Şehir: İstanbul
Mesaj: 113
Excel Vers. ve Dili:
Excel 2013 İngilizce
Varsayılan

Makro bilgim çok az, sizin yerinizde olsam şu şekilde yapardım.

-Pivot tablo oluştururum.
-Satır kısmına ilk Dosya No'yu, onun hemen altına İletişim'i koyarım.
-Sonra karşımıza çıkan tabloda, teker teker her dosya numarasının altındaki iletişim numaralarını kopyalayıp, dosya numarasının yanına transpozesini yapıştır şeklinde yapıştırırım.
manyakbiri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 10:48   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,225
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.

Verilerin A:C sütun aralığında ve aynı TC Kimlik Numarası olanların alt alta listelenmiş olduğu varsayıldı.

C sütunundaki veriler, B sütunundaki TC Kimlik Numarası kriterine göre D sütununa birleştirilir.
İşlem öncesinde; varsa D sütunundaki verilerinizi başka bir alana alın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub BIRLESTIR()
Range("D2:D" & Cells(Rows.Count, "A").End(3).Row).ClearContents
For sat = 2 To Cells(Rows.Count, "A").End(3).Row
    adet = WorksheetFunction.CountIf([B:B], Cells(sat, "B"))
    If adet > 1 Then
        For satt = sat To sat + adet - 1
            metin = metin & " " & Cells(satt, "C")
        Next
        Cells(sat, "D") = Mid(metin, 2, Len(metin) - 1)
        sat = sat + adet - 1
    End If: metin = ""
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 12:32   #4
AzazelGTR
 
Giriş: 03/01/2018
Şehir: KOCAELİ
Mesaj: 3
Excel Vers. ve Dili:
exel 2010 / türkçe
Thumbs up

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.

Verilerin A:C sütun aralığında ve aynı TC Kimlik Numarası olanların alt alta listelenmiş olduğu varsayıldı.

C sütunundaki veriler, B sütunundaki TC Kimlik Numarası kriterine göre D sütununa birleştirilir.
İşlem öncesinde; varsa D sütunundaki verilerinizi başka bir alana alın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub BIRLESTIR()
Range("D2:D" & Cells(Rows.Count, "A").End(3).Row).ClearContents
For sat = 2 To Cells(Rows.Count, "A").End(3).Row
    adet = WorksheetFunction.CountIf([B:B], Cells(sat, "B"))
    If adet > 1 Then
        For satt = sat To sat + adet - 1
            metin = metin & " " & Cells(satt, "C")
        Next
        Cells(sat, "D") = Mid(metin, 2, Len(metin) - 1)
        sat = sat + adet - 1
    End If: metin = ""
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
Merhabalar,
Öncelikle çok teşekkür ederim, makro işimi çözüyor ancak telefon numaralarının hepsini aynı hücrede topluyor. Onların ayrı satırlara yan yana olması konusunda bir çözüm var mı ?
AzazelGTR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 12:53   #5
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,225
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Aşağıdaki kod istediğiniz işlemi yapar.
D sütunundan itibaren veri tablonuzun sağındaki alanda verileriniz varsa; kodu, bu verileri başka sayfaya aldıktan sonra çalıştırın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SUTUNLARA_YAZ()
For sat = 2 To Cells(Rows.Count, "A").End(3).Row
    adet = WorksheetFunction.CountIf([B:B], Cells(sat, "B"))
    If adet > 1 Then
        For sut = 4 To adet + 2
            Cells(sat, sut) = Cells(sat + sut - 3, "C")
        Next: sat = sat + adet - 1
    End If
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 13:56   #6
AzazelGTR
 
Giriş: 03/01/2018
Şehir: KOCAELİ
Mesaj: 3
Excel Vers. ve Dili:
exel 2010 / türkçe
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
Aşağıdaki kod istediğiniz işlemi yapar.
D sütunundan itibaren veri tablonuzun sağındaki alanda verileriniz varsa; kodu, bu verileri başka sayfaya aldıktan sonra çalıştırın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SUTUNLARA_YAZ()
For sat = 2 To Cells(Rows.Count, "A").End(3).Row
    adet = WorksheetFunction.CountIf([B:B], Cells(sat, "B"))
    If adet > 1 Then
        For sut = 4 To adet + 2
            Cells(sat, sut) = Cells(sat + sut - 3, "C")
        Next: sat = sat + adet - 1
    End If
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
Çok teşekkürler vallahi işimi çok rahatlattın reis eyvallah
AzazelGTR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 15:08   #7
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,225
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba Sayın AzazelGTR.

Kusura sakmayın ama söylemem lazım.

Ortada HAYDUT ÇETESİ, KIZILDERİLİ KABİLESİ falan olmadığından; kullandığınız sıfatı hiç anlamlandıramadım.

Başkasını bilmem ama, bu sıfat bana malesef hiç olumlu şeyler çağrıştırmadı.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Ç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 05:46


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden