Makro ile farklı Kaydetme

[fatcem]

Merhabalar,

aşağıdaki makro ile sayfayı faklı olarak kaydediyorum. Kaydederken oluşturduğu dosyadaki D sütununu ondalıksız sayı olarak kaydetmek istiyorum.

Şuan D sütununda yazazn değerler (2,35233E+12) şeklinde görünmekte ve import ettiğim sistem bu şekilde kabul etmiyor. Manuel olarak yeni dosyayı açıp D sütununu ondalıksız sayı yaptığımda gerçek değerler görünüyor ve sistem kabul ediyor.

Yardımlarınızı Rica ederim.

Şimdiden teşekkürler.


Sub KOD()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Sayfa2").Copy

dosya_adi = "BookinAgora" & Format(Now, "dd_mm_yyyy hh.nn.ss") & ".xls"

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & dosya_adi, FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWindow.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

 

[telmih01]

D sütununun genişliğine manuel olarak genişletip denediniz mi? genelde sütun dar olduğu için oyle yazar.

 

[fatcem]

Evet denedim olmuyor maalesef.

Tşk.

 

[AdemCan]

Merhaba,
ActiveWindow.Close satırının üzerine, Columns("D").NumberFormat = "#,##0" satırını ekleyip deneyiniz.
D sütunun Hücre Biçimini ondalıksız sayı formatına çevirir ama ondalık kısmında yukarı yuvarlama yapar.
Örnek olarak; 13,50 kod sonunda 14 olarak görünür.

 

[fatcem]

Denedim ama olmadı yeni yaratılan dosyada d sutunu yine genel olarak kayılı oluyor.

Merhaba,
ActiveWindow.Close satırının üzerine, Columns("D").NumberFormat = "#,##0" satırını ekleyip deneyiniz.
D sütunun Hücre Biçimini ondalıksız sayı formatına çevirir ama ondalık kısmında yukarı yuvarlama yapar.
Örnek olarak; 13,50 kod sonunda 14 olarak görünür.

 

[AdemCan]

Merhaba,
Paylaştığım kodu denedim ve sayı formatına çeviriyor.
Çalışma dosyanızın Örnek halini paylaşır mısınız, sizin dosyanız üzerinden deneme yapalım.