Printable View
Uzun bir zaman ofis 2003 kullandım. Artık taramalar kasmaya başlayınca sürümü yükselttim. Ancak ofisin hangi sürümünü kullandığımı tam olarak bilemiyorum. Tahminim 2007 olması. Makro kaydet ve kaydı durdur seçeneklerini bulamıyorum.
https://i.hizliresim.com/EmjX9n.jpg
Yardımcı olabilir misiniz?
2007 den sonra buraya alındığını hatırlıyorum, aşağıdaki görüntüyü 2016 sürümünden aldım...
Türkçe sürümde de "görünüm" altındadır...
http://pichost.org/images/2019/04/12/Snap24.jpg
Teşekkür ederim Sayın Erasure. Şimdi de güvenlik ayarları nedeniyle makronun engellendiğini söylüyor bu makina. Güvenlik ayarları menüsünü de bulamadım? :Sad:Alıntı:
Originally Posted by Erasure
Bir excel kitabını açın-sol üste ---Dosya/seçenekler/güven merkezi/güven merkezi ayarları/macro ayarları
Kolay gelsin.
biraz saklı yerde ama Türkçe sürümde de benzer adımlarla bulabilirsin.
Ancak bunu kullanırken, kendi yarattığın macro'larda sorun olmaz ama dışarıdan başka yerlerden
excel dosyaları alıyorsan, biraz virüs, garip kodlarla vs karşılabilirsin.
http://pichost.org/images/2019/04/12/Snap23.jpg
Teşekkür ederim Sayın POLARIS. Problem çözülmüştür.Alıntı:
Originally Posted by POLARIS
Tekrar teşekkür ederim Sayın Erasure. Türkçe menü ile buldum, makroyu kendim kodluyorum, risksiz yani. Tekrar teşekkür ediyorum.Alıntı:
Originally Posted by Erasure
rica ederim, kolay gelsin...Alıntı:
Originally Posted by BJK Coccinella
merhaba,
1 excell dosyası yaptım, bunu eğer kendim manuel farklı kaydet CSV olarak kaydet dediğimde istediğim oluyor
kayıt yaparken değerlerin arasına ";" koyarak kaydediyor ve yine excell de aç dediğimde sanki excelmiş gibi sutunlara yerleşmiş şekilde açılıyor.
ama sorunum şu,
makro ile kaydetmek istiyorum o zaman değerlerin arasına "," koyarak kayıt yapıyor istediğim şekilde açamıyor ve okutamıyorum.
notepat.exe görüntüsü ile
istediğim sonuç
AKBNK;0;0;H;E;70;10;E;8;1;3;E
ARCLK;0;0;H;E;60;15;E;2;1;2;E
ASELS;0;0;H;E;60;10;E;3;1;2;E
BIMAS;0;0;H;E;60;10;E;1;1;2;E
EKGYO;0;0;H;E;60;10;E;24;2;2;E
EREGL;0;0;H;E;60;10;E;3;1;2;E
FROTO;0;0;H;E;60;10;E;1;1;2;E
makro ile yaparsam elde ettiğim sonuç
AKBNK,0,0,H,E,70,10,E,8,1,3,E
ARCLK,0,0,H,E,60,15,E,2,1,2,E
ASELS,0,0,H,E,60,10,E,3,1,2,E
BIMAS,0,0,H,E,60,10,E,1,1,2,E
EKGYO,0,0,H,E,60,10,E,24,2,2,E
EREGL,0,0,H,E,60,10,E,3,1,2,E
FROTO,0,0,H,E,60,10,E,1,1,2,E
makro aşağıda
Kod:Sub KAYDET()
'
' KAYDET Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+B
'
ActiveWorkbook.Save
Range("A1:L60").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\Listeler\Vdl_Spot_O.Csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
makro ile kaydederken ";" olarak yaptırmanın bir yolu var mıdır?
FileFormat:=xlCSVMSDOS, olarak denedim onda da sonuç bozuk.
windows bölgesel ayarlardan ayraç ";" olmalı demişler baktım orası doğru (hatta tersini yapıyor diye "," olarakta denedim) olmuyor.
Sn bear bullAlıntı:
Originally Posted by Bear_Bull
Biraz karmaşık bir konu.
2 farklı yol denedim.
ikiside istediğiniz gibi çalışıyor.
Kod:Sub KAYDET()
'
' KAYDET Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+B
'
ActiveWorkbook.Save
Range("A1:L60").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("a1") = Application.WorksheetFunction.Text****(";", True, Range("A1:L1"))
Range("b1:m1").ClearContents
ActiveWorkbook.SaveAs FileName:="C:\Users\ilkera\Desktop\Vdl_Spot_O.Csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
Kod:Option Explicit
Sub SaveAsDelimitedFile(Rng As Range, _
FileName As String, _
Optional ColDelimiter As String = ";", _
Optional RowDelimiter As String = vbCrLf)
Dim hFile As Long
Dim vData As Variant
Dim nRow As Long, nCol As Long
On Error GoTo SaveAs_Err
hFile = FreeFile()
Open FileName For Output As #hFile
vData = Rng.Value2
For nRow = 1 To UBound(vData, 1)
For nCol = 1 To UBound(vData, 2) - 1
Print #hFile, vData(nRow, nCol); ColDelimiter;
Next
Print #hFile, vData(nRow, nCol); RowDelimiter;
Next
Close #hFile
SaveAs_Exit:
Exit Sub
SaveAs_Err:
MsgBox Err.Description, vbCritical
Resume SaveAs_Exit
End Sub
Sub TestSaveAs()
SaveAsDelimitedFile Range("A1:L60"), "myfile.csv"
End Sub
Sn Kandırıldım çok teşekkürler
1. makroyu çalıştıramadım
Range("a1") = Application.WorksheetFunction.Text****(";", True, Range("A1:L1")
bu satırdaki **** lardan kaynaklı muhtemelen.
2. makroyu kullandım ve çok işime yaradı tekrar teşekkür ederim.
emeğinize sağlık,
Eskişehir'e yolunuz düşerse Çibörek+Ayran ısmarlamak borcum olsun.
Sn bear bull memnuniyet duyarım.Alıntı:
Originally Posted by Bear_Bull
Edirne de de benim misafirim olun lütfen.
1. kısımdaki *** ları yapıştırırken fark etmedim. Kusura bakmayın.
Gönderiyi Editlemek durumunda kalıyorum. Tekrar ** gösteriyor.
o alan "t e x t j o i n" olacak.
excell ile ilgili bir takım sorunlar bende de var.