sağ sütundaki yazıyı sol sutunun altına almak

[Tuncerk]

Arkadaşlar fotoğraflarda görültüğü gibi sağ satırda bulunan yazıyı sol satırın altına nasıl alabilirim bu şekilde bin satırım var en hızlı nasıl yapabilirim bunu 1 ci fotoğraftaki yazılar 2 cideki gibi olması gerekiyor bu konuda yardımcı olursanız memnun olurum

 

[Saban Sertkaya]

Merhabalar, aşağıdaki şeklide bir deneyiniz.

sub deneme()
For a = 1 to [A1048576].end(xlup).row
if cells(a,1) <> "" then
cells(a+1,1) = cells(a,2)
cells(a,2).clearcontents
end if
next a
end sub

 

[Saban Sertkaya]

Eğer a sütunundaki veriler sürekli 3 boşluk halinde aşağı doğru gidiyorsa, döngiüyü şu şekilde de kurabilirsiniz.

For a=1 to [A1048576].end(xlup).row step 3

 

[Tuncerk]

Eğer a sütunundaki veriler sürekli 3 boşluk halinde aşağı doğru gidiyorsa, döngiüyü şu şekilde de kurabilirsiniz.

For a=1 to [A1048576].end(xlup).row step 3

Yorumunuz için teşekkür ederim ben bayağı bir yeniyim verdiğiniz kodları nasıl gireceğimi bilmiyorum

 

[ÖmerFaruk]

Boş bir yere, mesela C sütununa
C1 hücresine =A1
C2 hücresine =B1
C3 hücresine =C3
formüllerini yazın ve C1:C2:C3 mouse ile seçili için alt sa ğ köşeden tutup listenizin sonuna kadar çoğaltabilirsiniz.
İşlem birince C sütununu seç, kopyala, özel yapıştır, değerleri diyerek a sütununa yapıştırabilirisin.

 

[Saban Sertkaya]

Merhabalar,

Ek'li dosyayı indirip, sayfadaki butona basınız.

İndir alt alta getir

Dosyayı indir alt alta getir

dosya.co

 

[Tuncerk]

Merhabalar,

Ek'li dosyayı indirip, sayfadaki butona basınız.

İndir alt alta getir

Dosyayı indir alt alta getir

dosya.co

Teşekkür ederim