Csv formatında kaydetme

[ThEeNCi]

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

 

[Ömer BARAN]

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.

[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]

 

[ThEeNCi]

run time error 1004
range sınıfının activate yöntemi başarısız

Hatası verdi

 

[Ömer BARAN]

Önceki KOD'da değişiklik yaptım, tekrar deneyiniz.

 

[ThEeNCi]

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

 

[ThEeNCi]

masa üstüne aktarıyormuş yeni gördüm daha iyi sadece a sütünü silmek olabilirse çok iyi olacak teşekkürler

 

[Ömer BARAN]

Koddaki ilgili satırı aşağıdaki şekilde değiştirin.

   Workbooks.Add
    [COLOR="Red"]ActiveSheet.[/COLOR]Range("[COLOR="Blue"]A2[/COLOR]").Activate

 

[ThEeNCi]

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

 

[Ömer BARAN]

Ö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).

 

[ThEeNCi]

Ömer bey çok teşekkür ederim

 

[Ömer BARAN]

İyi günler dilerim.