Çözüldü Boşluk Sil, Aynı Hücreyi Birleştir ve Ortala

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Merhaba
Örnek olarak eklemiş olduğum dosyada H sütunundaki boş hücre bulunan satırları silip ardından B sütunundaki aynı verili olan hücreleri birleştirip (bu hücreler zaten alt atla) ortalayarak bu biçimlendirmeyi A, C, D, E, F, G, K, L, M, N, O sütunlarına da kopyalamasını nasıl yapabilirim?
Referans olarak B sütunun alınması gereklidir.
Turuncu sütun birleşip sarılar bu biçimi referans alacak.
Kaynak ve Sonuç olarak 2 sayfa ekledim. İşlem kaynak sayfasında yaptırılacaktır. Sonuç sayfasını şablon olsun diye el ile yaptım, normade 2. bir sayfa yoktur.
Teşekkür ederim.
 

Ekli dosyalar

  • Örnek2.xlsm
    28.9 KB · Gösterim: 12
Çözüm
CacaBey
RBozkurt' Alıntı:
Ek olarak;

If WorksheetFunction.CountA(Sheets(1).Rows(i)) = 0 Then satırını
If WorksheetFunction.CountA(Sheets(5).Rows(i)) = 0 Then olarak güncelledim.
Mevcut projede verilerin olduğu sayfa > Sayfa5.
Genişletmek için tıkla...
Özür dilerim RBozkurt,
Gözden kaçırmışım şimdi kodu düzelttim. Yukardaki düzeltmeyi yapmana gerek kalmadı. Kontrol edip dönüş yaparsan sevinirim.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
CacaBey çok teşekkür ederim. Şuan pc başında değilim. Deneyip geri dönüş sağlarım. İyi günler.


isaozdag sizin paylaşmış olduğunuz makroyu da farklı bir çalışmada kullanabilirim. Teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
CacaBey test ettim problem gözükmüyor. Elinize sağlık..

Ek olarak A sütunu için If BSatir <> SSatir Then satırından sonra .Range("A" & BSatir & ":" & "A" & SSatir).Merge kodunu ekledim.
 
Olumlu oy 0 Negatif oyla
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Merhaba CacaBey

Kod çalışıyor fakat son satırlarda birleştirilecek hücre olunca o kısımda çalışmıyor.
Örnek dosyaya buton ekledim. Tıklayın en alt kısımda 8 numaralı veri mesela, orda kalıyor.

Ek olarak makro çalışınca PC çok yavaşlıyor, çözümü varmıdır?

Yardımcı olabilir misiniz?
 

Ekli dosyalar

  • Örnek2.xlsm
    38.7 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Ek olarak;

If WorksheetFunction.CountA(Sheets(1).Rows(i)) = 0 Then satırını
If WorksheetFunction.CountA(Sheets(5).Rows(i)) = 0 Then olarak güncelledim.
Mevcut projede verilerin olduğu sayfa > Sayfa5.
 
Olumlu oy 0 Negatif oyla
CacaBey

CacaBey

Excel Dostu
Kullanıcı Bilgileri
Katılım
9 Ocak 2022
Mesajlar
34
Çözümler
10
Aldığı beğeni
113
Excel Versiyonu
Office 2016 TR
RBozkurt' Alıntı:
Ek olarak;

If WorksheetFunction.CountA(Sheets(1).Rows(i)) = 0 Then satırını
If WorksheetFunction.CountA(Sheets(5).Rows(i)) = 0 Then olarak güncelledim.
Mevcut projede verilerin olduğu sayfa > Sayfa5.
Genişletmek için tıkla...
Özür dilerim RBozkurt,
Gözden kaçırmışım şimdi kodu düzelttim. Yukardaki düzeltmeyi yapmana gerek kalmadı. Kontrol edip dönüş yaparsan sevinirim.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
CacaBey estf. hocam ne demek. Elinize emeğinize sağlık.
Ben makroyu başka bir makro içerisine Call *makroadı* komutu ile bağladığım için aktif sayfada hata vereceğini düşündüm.
Aşağıdaki gibi tekrar güncelledim.

If WorksheetFunction.CountA(Sheets(ActiveSheet.Index).Rows(i)) = 0 Then
If WorksheetFunction.CountA(Sheets(5).Rows(i)) = 0 Then
 
Olumlu oy 0 Negatif oyla
CacaBey

CacaBey

Excel Dostu
Kullanıcı Bilgileri
Katılım
9 Ocak 2022
Mesajlar
34
Çözümler
10
Aldığı beğeni
113
Excel Versiyonu
Office 2016 TR
RBozkurt' Alıntı:
CacaBey estf. hocam ne demek. Elinize emeğinize sağlık.
Ben makroyu başka bir makro içerisine Call *makroadı* komutu ile bağladığım için aktif sayfada hata vereceğini düşündüm.
Aşağıdaki gibi tekrar güncelledim.

If WorksheetFunction.CountA(Sheets(ActiveSheet.Index).Rows(i)) = 0 Then
If WorksheetFunction.CountA(Sheets(5).Rows(i)) = 0 Then
Genişletmek için tıkla...
O zaman aşağıdaki kodu da değiştirmeniz gerekir.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

şeklinde olmalı
 
Olumlu oy 1 Negatif oyla
RBozkurt

RBozkurt

Yeni Üye
Kullanıcı Bilgileri
Katılım
25 Ara 2021
Mesajlar
303
Çözümler
26
Aldığı beğeni
164
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst