• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Hücre İçi İkinci ve Üçüncü Satırı Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Rahle

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
137
En iyi yanıt
0
Puanları
18
Yaş
51
Konum
İstanbul
Ad Soyad
Huzeyfe Yaman
Office Vers.
Office 2010
Selamlar,

Ekteki hücre içerisinden ikinci ve üçüncü satırları başka bir sayfaya veya yan hücreye almak istiyorum.

Kolon başlıkları şöyle olacaktır: ÜRÜN KODU, İNGİLİZCE, RUSÇA

En kolay nasıl yapabilirim?
 

Ekli dosyalar

  • Kitap1.xlsx
    8.7 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz.. Her bir satır sütunlara ayırır..
PHP:
Sub Emre()
    Dim i&
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, 2).Resize(, 3).Value = Split(Cells(i, 1).Value, Chr(10))
    Next i
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    i = Empty
End Sub
 

Rahle

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
137
En iyi yanıt
0
Puanları
18
Yaş
51
Konum
İstanbul
Ad Soyad
Huzeyfe Yaman
Office Vers.
Office 2010
Hızlı geri dönüşünüz ve değerli yardımınız için teşekkür ederim.

Gayet güzel oldu.

En soldaki ürün kodlarını nasıl ayırabilirim?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Sayfa2 adında bir sayfa oluşturun ve bu kodları deneyin..
PHP:
Sub Emre()
    Dim i&, baslik
    baslik = Array("ÜRÜN KODU", "TÜRKÇE", "İNGİLİZCE", "RUSÇA")
    Sheets("Sayfa2").Range("A1").Resize(, 4).Value = baslik
    With Sheets("Sayfa1")
        For i = 1 To .Cells(Rows.Count, "A").End(3).Row
            Sheets("Sayfa2").Cells(i + 1, 1).Value = Split(.Cells(i, 1).Value, " ")(0)
            Sheets("Sayfa2").Cells(i + 1, 2).Resize(, 3).Value = Split(.Cells(i, 1).Value, Chr(10))
        Next i
    End With
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    i = Empty: Erase baslik
End Sub
 

Rahle

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
137
En iyi yanıt
0
Puanları
18
Yaş
51
Konum
İstanbul
Ad Soyad
Huzeyfe Yaman
Office Vers.
Office 2010
Selamlar,

Çok çok teşekkür ederim. Vâr olun.

TÜRKÇE, İNGİLİZCE, RUSÇA kolonlarında ürün kodu gelmesin. Sadece ürün açıklaması olsun.

Son kez buna da bakabilir misiniz?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodu denersiniz..
PHP:
Sub Emre()
    Dim i&, baslik
    baslik = Array("ÜRÜN KODU", "TÜRKÇE", "İNGİLİZCE", "RUSÇA")
    Sheets("Sayfa2").Range("A1").Resize(, 4).Value = baslik
    With Sheets("Sayfa1")
        For i = 1 To .Cells(Rows.Count, "A").End(3).Row
            Sheets("Sayfa2").Cells(i + 1, 1).Value = Split(.Cells(i, 1).Value, " ")(0)
            Sheets("Sayfa2").Cells(i + 1, 2).Resize(, 3).Value = Split(.Cells(i, 1).Value, Chr(10))
        Next i
    End With
    son = Sheets("Sayfa2").Range("A65536").End(3).Row
    For i = 2 To son
        Sheets("Sayfa2").Range("B2:D" & son).Replace What:=Sheets("Sayfa2").Cells(i, 1).Value & " ", _
        Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next i
    Sheets("Sayfa2").Columns.AutoFit
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    i = Empty: Erase baslik
End Sub
 

Rahle

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
137
En iyi yanıt
0
Puanları
18
Yaş
51
Konum
İstanbul
Ad Soyad
Huzeyfe Yaman
Office Vers.
Office 2010
Mükemmel oldu.

Hakkınızı helal ediniz. Değerli vaktinizi aldım.

Şimdiden yeni yılınızı tebrik ederim. 2019 Yılı sizin ve aileniz için sağlık ve huzur içerisinde geçsin. Amin.

Kolay gelsin.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Rica ederim, ben de sizin yeni yılınızı tebrik ederim. :)

Hayırlı akşamlar. (y)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt