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 21-04-2018, 14:41   #1
emre.sevim
Altın Üye
 
Giriş: 14/07/2016
Şehir: çorum
Mesaj: 3
Excel Vers. ve Dili:
2010 türkçe
Varsayılan Aynı değere sahip hücreleri birleştirme

Merhaba,

Örnek olarak paylaştığım tabloda B sütununda yazmış olduğum numaralar eşit olduğu taktirde B-G-H-I Sutünlarında bulunan satırlardaki hücrelerin birleştirmesini yapmak istiyorum ancak bu konu ile alakalı forumda bir örnek cümle bulamadım, yardımlarınızı rica ederim.

Şimdiden teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx örnek tablo.xlsx (9.6 KB, 6 Görüntülenme)
emre.sevim Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2018, 20:14   #2
Necdet
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,227
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Ben sorunuzdan hiç bir şey anlamadım. Birleştirmekten kastınız nedir? Olması gereken nedir?

Konuya bakacak arkadaşlar için yeterli açıklama şart. Hücreleri birleştirmekten mi kastediyorsunuz, yoksa hücre değerlerini mi birleştirmek istiyorsunuz.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2018, 20:45   #3
emre.sevim
Altın Üye
 
Giriş: 14/07/2016
Şehir: çorum
Mesaj: 3
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Necdet Bey Merhaba,

Eşit değer de olan hücreleri birleştirip tek bir hücre olarak gösterilmesi demek istemiştim.

örnek tabloda, nasıl olması gerektiğini gösterdim.

İyi akşamlar
Eklenmiş Dosyalar
Dosya Türü: xlsx örnek tablo.xlsx (9.6 KB, 6 Görüntülenme)
emre.sevim Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2018, 21:54   #4
Ziynettin
Altın Üye
 
Giriş: 17/04/2008
Şehir: istanbul
Mesaj: 461
Excel Vers. ve Dili:
office2010
Varsayılan

Merhaba,

Bu kodu deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub birlestir()
Application.DisplayAlerts = 0
    i = 2
    Do While Cells(i, 2) <> ""
        s = i
        Do While Cells(i, 2) = Cells(s, 2)
            i = i + 1
        Loop
        Cells(s, 2).Resize(i - s).MergeCells = True
        Cells(s, 7).Resize(i - s).MergeCells = True
        Cells(s, 8).Resize(i - s).MergeCells = True
        Cells(s, 9).Resize(i - s).MergeCells = True
        Cells(s, 2).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 7).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 9).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s) = Application.Sum(Cells(s, 8).Resize(i - s))
    Loop
Application.DisplayAlerts = 1
MsgBox "İşlem bitti.", vbInformation
End Sub
Ziynettin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-04-2018, 10:19   #5
emre.sevim
Altın Üye
 
Giriş: 14/07/2016
Şehir: çorum
Mesaj: 3
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
Ziynettin tarafından gönderildi Mesajı Görüntüle
Merhaba,

Bu kodu deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub birlestir()
Application.DisplayAlerts = 0
    i = 2
    Do While Cells(i, 2) <> ""
        s = i
        Do While Cells(i, 2) = Cells(s, 2)
            i = i + 1
        Loop
        Cells(s, 2).Resize(i - s).MergeCells = True
        Cells(s, 7).Resize(i - s).MergeCells = True
        Cells(s, 8).Resize(i - s).MergeCells = True
        Cells(s, 9).Resize(i - s).MergeCells = True
        Cells(s, 2).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 7).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 9).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s) = Application.Sum(Cells(s, 8).Resize(i - s))
    Loop
Application.DisplayAlerts = 1
MsgBox "İşlem bitti.", vbInformation
End Sub
Gayet güzel oldu,Çok teşekkür ederim ben botun oluşturup hücreleri birleştirdim.
aynı butona veya başka bir buton ile işlemi geri almak mümkün mü?
Ayrıca E sutünundaki miktarları denk gelen satırda H sütununda birleştirdiği hücrede toplayabilir miyiz. yani bir palette kaç çeşit ürün var ise ayrı bir hücrede miktarlarının toplamını görebilir miyim.
emre.sevim Ç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 11:40


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- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden