aynı olan hücreleri bireştirmek

[sensizsoldum]

Merhaba arkadaşlar,
B3 ten B65536 Hücresine makrolu formul yapmak ıstıyorum. formül şu şekılde olmalıdır.
b sutununda ki hücrelere rakamlar girilecek.
bu rakamların aynısından 2 ve 15 tane kadar aynı rakamlar var a ve c hücrelerinde ki sıralamaları bozmadan
bu aynı olan rakamları birleştirebilirmiyiz.

 

[uzmanamele]

Merhaba

Bu kod işinizi görür mü?

Sub merge()
Application.DisplayAlerts = False
For i = Range("b65536").End(3).Row To 2 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).merge
End If
Next
Application.DisplayAlerts = True
End Sub

 

[sensizsoldum]

eyvallah... gerçekten gönülden tşk ederım. bunları birleştirmeye ben dakıkalarca zaman ayırıyorm. bunu tşk etmek azdır.. allah razı olsun

 

[sensizsoldum]

merhabalar,
arkadaşlar, bu kodu uzun zamandan beri kullanıyorum ve çok işime yarıyor,
bunu bir başka sayfada c sutununda görmek istıyorum
ben b harcini c yaptım ama olmadaı sanırım başka yerlerde değişecek. bu kodu c sutuna gore de uyarlayabilirmıyız.


ilgi ve alakanıza şimdiden tşk ederım.

iyi çalışmalar dilerim saygıyla.

 

[sensizsoldum]

ıyı geceler sayın arkadaşlar sanırım bu çok fazla bir zamanınızı almayacaktır. aşağıdaki verilen kod b sutununda ne aynı olan hücreleri birleştırıyor. ben bunu c sutuna da uygulamak ıstıyorum. yardımcı olurmusunuz lutfen.

Sub merge()
Application.DisplayAlerts = False
For i = Range("b65536").End(3).Row To 2 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).merge
End If
Next
Application.DisplayAlerts = True
End Sub

 

[Necdet]

Merhaba,

Cells(i, 2) demek i değişkene bağlı satırın b sütunu demek
cells(i,3) demek i değişkenine bağlı satırın C sütunu demek

bunu cells(i, "C") diye de yazabilirsiniz

hadi siz çözün bu olayı.

 

[sensizsoldum]

günaydın..
hocam ben yapamıyorum özur dılerım çok rica edıyorum siz dezenleyebilirmısınız.

 

[sensizsoldum]

merhaba arkadaşlar, aşağıda ki kod b sutunu ile alakalıdır. bunu c sutunu olarak nasıl uyarlayabiliriz. sayın necdet hocamız açıklama yı yapmış ama kendısınden özur dileyerek yapamadığımı belirtmek ıstıyorum. yardımcı olurmusunuz lutfen.

herkese tşk ederım.
Sub merge()
Application.DisplayAlerts = False
For i = Range("b65536").End(3).Row To 2 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).merge
End If
Next
Application.DisplayAlerts = True
End Sub

 

[sensizsoldum]

arkadaşlar biri lkutfen baksın çok rica edıyorum...

 

[EKREM1661]

yukarıda; Necdet bey açıklamış ya.. Makroda, Cells(....) ifadesine ait parantez içerisinin 2' leri, 3 olacak.. Tabiiki Range parantezi içerisindeki de Range("b65536") olması lazım..

 

[sensizsoldum]

uğraştım yapamadım. bilen bırısı uyarlaya bilirse çok sevinirim. saatlerce uğraştım tık yok

 

[Yesilyurtlu]

Sub merge()
Application.DisplayAlerts = False
For i = Range("C65536").End(3).Row To 2 Step -1
If Cells(i, 3) = Cells(i - 1, 3) Then
Range(Cells(i, 3), Cells(i - 1, 3)).merge
End If
Next
Application.DisplayAlerts = True
End Sub


NECDET ABİNİN Açıklamaları doğrultusunda anladığım kadarı ile bir dene

 

[sensizsoldum]

tşk ederim yeşil yurtlu.
sayın nejdet hocamızın açıklamaları ayrıca göstermiş olduğu ilgi alakalar hep taktire nair emeklerdir. hepinize tşklerimi ıletıyorum. esen kalı.

 

[sensizsoldum]

merhabalar,
değerli hocalarım arkadaşlarm, bu yazılan kod işlemi yapıyor ama benim istediğim gibi yapmıyor.
ben kopyala yapıştır misali ekleme yapıyorum yüzlerce rakamları, bu atıyorum 11 yada 12 tane farklı rakamlardan oluşuyor.
bu aynı rakam olan hücreleri birleşirmesi için, kod bölümünü açıp kodu silip, ekleyip kayıt edip run yaparsam çalışıyor. buda çok zamanımı alıyor.
c sutuna veri girişi yaptığımda (kopyala yapıştır yaparak)aynı olan hücreleri birleştirsi istiyorum.

ilgi ve alakalarınıza şimdiden çok tşk ederım.
iyi çalışmalar dilerim.

saygıyla.