• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
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
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde olmalı
 
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst