aynı hücredeki 2. satırı ayırma

[hayalmeyal]

merhaba iyi çalışmalar.
A1 Hücresindeki metin, aynı hücrede 2 veya3-4 satır halinde gözükmektedir.
aynı hücrede birdeb fazla satır şeklinde gözüken bu metindeki, diğer satırların yan sütundaki hücrelere aktarılıp, formulun geçerli olduğu ilk hücrede tek bir satır kalması mümkünmüdür.

Çektiğimiz veride veriler alt+enter olarak geliyor. ve ürün isimlerinin uzunluk ve karakter olarak bir standartı olmadığından ayırma yapamıyorum.

ayrıca hücreler 2,3,4 satır şeklinde olabiliyor.
hücrede 4 satır varsa yan hücrelere 3 satırı atması ve ilk hücredeki bu çekilen verinin satırdan silinmesi gerekiyorki, yoksa hücre içine tek tek girip diğer satırları silmem gerekiyor. Bunları sileceksem tek tekde yazabilirim. fakat binlerce satır olduğundan çok uzun bir zaman gerekiyor.

edit:düzenleme

 

[çıtır]

B1 Hücresine kopyala, çek

=parçaal(a1;mbul(damga(10);a1);uzunluk(a1))

 

[YUSUF44]

2. satırda görünmesinin sebebi nedir? Metni kaydır özelliği açık olduğu için mi yoksa ikinci satır öncesinde Alt+Enter yapılarak alt satıra geçirildiği için mi?

 

[hayalmeyal]

2. satırda görünmesinin sebebi nedir? Metni kaydır özelliği açık olduğu için mi yoksa ikinci satır öncesinde Alt+Enter yapılarak alt satıra geçirildiği için mi?

yusuf bey konuyu güncelledim. evet alt+enter olarak aktarılmıştır.
üstte "çıtır" nickli arkadaşın verdiği formul çalışıyor, fakat veri öncekinin içinde kaldığı için tek tek yine müdahale etmek gerekiyor.
sanırım makro ile olması lazım

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub satır()
For i = 1 To Cells(Rows.Count, "A").End(3).Row
    Cells(i, "B").FormulaR1C1 = "=MID(RC[-1],SEARCH(CHAR(10),RC[-1]),LEN(RC[-1]))"
    Cells(i, "B") = Cells(i, "B").Value
    veri = Cells(i, "A").Value
    Cells(i, "A") = WorksheetFunction.Substitute(veri, Cells(i, "B"), "")
Next

End Sub

 

[hayalmeyal]

yusuf bey elinize emeğinize sağlık
şöyle bir durum oluyor. 1. sütundaki son satırları yan sütuna atıyor bu çalışıyor.

fakat b1e veri aktarıldığında hücre değeri şu şekilde aktarılıyor.
boşluk
metin
metin

burada kodu değiştirip b1 e uyguladığım zaman b1 hücresi tamamen silinip b1deki veri olduğu gibi c1 e taşınıyor. yani a1de çalışan formul, oluşan "enter" boşluğundan dolayı diğer sütunlarda çalışmıyor.

burada kırp dediğim zaman üsteki boşlukla beraber alt satıra atma sebebi olan alt+enterde silindiği için hücre birleşiyor.

 

[YUSUF44]

Sorunu(nu)zu anlamadım maalesef. Deneme yaptığımda benim dosyada A sütunundaki verilerin ilk satırını A sütununa, ikinci satırını da B sütununa aktarıyor.

 

[hayalmeyal]

yusuf bey, formulu ilk sütun için çalıştırdığımda problem yok.

a1=
metin
metin
metin şeklinde, kod bunu b1 e
(boşluk
metin
metin) olarak aktarıyor.
yani 3-4 satırlı hücrelerde en üstte boşluk kaldığından dolayı, kodu sonraki sütunlarda kullanamıyorum

a1
metin
metin
metin

b1
metin
metin olmalı yani 2 satır kalması gerekirken
boşluk
metin
metin olarak yine 3 satır olarak atıyor.

 

[YUSUF44]

İyi de sizin sorunuzda metnin 3 satırdan oluştuğuna dair bir ifade yoktu ilk halinde. Sonradan 3-4 satır olabileceğini de belirtmişsiniz. Ben sorunuzun ilk haline göre cevapladım. Eğer ilk başta öyle sorsaydınız ona göre çözüm bulmaya çalışırdım.

Ayrıca sonradan sorunuzu düzenleyip farklı bir şekle sokmanız da etik olarak hiç hoş olmamış.

 

[hayalmeyal]

Yusuf bey sorumda 3-4 satır olduğunu belirtmiştim aslında. ilginize teşekkürler
yusuf bey etiklikle ilgili bir durum değil. sizin bu şekilde görüp yalan yanlış yargılamanız etik değil aslında.
konunun açılma tarihi belli, düzenleme tarihi belli.

soru sorulduktan veya herhangi bir cevap alındıktan hemen sonra oluşacak diğer sıkıntı fark edilip sorular güncellenebilir ve bu durum belirtilebilir.