Sayın üstadlarım, öncelikle 2016 yılının sizlere ve tüm İslam Alemine hayırlar getirmesini temenni ederim.
Excelde yaptığım işlemleri daha önce word'e aktarmak için sizlerin yardımı ile hazırlanan kodları kullanıyordum. Şimdi sizden istediğim, bu kodları word sayfası için değil de open office de .udf uzantılı bir dosya için kullanmak istiyorum, bu hususta yardımlarınızı bekliyorum. Saygılarımla
Excelde yaptığım işlemleri daha önce word'e aktarmak için sizlerin yardımı ile hazırlanan kodları kullanıyordum. Şimdi sizden istediğim, bu kodları word sayfası için değil de open office de .udf uzantılı bir dosya için kullanmak istiyorum, bu hususta yardımlarınızı bekliyorum. Saygılarımla
Kod:
Sub worde()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("a1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub