DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub birleştir_GA()
For i = 1 To 2: sonuc = ""
For x = 1 To 6
sonuc = sonuc & Chr(10) & Cells(i, x).Value
Next x
Cells(i, 1) = sonuc
Next i
Range("b1:f2").ClearContents
End Sub
Kodu denediniz olmadı mı?Teşekkürler.. Yalnız Beni yanlış anladınız. Görselde ki gibi olsun istiyorum.. Bir satırda ki Bütün verileri tek bir sütün içinde alt alta almak istiyorum.