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
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
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