Alt Alta Olan Her 2 Satırı Yan Yana Yazma

[yusufkus]

Arkadaşlar merhabalar, elimde yaklaşık 14bin satırlık Excel dosyası var. Bu dosyanın içeriği şu şekilde;
A1 Satırı = Ahmet
A2 Satırı = Ahmet'in Mesajı
A3 Satırı = Ayşe
A4 Satırı = Ayşe'nin Mesajı
Dosyam bu şekilde ilerliyor. Ben A1'in yanına yani B1'e A2 satırını yazdırmak istiyorum yani Ahmet A1'de Ahmet'e ait A2'deki mesajda B1'de yer alacak. Bunu nasıl yapabilirim?

 

[Korhan Ayhan]

Merhaba,

Eğer Türkçe sürüm kullanıyorsanız formülü çevirmeniz gerekir.

B1 hücresine uygulayıp alta doğru ihtiyacınız kadar sürükleyiniz.

=OFFSET(A$1;ROW()*2-1;)

 

[dEdE]

Merhaba,
On dört bin satır için alternatif makrolu çözüm.
Dosya yapınızı tam olarak bilmediğim için ilk mesajınızdaki anlatıma göre sadece A sütununda veri olduğunu varsaydım. Önce dosyanızın kopyası üzerinde deneyiniz.

Sub Test()
ss = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
For i = ss To 1 Step -2
    Cells(i, "A").Copy Cells(i - 1, "B")
    Range("A" & i & ":B" & i).Delete Shift:=xlUp
End Sub

 

[yusufkus]

Merhaba,
On dört bin satır için alternatif makrolu çözüm.
Dosya yapınızı tam olarak bilmediğim için ilk mesajınızdaki anlatıma göre sadece A sütununda veri olduğunu varsaydım. Önce dosyanızın kopyası üzerinde deneyiniz.

Sub Test()
ss = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
For i = ss To 1 Step -2
    Cells(i, "A").Copy Cells(i - 1, "B")
    Range("A" & i & ":B" & i).Delete Shift:=xlUp
End Sub

Hocam kodu çalıştıramadım

 

[yusufkus]

Merhaba,

Eğer Türkçe sürüm kullanıyorsanız formülü çevirmeniz gerekir.

B1 hücresine uygulayıp alta doğru ihtiyacınız kadar sürükleyiniz.

=OFFSET(A$1;ROW()*2-1;)

Hocam bu kod işime yaradı fakat mesela B1'e taşınan veri A2'de kalıyor. A2 - A4 - A6'daki verileri sildiğim zaman bu sefer B1 - B2 - B3'teki verilerde siliniyor. B1 - B2 - B3'e taşıdığım verileri A sütunundan da silme imkanım var mı?

 

[dEdE]

Merhaba
Kodu bir modüle yapıştırıp deneyiniz.
Sayfa adınız farklı ise kodu ona göre değiştirmelisiniz.
Örnek dosya eklerseniz daha net cevap alırsınız

 

[Korhan Ayhan]

Önerdiğim formülü uyguladıktan sonra B sütununu seçip kopyala özel yapıştır değerleri diyerek formüllerden kurtulabilirsiniz. Sonrasında A sütununda dilediğiniz değerleri silebilirsiniz.