-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
birleşik hücrelerin çözülmesi
- Konbuyu başlatan as2380
- Başlangıç tarihi
N.Ziya Hiçdurmaz
Özel Üye
- Katılım
- 28 Nisan 2007
- Mesajlar
- 2,218
- Excel Vers. ve Dili
- Office 2013 TR / 32 Bit
yanıt
Bir deneme yaptım bakınız.
Sub Makro1()
Range("A1
10").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
For Each ekle In Range("a1:d10")
ekle.Value = [a1].Value
Next
End Sub
Bir deneme yaptım bakınız.
Sub Makro1()
Range("A1
10").SelectWith Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
For Each ekle In Range("a1:d10")
ekle.Value = [a1].Value
Next
End Sub
Kardeş öncelikle çok teşşekkür ederim ilgilendiğin için
ama bişey itiraf etmek istiyorum excel ve çzelikle makrolar hakkında cok ayrıntılı bilgiye sahip değilim
Senin yaptıgın şey çalışıyo ama ben bunu kendi herhangibir dosyamda nasıl kullanabiirim aralığı gilan nerden değişecem ve makroyu nasıl kaydedip bu dosyayı daha sonra nasıl kullanabilecem???
ama bişey itiraf etmek istiyorum excel ve çzelikle makrolar hakkında cok ayrıntılı bilgiye sahip değilim
Senin yaptıgın şey çalışıyo ama ben bunu kendi herhangibir dosyamda nasıl kullanabiirim aralığı gilan nerden değişecem ve makroyu nasıl kaydedip bu dosyayı daha sonra nasıl kullanabilecem???
- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,372
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Her zaman örnek dosyanın daha yararlı olduğunu düşünüyorum.
Sizin sorunuzu okudum ama makro bilgimin bu soruya yeteceğini düşünmedim. Çünkü bir sayfada hangi hücrelerin birleştirildiğini bulmanın ve sizin dediğinizi yapmanın zor olduğunu düşündüm. Birleştirilen hücre satır bazında mı, sütün bazında mı, yoksa hem satır hem sütun bazında mı olduğunu anlayacak bilgiye sahip değilim.
Ama gönderdiğiniz örnek dosyadaki gibi ise sorunuz, sanrım işiniz ne formül yazmaya ne de makro ile uğraşmaya gerek yok.
1. Tüm A sütununu Seçin
2. Hücre birleştir ve ortala ikonuna (->a<- ya benzeyen) basın
birleştirilen hücreler ayrılsın
3. F5 tuşuna basın
4. özel
5. Boşluklar ve Tamam
6. Sizin örnekte en son seçilen hücrenin A2 olduğunu gösteriyor, Bu durumda formül çubuğundan = A1 yazıp Ctrl+Enter tuşuna basarsanız, aradaki boşluklar sizin dediğiniz gibi dolar
Kolay gelsin, biraz karmaşık gibi gelebilir ama çok basit yöntemdir
Sizin sorunuzu okudum ama makro bilgimin bu soruya yeteceğini düşünmedim. Çünkü bir sayfada hangi hücrelerin birleştirildiğini bulmanın ve sizin dediğinizi yapmanın zor olduğunu düşündüm. Birleştirilen hücre satır bazında mı, sütün bazında mı, yoksa hem satır hem sütun bazında mı olduğunu anlayacak bilgiye sahip değilim.
Ama gönderdiğiniz örnek dosyadaki gibi ise sorunuz, sanrım işiniz ne formül yazmaya ne de makro ile uğraşmaya gerek yok.
1. Tüm A sütununu Seçin
2. Hücre birleştir ve ortala ikonuna (->a<- ya benzeyen) basın
birleştirilen hücreler ayrılsın
3. F5 tuşuna basın
4. özel
5. Boşluklar ve Tamam
6. Sizin örnekte en son seçilen hücrenin A2 olduğunu gösteriyor, Bu durumda formül çubuğundan = A1 yazıp Ctrl+Enter tuşuna basarsanız, aradaki boşluklar sizin dediğiniz gibi dolar
Kolay gelsin, biraz karmaşık gibi gelebilir ama çok basit yöntemdir
Son düzenleme:
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Ekli dosyayı inceleyiniz.
Sub Düğme2_Tıklat()
Range("A1:A27").MergeCells = False
[a1:a27].Value = [c1:c27].Value
End Sub
Sub Düğme2_Tıklat()
Range("A1:A27").MergeCells = False
[a1:a27].Value = [c1:c27].Value
End Sub
AS3434
Özel Üye
- Katılım
- 13 Ocak 2005
- Mesajlar
- 1,820
- Excel Vers. ve Dili
- M.Office/Excel 2007 Türkçe
arkadaşım verdiğin linkteki dosyayı incelediğimde bu başlıkta ilk açtıgım zamanki aynı sorun oldugunu gördüm,orda arada hiç boş hücre yok halbuki benim örnek dosyamı incelerseniz arada boş hücreler var ve onların yine boş kalmasını istiyorum ben!!!
Anladın de mi sevgili as arkadaşım???hücreler birleşik,ama içlerinde bazıları tamamen boş,benim istediğim bu hücreler çözüldüğü zaman birleşik hücrelerden dolu olanların değeri birleştirilmiş bütün hücrelere dağıtılsın,ama eğer boşsa o birleşik hücre çözüldüğü zaman da o hücreler boş kalsın
Örnek iyi anlatıyo bence durumu iyi incelenirse,ilgin için teşekkürler ama
Ya nolur biri yardımcı olsun yaaaa
Örnek iyi anlatıyo bence durumu iyi incelenirse,ilgin için teşekkürler ama
Ya nolur biri yardımcı olsun yaaaa
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Eklediğim dosyaya baktınız mı?
- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,372
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Dosyanızdaki açıklamayı okudum
Siz ne yapılmasını istiyorsunuz?
Şimdi siz bu açıklamadan ne anlıyorsunuz? hem hücreleri ayırdığımda boş olanları doldurmak istiyorum, hemde boş olanlar boş kalsın diyorsunuz.
Siz ne yapılmasını istiyorsunuz?
Ya arkadaşım ben mi anlatamıyorum,nerde sorun var,çıkamadık bu işin içinden alla allaaaaa!
Bak hücreler birleşikken içinde değer olan hücreler çözüldüğü zaman o hücrelere aynı değeri versin ama hücreler birleşikken boş olan hücreler çözüldüğü zamanda boş olarak kalsı,örnek dosyayı incelemiyomusunuz nedir anlamadım ki,A7,8,9 Hücreleri birleşikken de boş çözüldüğü zaman da boş kalmasını istiyorum!
!Bak hücreler birleşikken içinde değer olan hücreler çözüldüğü zaman o hücrelere aynı değeri versin ama hücreler birleşikken boş olan hücreler çözüldüğü zamanda boş olarak kalsı,örnek dosyayı incelemiyomusunuz nedir anlamadım ki,A7,8,9 Hücreleri birleşikken de boş çözüldüğü zaman da boş kalmasını istiyorum!
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Eklediğim dosyayı açın ve A sütununda istenilen hücreleri birleştirip makroyu bir çalıştırın. Sorunuzu bu şekilde anlıyorum ben.