iki sutunu birleştir

[İhsan Tank]

merhaba
arkadaşlar bir sorunum var iki sutunu birleştirmek istiyorum ama mükerrer olmayacak
örnek dosya ekte

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[İhsan Tank]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

hocam çok teşekkür ederim
yalnız bir şey rica etsem bunu yardımcı sütun kullanmadan yapma imkanımız var mı_?
var ise yardımcı olursanız sevinirim.
hocam bir de her sütun farklı sayfa olsa ve farklı bir sayfada birleştirmek istersek nasıl yapmamız gerekir

 

[uzmanamele]

merhaba

kod alternatifi olsun

Sub ikisütunumükerrersizsüz()
ss1 = Range("A65536").End(3).Row
ss2 = Range("B65536").End(3).Row
    Range("B2:B" & ss2).Copy Range("A" & ss1+1)

    Application.CutCopyMode = False
    Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "C1"), Unique:=True
End Sub

not:
kodu çalıştırmadan önce A sütunundaki verilere başlık koyunuz.

 

[İhsan Tank]

merhaba

kod alternatifi olsun

not:
kodu çalıştırmadan önce A sütunundaki verilere başlık koyunuz.

Hocam Kod için çok teşekkür ederim.
yalnız ben bunu iki farklı sayfadaki 2 sütun'u birleştirmek için istiyorum.
ama zamanınızı harcadığınız için çok ama çok teşekkür ederim.

 

[uzmanamele]

merhaba

verilerinizin sayfa1 A sütunu ve sayfa2 A sütununda olduğunu varsayarsak (farklı sütunlardaysa koddaki sütun adını değiştirin) aşağıdaki kodu deneyiniz.

Sub farklısayfadanmükerrersizsüz()
ss1 = Sheets("sayfa1").Range("A65536").End(3).Row
ss2 = Sheets("sayfa2").Range("A65536").End(3).Row
Sheets("sayfa2").Range("A2:A" & ss2).Copy Sheets("sayfa1").Range("A" & ss1 + 1)
    Application.CutCopyMode = False

    Sheets("sayfa1").Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets("sayfa1").Range("C1"), Unique:=True
    
Sheets("sayfa1").Range("A" & ss1 + 1 & ":A65536").ClearContents
End Sub

 

[İhsan Tank]

merhaba

verilerinizin sayfa1 A sütunu ve sayfa2 A sütununda olduğunu varsayarsak (farklı sütunlardaysa koddaki sütun adını değiştirin) aşağıdaki kodu deneyiniz.

hocam ilgin için çok teşekkür ederim.
mümkünse fonksiyon çözümünü istiyorum ama bir sakıncası yoksa.
sizleri uğraştırıyorum kusura bakmayın

 

[uzmanamele]

hocam ilgin için çok teşekkür ederim.
mümkünse fonksiyon çözümünü istiyorum ama bir sakıncası yoksa.
sizleri uğraştırıyorum kusura bakmayın

merhaba
syn muygun'un tek sayfadaki fonksiyon çözümünü başka sayfa için uyarlayabilirsiniz.
bunu yardımcı sütunla yapabiliriz ancak bunu da sanırım siz istemiyorsunuz.

 

[İhsan Tank]

merhaba
syn muygun'un tek sayfadaki fonksiyon çözümünü başka sayfa için uyarlayabilirsiniz.
bunu yardımcı sütunla yapabiliriz ancak bunu da sanırım siz istemiyorsunuz.

hocam bir yerine kadar uyarladım

=EĞER(SATIR()-2>MAK(C:D);"";EĞER(EHATALIYSA(İNDİS([COLOR="Red"]A:D[/COLOR];KAÇINCI(SATIR()-2;C:C;0);1));İNDİS([COLOR="red"]A:D[/COLOR];KAÇINCI(SATIR()-2;D:D;0);2);İNDİS([COLOR="red"]A:D[/COLOR];KAÇINCI(SATIR()-2;C:C;0);1)))

hocam kırmızıya boyadığım yerleri belli satır aralığına göre uyarlıyamadım bir bakabilir misiniz

 

[İhsan Tank]

dosyanın son halini ekliyorum
sayfa2'de birleştirmek istiyorum