Macro Ile Metni Sutunlara Donustur

Sub splitText()

Dim splitVals As Variant

Dim totalVals As Long

splitVals = Split(ActiveCell.Value, Chr(10))

totalVals = UBound(splitVals)

Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1 + totalVals)).Value = splitVals

End Sub

Bu calisma metni sutunlara donusturden sinirlandirilmis sectikten sonra diger secenegini secerek alt tusuna basip 0010 tuslarsanizda yapabileceginiz bir ornektir..

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 6 =