Sütunları birleştirme

[cerselog]

Merhaba, ekteki dosyada Kaydır formülünü kullanarak B ve C sutunlarını D sütununda birleştirdim,
bulunan rakamların ne olduğunu yan hücrelere nasıl yazdırabilirim. Teşekkürler.

 

[Ziynettin]

Merhaba,

Makrolu çözüm.

Sub deneme()
a = Range("A1:C" & Cells(Rows.Count, 1).End(3).Row)
ReDim b(1 To UBound(a) * 2, 1 To 3)
For i = 2 To UBound(a)
    For j = 2 To UBound(a, 2)
        say = say + 1
        b(say, 1) = a(i, j)
        b(say, 2) = a(i, 1)
        b(say, 3) = a(1, j)
    Next j
Next i
[D2].Resize(say, 3) = b
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[Korhan Ayhan]

Alternatif;

Ekteki örnek dosyayı inceleyiniz.

 

[cerselog]

Çok teşekkürler, ilgi ve emeğinize sağlık

 

[cerselog]

Şöyle bir sıkıntıyla karşılaştım dosyada, m2 yada tutar rakamları aynı olduğunda ilk ismi getiriyor. Örnek Ahmet ve Salim için m2 ler aynıdır E sutununda salim yerine Ahmet çıkartıyor

 

[cerselog]

Korhan bey yardımınıza çok ihtiyacım var..

 

[Korhan Ayhan]

E2 hücresindeki formülü aşağıdaki gibi değiştirip deneyiniz.

DİZİ formüldür.

=İNDİS($A$2:$A$13;KÜÇÜK(EĞER($B$2:$C$13=D2;SATIR($B$2:$C$13)-1);EĞERSAY($D$2:$D2;$D2)))

 

[cerselog]

Koray bey çok teşekkür ederim ilginize.. Aynı işlemi F Sütununda yapmak istedim #BAŞV hatası alıyorum. Nerede hata yaptım acaba bakabilirmisiniz. ekte

 

[Korhan Ayhan]

Deneyiniz.

Dizi formüllerdir.

E2;

=İNDİS($A$2:$A$13;KÜÇÜK(EĞER($B$2:$C$13=D2;SATIR($B$2:$C$13)-1);EĞERSAY($D$2:$D2;$D2)))

F2;

=İNDİS($B$1:$C$1;KÜÇÜK(EĞER($A$2:$A$13=E2;EĞER($B$2:$C$13=D2;SÜTUN($B$2:$C$13)));ÇOKEĞERSAY(D$2:D2;D2;E$2:E2;E2))-1)

 

[cerselog]

Süper oldu. Çok teşekkür ederim.