A ve B Sutununda ki mükerrer kayıtlar....

[senuyurken]

Arkadaslar örnek dosya ektedir... İlgilenirseniz sevinirim. Teşekkurler..

Arkadaşlar.. forumda aramıstım ama bulamamıstım
mükerer kayıt diye...

Fakat burda fazlasıyla isteğimi yerine getiren çalışma var Teşekkürler...

http://www.excel.web.tr/f14/sayfa-kars-last-rma-t63966.html

 

[leumruk]

Selamlar,
Yanıtını bulmuşsun; ama ben emek sarfettim, benim dosyamı da incele, alternatif olsun.

 

[senuyurken]

Selamlar,
Yanıtını bulmuşsun; ama ben emek sarfettim, benim dosyamı da incele, alternatif olsun.

Teşekkur ederim kardeşim seve seve bakarım....


hemen ındırıyorum çok saol....

 

[senuyurken]

leumruk kardeş tam anlatamadım herhalde ama senın dosyada ben bırsey cıkaramadım b sutunu sadece sarıya boyanmış c sutununa da aynı ısımler yazılmıs. dikkat edersen b sutununda 4 tane ısım aynı a sutununda da var aynı ısımler ben ıkı sutun arasında aynı sutunlar aaynı ısımde olan kayıtların bırlestırılerek c sutununa yazdırılmasını istedim. Veya a sutununda tekrar eden isim silinsin istemnistim.

Emeğine Ellerine sağlık. Allah Razı olsun Kardeş...


Ama şöyle bir sorunum daha var yapabilirsen çok memnun olurum....

 

[leumruk]

Sub Dene()
[b1].TextToColumns Destination:=Range("B1")
Sut = Cells(1, 256).End(1).Column
Range(Cells(1, "b"), Cells(1, Sut)).Copy
[a1].PasteSpecial Transpose:=True
Range(Cells(1, "b"), Cells(1, Sut)) = ""
Application.CutCopyMode = False
End Sub

Kodu bir modüle yapıştırıp çalıştırın. Hayırlı geceler...

 

[senuyurken]

Sub Dene()
[b1].TextToColumns Destination:=Range("B1")
Sut = Cells(1, 256).End(1).Column
Range(Cells(1, "b"), Cells(1, Sut)).Copy
[a1].PasteSpecial Transpose:=True
Range(Cells(1, "b"), Cells(1, Sut)) = ""
Application.CutCopyMode = False
End Sub

Kodu bir modüle yapıştırıp çalıştırın. Hayırlı geceler...

Teşekkurler kardeş.

,Excelde çok yenıyım acaba modul derken neyı kastetınız ornek dosya uzerınde bıor calısma yapabılrımısınız..


Teşekkurlker....

 

[leumruk]

Dosyayı ekliyorum. Düzelmiş şekli mevcut, b1 hücresine yeniden verdiğiniz metni girerek deneyiniz.
Modüle gelince: Araçlar>Makro>VisualBasic Düzenleyicisi>Insert>Module kımından module oluşturup kodları oraya kopyalıyorsunuz.

 

[senuyurken]

Dosyayı ekliyorum. Düzelmiş şekli mevcut, b1 hücresine yeniden verdiğiniz metni girerek deneyiniz.
Modüle gelince: Araçlar>Makro>VisualBasic Düzenleyicisi>Insert>Module kımından module oluşturup kodları oraya kopyalıyorsunuz.

Allah Razı Olsun çok çok teşekkür ederim..

Saygılar...

 

[senuyurken]

Dosyayı ekliyorum. Düzelmiş şekli mevcut, b1 hücresine yeniden verdiğiniz metni girerek deneyiniz.
Modüle gelince: Araçlar>Makro>VisualBasic Düzenleyicisi>Insert>Module kımından module oluşturup kodları oraya kopyalıyorsunuz.

Kusura bakma yeni denedımde..

Yeni metni B! e ekledım ama sizinki gibi sıralamadı neden acab...

 

[leumruk]

Eklediğim dosyada bulunan düğmeye tıklayınız ve sonucu gözlemleyiniz.

 

[senuyurken]

Tamam dostum tesekkurler.. Buldummm sayende...

 

[leumruk]

Tamam dostum tesekkurler.. Buldummm sayende...

Rica ederim. İyi çalışmalar.

 

[senuyurken]

Eklediğim dosyada bulunan düğmeye tıklayınız ve sonucu gözlemleyiniz.

Çok Teşekkur ediyorum saolun..

Allah Razı Olsun...

 

[leumruk]

Rica ederim. Ne demek. Hayırlı geceler.

 

[winston]

leumruk kardeşim birde benim soruma bakabilirmisin zahmet olmazsa böyle bir şey olabilirmi ?

 

[leumruk]

leumruk kardeşim birde benim soruma bakabilirmisin zahmet olmazsa böyle bir şey olabilirmi ?

Konunuza baktım. Açıkçası ne istediğinizi tam anlayamadım. İsterseniz, konunuza daha ayrıntılı bir açıklama yazın. Fonksiyonlar konusunda oldukça başarılı arkadaşlar var, mutlaka çözüm üreteceklerdir. Elimden gelen bir şey olursa ben de yardımcı olurum. Ama açıklamanızı mutlaka yenileyin.