Aynı hücredeki metinleri ayrı satırlara yazdırma (metini sütünlara dönüştürme ile yapamadım

Katılım
22 Kasım 2019
Mesajlar
13
Excel Vers. ve Dili
2013
Merhaba Arkadaşlar
Gruba yeni katıldım. Otomotivde yedek parça sektöründe çalışıyorum.
Bazı ürünlerin OEM diye tabir ettiğimiz numaraları oluyor. Aynı ürünü tanımlayan 3,4 bazen 5 farklı numara olabiliyor.
Bunlar aynı sütünda yazılıyor bunların her birini ayrı sütünlara almak istiyorum.
Kolay bir yolu varmıdır?
Şimdiden teşekkürler.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,
Aramıza hoş geldiniz.
Örnek bir çalışma ekleyip yapmak istediğinizi detaylı açıklar mısınız.

https://dosya.co


.
 
Katılım
22 Kasım 2019
Mesajlar
13
Excel Vers. ve Dili
2013
Merhaba,
Aramıza hoş geldiniz.
Örnek bir çalışma ekleyip yapmak istediğinizi detaylı açıklar mısınız.

https://dosya.co


.
Teşekkür ederim Hoş bulduk
Örnek dosyayı yükledim
https://dosya.co/hyuktunfs3bu/örnek_1.xlsx.html
Ekli dosyada OEM no yazan sütünda bazen 1 hücre içine 3-4 farklı numara yazılmış. Bunları ayrı sütünlara aktarmak istiyorum
Tek numara tek sütünda gözükecek şekilde.
Mesela; B6 hücresinde 4 farklı numara vara aralarında boşluk var sanırım. En üstteki 2ci no C6ya 3.no altındaki D6ya 4.cü no E6ya
o şekilde taşımanın kısa bir yolu varmıdır?
Şimideden teşekkür ederim.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Metni sütunlara dönüştür menüsünde ayraç yerinde Alt+010 şeklinde dener misiniz?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
B sütununu seçin
Veri menüsünden Metni Sütunlara Dönüştür'ü seçin
İlk ekranda Sınırlandırılmış'ı seçip ileri deyin
İkinci ekranda Diğer'i işaretleyip yanındaki boşlukta Alt tuşu basılıyken 010 yazın ve ileri deyin
Son tuşuna basarak işlemi tamamlayın
 
Katılım
22 Kasım 2019
Mesajlar
13
Excel Vers. ve Dili
2013
B sütununu seçin
Veri menüsünden Metni Sütunlara Dönüştür'ü seçin
İlk ekranda Sınırlandırılmış'ı seçip ileri deyin
İkinci ekranda Diğer'i işaretleyip yanındaki boşlukta Alt tuşu basılıyken 010 yazın ve ileri deyin
Son tuşuna basarak işlemi tamamlayın
Teşekkür ederim. Söylediğinizi bu sefer uygulayabildim.
İşlemi uyguladığımda ilk sütünda tek numara kalıyor. Diğer numaralar yok oluyor.
Ya birşeyi yanlış yapıyorum ya da istenilen çözümü vermiyor.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

İşlem hatası yapıyor olabilirsiniz.

Makro olarak dener misiniz.

Alt F11 ile VBA ekranına geçin, Insert menüsünden Module ekleyin.

Eklenen Module1 içine girerek aşağıdaki kodları bu bölümü yapıştırın ve aynı ekrandayken kodları F5 ile çalıştırıp sonucu gözlemleyin.
Kod:
Sub cevir()
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
     
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
 
End Sub
 
Katılım
22 Kasım 2019
Mesajlar
13
Excel Vers. ve Dili
2013
Merhaba,

İşlem hatası yapıyor olabilirsiniz.

Makro olarak dener misiniz.

Alt F11 ile VBA ekranına geçin, Insert menüsünden Module ekleyin.

Eklenen Module1 içine girerek aşağıdaki kodları bu bölümü yapıştırın ve aynı ekrandayken kodları F5 ile çalıştırıp sonucu gözlemleyin.
Kod:
Sub cevir()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
    
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit

End Sub
çok teşekkürler bu sefer işe yaradı
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
çok teşekür ederim emeğinize sağlık.
2 çözümü de denedim makro ve formüllü olarak
Rica ederim.Dönüş yaptığınız için teşekkür ederim. not: B sütununu gizleyebilirsiniz.
 
Üst