• DİKKAT

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

Csv formatında kaydetme

  • Konbuyu başlatan Konbuyu başlatan ThEeNCi
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Mart 2010
Mesajlar
244
Excel Vers. ve Dili
2019 Türkçe
Selamlar

CSV formatında yalnızca b2 hücresinden başlayıp g sütunun son verisine kadar olan alanı CSV formatında kaydedecek macro nasıl yapabilirim

Teşekkürler
 
Merhaba.
Böyle bir şeyi ilk kez yapıyorum ama aşağıdaki kod'u, kopyasını almak istediğiniz sayfanın kod bölümüne
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
yapıştırın ve çalıştırın (sayfaya ekleyeceğiniz bir düğmeye/şekle fareyle sağ tıklayıp MAKRO ATAyı seçip,
açılan küçük ekranda CSV_KAYDET_BRN'yi seçerek işlemi onayladıktan sonra bu şekle/düğmeye tıklayın).

CSV belge excel belgenizin bulunduğu dizine, kopyasını aldığınız sayfanın adıyla kaydedilir.
Kod:
[FONT="Trebuchet MS"][SIZE="2"][B]Sub CSV_KAYDET_BRN()[/B]
yol = ThisWorkbook.Path: isim = ActiveSheet.Name
alan = ActiveSheet.Range("B2:G" & ActiveSheet.[G65536].End(3).Row).Copy
    Workbooks.Add
    ActiveSheet.Range("B2").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[B][COLOR="Blue"]    ActiveSheet.Range("[COLOR="Red"]B:B[/COLOR]").NumberFormat = "m/d/yyyy"[/COLOR][/B]
    ActiveSheet.Range("A1").Activate
    Application.CutCopyMode = False
    ChDir yol
    ActiveWorkbook.SaveAs Filename:=yol & "\" & isim & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False
[B]End Sub[/B][/SIZE][/FONT]
 
Son düzenleme:
run time error 1004
range sınıfının activate yöntemi başarısız

Hatası verdi
 
Önceki KOD'da değişiklik yaptım, tekrar deneyiniz.
 
Evet şimdi oldu yalnız bir ricam olacak a sutunu boş geliyor işlem bittikten sonra a sütünunu silebilirmiyiz ve bu dosyası c:\deneme\ klasörüne kayıt edebilirmi teşekkürler
 
masa üstüne aktarıyormuş yeni gördüm daha iyi sadece a sütünü silmek olabilirse çok iyi olacak teşekkürler
 
Koddaki ilgili satırı aşağıdaki şekilde değiştirin.
Kod:
   Workbooks.Add
    [COLOR="Red"]ActiveSheet.[/COLOR]Range("[COLOR="Blue"]A2[/COLOR]").Activate
 
Super oldu son bir isteğim olacak tarih kısmı formatı aşağıdaki gibi çıkıyor 12-12-2016 şeklinde çıkabilirmi
42339
42339
42339
 
Önceki cevapta yer alan kod'daki mavi satırı ekleyin ( tarih sütunu hangisi ise o sütun adını -kırmızı renkli- ona göre değiştirerek).
 
İyi günler dilerim.
 
Geri
Üst