Bir Kelimeden Sonra Çoklu alt+enter yapma

[ErdemBakir24]

Merhaba,

Kelimemiz "Window Switch"

Bu Kelime genelde tek bir hücrede ve şu örneklerde yazmakta,

Window Switch LH, Black
Window Switch, RH, Centre
Window Switch Single Output, RH
Window Switch, Double Output, Frame LH
Window Switch LH, 02-
Window Switch 01-07 gibi ....

Benim isteğim Window Switch'den sonraki kelimeleri alt+enter yapmak.

Ör.:
Window Switch
LH, Black

Window Switch
RH, Centre

Window Switch
Single Output, RH, 02-, Frame

Teşekkür Ederim.

 

[tahsinanarat]

dosyanız ekte

Verilerinizin A sütununda olduğu varsayılarak hazırlanmıştır.

Alt enter yapıldıktan sonra satır yüksekliğinin otomatik ayarlanması için
Buçalışmakitabı bölümüne

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
x = Target.Row
y = Target.Column
ActiveSheet.Rows(x).AutoFit
ActiveSheet.Columns(y).AutoFit
End Sub

Modüle de aşağıdaki kodları yazıp

Sub Altenter()
Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "Switch, ", "Switc#"
pDict.Add "Switch ", "Switch#"
'pDict.Add "Switch; ", "Switch#" 'değişik Switch den sonra karakterleri bu şekilde çoğaltılabilir
For Each p In pDict
    Columns("A:A").Replace What:=p, Replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Next
Replace_With_LineFeed
End Sub

Sub Replace_With_LineFeed()
 Dim rng As Range
 Set rng = Range("A1:" & Range("A65536") _
 .End(xlUp).Address)
 For Each cell In rng
 cell.Select
 ActiveCell.Replace What:="#", Replacement:=Chr(10), _
 LookAt:=xlPart, SearchOrder:=xlByRows, _
 MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 Next
 End Sub

Bir butona bağlayanız.
verdiğiniz örnekten fazla
pDict.Add "Switch, ", "Switc#"
pDict.Add "Switch ", "Switch#"
'pDict.Add "Switch; ", "Switch#" 'değişik Switch den sonra karakterleri bu şekilde çoğaltılabilirsiniz.

hazırladığım örnek dosyanız ekte, inceleyeniz.

http://s3.dosya.tc/server10/f6wh7e/altenter.rar.html

 

[ErdemBakir24]

Tahsin Bey,

İşe yaradı.

Yardımcı olduğunuz için teşekkür ederim.