hücre birleştir sorunu..!

[sensizsoldum]

merhaba arkadaşlar,
aşağıdaki kod: c sutunund alt alt yazılmış aynından birden fazla olan hücreleri birleştiriyor.
ben c sutuna veri eklemeyi çok fazla sayıda olduğundan kopyala yapıştır ile yapıyorum.
yaptığımda kod çalışmıyor, ancak kod bölümünden kodu silip kayıt edip, dosyayı kapa aç yapıp, kodu ekleyıp kayıt edip,run yaparsam çalışıyor.
bu düzenlemeyı kopyala yapıştır ile yapmak ıstıyorum.
bu kod duzenlemesını nasıl duzenleyebiliriz.

ilginiz için şimdiden çok tşk ederım.
iyi çalışmalar dilerim


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

 

[sensizsoldum]

arkadaşlar bu kodun duzenlenmesı gerçekten çok öenmli binlerce veri bir birine girmiş durumda sizlerden çok rica edıyorum.
iyi akşmlar

 

[sensizsoldum]

arkadaşlar bu konuylada ılgılenmenızı çok rica edıyorum gerçekten çok onemlı.

tşk ederım hayırlı akşamlar

 

[kemalist]

örnek dosya eklermisiniz?

 

[sensizsoldum]

merhaba hocam gunaydın,
dosya eklemek ısterım ama şirkette olduğumdan ekleyemıyorum.
dilerseniz mail yoluyla ıletişim kurabiliriz
iyi çalışmalar dilerim.

 

[sensizsoldum]

Merhaba arkadaşlar
Kemal bey örnek olarak istedi dosyayı ama,
şirkette olduğumdan aşağıda ki gibi gönderebildim.

sol taraftaki rakamlar c sutuna yapıştıracağım şekildir.
c sutuna eklendiğinde ise sağ taraftaki gibi aynı olanları birleştirsin istıyorum.
verdiğim kod bunu yapıyor. ancak veri eklemeden sayfada ki kodu siliyorum. kayıt edip çıkıyorum.
veri girişini yapıyorum kod eklıyorum kaydedip run yapıyorum ancak o zaman işlem yapıyor.
ben veriyi yapıştırdığımda aynı olanları birleştirsin istıyorum.
umarım yeterince açıkladım.

herkese çok tşk ederım.

405507411 405507411
419606171 419606171
419606171
419606171
419606171
419606171
419606171
419606941 419606941
419606941
419606941
419606941
419606941
419606991 419606991
419606991
419606991
419606991
419606991
419607071 419607071
419607071
419607071
419607071
419607071
419607071
419607291 419607291
419607291
419607291
419607291
419607291

 

[sensizsoldum]

Merhaba,
örnek dosyayı ekledım. g sutununda herhangi formul yada makro olmamalı. not olarak ekledim
örneğin g sutundaki verileri kopyaladım, c sutuna yapıştırdığımda, aynı olan verileri bu şekilde birleştirsin istıyorum.
aşağıdaki kod bu işlemi yapıyor, ama yukarıda bahsettiğim gibi yapıyor. buda benim uzun zamanımı alıyor.
c sutuna yapıştırdığım girişleri otomatık olarak aynı olanları birleştirsın ıstıyorum
dosya linktedir.iyi çalışmalar dilerim
saygıyla.


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

http://s2.dosya.tc/server6/sfMwKb/Kitap1.xls.html

 

[sensizsoldum]

Merhaba, herkese iyi geceler...
arkadaşlar örnek dosyayı ekledim ve 29 satıra kadar manuel olarak aynı olan hücreleri birleştirdim. benim istediğim ben bir başka dosyadan verileri kopyalayıp c sutuna yapıştırdiğimda anda aynı olanları birleştirsin istıyorum.
hepinize gönülden tşklerimi sunarım. iyi akşamlar dilerim.

 

[sensizsoldum]

merhaba günaydın.
hayırlı cumalar dilerim. ilgi ve alakanz için tşk ederim.
c sutuna verileri yapıştırmadan önce küçükten büyüğe sıralama yapacağım. yapıştırıldığı an aynı olanları birleştirsin istıyorum. ben örnek olarak 29 satıra kadar manuel olarak aynı olanları birleştirdim. c sutuna veri yapıştırıldığı an benim manuel birleştirdiğim gibi birleştirsin istıyorum.
örnek dosya bir önceki 8 nolu mesajdadır. ektedir.
iyi çalışamlar dilerim.

 

[sensizsoldum]

MERHABA
arkadaşlar çok rica ediıyorum sızden bu konuya da göz atabilir mısınız (