• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

  • Merhaba,
    Forumumuz yeni bir sunucuya taşındı.

    Bazı kullanıcı bilgilerinin taşınmasında hatalar olmuş.
    Foruma giriş yapamıyorsanız lütfen bir süre bekleyin. Eksik verileri tamamlamak için çalışıyoruz.
    Hata düzelince tekrar bilgi paylaşacağız.

    Eksik kullanıcı verileri geri yüklendi.
    Sorun yaşamaya devam eden varsa lütfen admin@excel.web.tr ye bilgi verin.

Sorgu için arama sonuçları: xlCSV

  1. Z

    Sayfalara böl makrosunda sayfalara sütun başlığı

    Çok teşekkür ederim. Korhan Hocama teşekkür ederken vakit kaybetmişim, cevabınızı yeni gördüm. Her iki kodu ayrı ayrı denedim, gayet güzel çalışıyor, sağolun.
  2. Z

    Sayfalara böl makrosunda sayfalara sütun başlığı

    Yine KORHAN Hocam. Çok teşekkür ederim.
  3. M

    Sayfalara böl makrosunda sayfalara sütun başlığı

    ...filePath = folderPath & "ÖIŞIK-2025" & "_" & Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, FileFormat:=xlCSV, CreateBackup:=False, Local:=True newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...
  4. Korhan Ayhan

    Sayfalara böl makrosunda sayfalara sütun başlığı

    ..."00") & ".csv" ' CSV olarak kaydet newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=True newWb.Close SaveChanges:=False Next startRow...
  5. Z

    Sayfalara böl makrosunda sayfalara sütun başlığı

    ...& "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts...
  6. Z

    Eski bir makroyu uyarlama

    . Teşekkür ederim.
  7. M

    Eski bir makroyu uyarlama

    ...Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...
  8. Z

    Eski bir makroyu uyarlama

    ...Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...
  9. Z

    csv Dosyası olarak kaydet

    Evet, sonuç dört dörtlük tamam. Yardımcı oldunuz, çok teşekkür ederim.
  10. N

    csv Dosyası olarak kaydet

    Merhaba, Kullandığınız kodun farklı kaydet satırına "local:=True" eklemeniz yeterli olacak. Şu şekilde deneyin. newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True
  11. Z

    csv Dosyası olarak kaydet

    ...ALTTAKİNİ DENEYECEĞİZ ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M", -1, Date), "yyyy_mm") & "_" & Say & " .csv"...
  12. Z

    csv Dosyası olarak kaydet

    Maalesef yine text dosyası gibi kaydetti. Tek sütunlu kayıt yaptı. İlginize teşekkür ederim. Önerilerinizi bekliyorum. Kesinlikle acil değil.
  13. A

    csv Dosyası olarak kaydet

    ...& "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow Application.UseSystemSeparators = True...
  14. Z

    csv Dosyası olarak kaydet

    ...& "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...
  15. M

    Kitabı 350 şer satır olarak böl ve csv formatında kaydet

    ...' CSV olarak kaydet yeniWB.SaveAs Filename:=klasorYolu & "Kitap_" & bolumNo & ".csv", FileFormat:=xlCSV yeniWB.Close SaveChanges:=False bolumNo = bolumNo + 1 Next baslangicSatir Application.ScreenUpdating = True MsgBox "İşlem tamamlandı! CSV dosyaları...
  16. Z

    7000 bin satırlı excel dosyamı 120 satırlı dosyalar haline getirebilir miyim?

    A:A Sütununda tarih verileri var. Tarih formatını hangi satırda tanımlasam sorun olmaz. Tarih Formatı kodu : Columns("A:A").Select Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...
  17. Z

    7000 bin satırlı excel dosyamı 120 satırlı dosyalar haline getirebilir miyim?

    Korhan hocam, Satır sayısını 120 den 400'e dönüştürdüm. Sorun yok. Son sütunu K olarak değerlemişsiniz, Veri = Range("A1:K" & Son).Value şöyle değiştirdim, Veri = Range("A1:S" & Son).Value yeterli olmadı. Yine son sütunu K sütunu olarak görüyor. Nasıl değiştirebilirim. Teşekkür ederim.
  18. M

    CSV başında sıfır olan rakamlar

    ...ws1.Copy ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.Close False ' CSV dosyasını kaydet ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".csv", xlCSV ActiveWorkbook.Close False End Sub
  19. M

    CSV başında sıfır olan rakamlar

    ...------TargetWorksheet.Range("A1").Resize(UBound(araarray, 1), UBound(araarray, 2)).Value = araarray------ CSVFileName = "C:\ " & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".csv" TargetWorkbook.Workbooks(1).SaveAs CSVFileName, xlCSV TargetWorkbook.Quit
  20. Z

    30 Gün Önceki Tarih

    ...mu anladım.ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M",-1,Date), "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Yok eğer bu tanım değişkenler tanımlanırken yapılacak ise hangi satırda. Bu iş ne kadar bildiğimi\bilmediğimi şöyle anlatayım, bu...
Üst