birleştir komutu

[jeoferkan]

ekte vermiş olduğum örnekteki gibi birleştirmeyi nasıl yapabilirim.birleştirme yapacağım satırlar fazla olduğundan sanırım bir förmüle ihtiyacım var. Bana yardımcı olabilirmisiniz?

 

[Necdet]

Merhaba,

Siz tüm satırları tek bir hücrede mi birleştirmek istiyorsunuz?

Verdiğiniz örneği anlamak olası değil.

 

[jeoferkan]

Vermis oldugum ornekte su sekilde sürüp giden bir dizi var =A1qB1,A2qB2, seklinde ...

 

[YUSUF44]

576 satırın hepsi tek hücrede birleşsin mi istiyorsunuz?

 

[Necdet]

Excel kızmazsa eğer

C2

=A2&B2

C3

=C2&","&A3&B3

C3 Hücresine yazdığınız formülü en son satıra kadar kopyalayın
son satırda sizin istediğiniz birleşme olacaktır.

 

[jeoferkan]

576 satırın hepsi tek hücrede birleşsin mi istiyorsunuz?

evet ama herhucrenin arasına "q" harfini koyarak ve bir sonraki satır arasına "," işareti koyarak devam etmek istiyorum. yani şu şekilde

A1(hücresi)qB1(hücresi),A2qB2,A3qB3,A4qB4,... şeklinde.
Yardımcı olabilirseniz memnun olurum çünkü bu şekilde baya bir çalışma kitabım var uygulamam gereken...
Ben birleştir formülünü kullanmak istedim ama formül belli bir sayıya kadar çalıştı. Belli bir sayıdan sonra hata vermeye başladı

 

[jeoferkan]

Excel kızmazsa eğer

C2

=A2&B2

C3

=C2&","&A3&B3

C3 Hücresine yazdığınız formülü en son satıra kadar kopyalayın
son satırda sizin istediğiniz birleşme olacaktır.

ilginç bir yaklaşım daha önce neden düşünemedim diye düşünüyorken şunu farkettim 124.cü satırdan sonra deger almıyor... yani 124.cü satırdan sonra işe yaramıyor neden acaba?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Birlestir()
    Range("D2") = ""
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If Range("D2") = "" Then
            Range("D2") = Cells(X, 1) & "q" & Cells(X, 2)
        Else
            Range("D2") = Range("D2") & "," & Cells(X, 1) & "q" & Cells(X, 2)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[jeoferkan]

Aşağıdaki kodu deneyiniz.

Sub Birlestir()
    Range("D2") = ""
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If Range("D2") = "" Then
            Range("D2") = Cells(X, 1) & "q" & Cells(X, 2)
        Else
            Range("D2") = Range("D2") & "," & Cells(X, 1) & "q" & Cells(X, 2)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Aynı şekilde 123.cü satıra kadar aldı halbuki ben 575 tane satırı tek hücreye yazmak istiyordum...

 

[jeoferkan]

Aynı şekilde 123.cü satıra kadar aldı halbuki ben 575 tane satırı tek hücreye yazmak istiyordum...

Pardon tüm satırları alıyormuş lakin ben farkedememişim. hücre içeriğine bakınca anladım...
Yardımlarınız için Teşekkür ederim...