yan yana sutunları tek bir sutunda toplamak

[desar21]

Merhaba arkadaslar.

Elimde yan yana dizili olan sutunlar var. Bunları tek bir sutunda toplamak istiyorum. Soyle ornekleyeyim

1 1 1
1 1 1
1 1 1

bunu

1
1
1
1
1
1
1
1
1

bu sekile donusturebilirmiyiz.

simdiden yardımlarınızdan dolayı teşekkurler

 

[dEdE]

Merhaba,
Forumumuza hoş geldiniz.
Örnek dosya eklerseniz daha çabuk yanıt alırdınız. Yukarıdaki örneğiniz sorunu açıklamaktan uzak.
Bu örneğe bakarak rahatlıkla şu söylenebilir. Sondaki iki sütunu silin, istediğiniz olur (mu?)

 

[rustuuslu]

birleştir fonksiyonunu kullanabilirsin

 

[Necdet]

Merhaba,

Anladığım şekliyle birşeyler yapmaya çalıştım. İnşallah doğru anlamışımdır.

Sub TekSutun()
Dim i, j As Integer
Dim SonSat As Long
Application.ScreenUpdating = False
j = [IV1].End(1).Column
For i = 2 To j
    SonSat = Cells(65536, i).End(3).Row
    Range(Cells(2, i), Cells(SonSat, i)).Copy Range("A" & [A65536].End(3).Row + 1)
Next i
For i = 2 To j
Columns(i).ClearContents
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[desar21]

Cevaplarınız için teşşkkurler arkadaslar ama istedigimi tam anlatamadım bir ornek yolluyorum. Acıklamayıda excele yazdım.

 

[Necdet]

Merhaba,

Aynı işi yapmışım, ilk sorunuzda olduğu gibi, şimdi N sütununda istiyorsunuz. Olsun uğraşırız biz, işimiz ne ki?

Sub TekSutun()
Dim i, j As Integer
Dim SonSat As Long
Application.ScreenUpdating = False
Range("N2:N65536").ClearContents
j = 9
For i = 1 To j
    SonSat = Cells(65536, i).End(3).Row
    Range(Cells(2, i), Cells(SonSat, i)).Copy Range("N" & [N65536].End(3).Row + 1)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[desar21]

Tesekkurler nejdet yaptıgın makro istedigim gibi fakat mumkunse bi istegim daha olacak yaptıgın makroda ancak 3 tane sutunda fazlasını yapamıyorum. biraz kurcaladım ancak beceremedim onu 100 gibi buyuk bir sayı yapabilirmiyiz

 

[desar21]

gormedim yapmıssın bile saol necdet kardes cok tesskkurler