Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Erhan Köseoğlu - 18 Mayıs 2010, 00:36:04

Başlık: [Çözüldü] Aktarma İşlemi
Gönderen: Erhan Köseoğlu - 18 Mayıs 2010, 00:36:04

Kitap.csv ye aktarınca 1. satır boş kalıyor. ilk satırın boş kalmaması için ne yapmalıyım?
şifre: ilyas

Başlık: Ynt: Aktarma İşlemi
Gönderen: Orion1 - 18 Mayıs 2010, 12:36:25

Çünkü csv dosyanızda 1nci satır boş.8)

Başlık: Ynt: Aktarma İşlemi
Gönderen: Erhan Köseoğlu - 18 Mayıs 2010, 14:43:22

Alıntı yapılan: Evren Gizlen - 18 Mayıs 2010, 12:36:25

Çünkü csv dosyanızda 1nci satır boş.8)

.csv dosyası excelden aktarılarak oluşturuluyor, aktarınca 1. satır boş kalıyor.

Başlık: Ynt: Aktarma İşlemi
Gönderen: Orion1 - 18 Mayıs 2010, 14:49:35

Aktarma kodlarınızı buraya verin bakayım.
Eğer devamlı ilk satır boş geliyorsa kod ile bunu hallederiz ama ilk satır dolu olrakta geldiği zamanlar olursa bu durumda yanlış iş yapmış oluruz.Bunu bilesiniz. 8)

Başlık: Ynt: Aktarma İşlemi
Gönderen: Erhan Köseoğlu - 18 Mayıs 2010, 16:06:12

Alıntı yapılan: Evren Gizlen - 18 Mayıs 2010, 14:49:35

Aktarma kodlarınızı buraya verin bakayım.
Eğer devamlı ilk satır boş geliyorsa kod ile bunu hallederiz ama ilk satır dolu olrakta geldiği zamanlar olursa bu durumda yanlış iş yapmış oluruz.Bunu bilesiniz. 8)

sürekli ilk satır boş geliyor.

Private Sub CommandButton8_Click()
'Sub Csv_Aktar()
Open "C:\Documents and Settings\All Users\Belgeler\iMacros\datasources\KitapV2.csv" For Output As #1
For a = 1 To Range("k13")
    Print #1, Cells(a, 9)
Next a
    Close


End Sub

Başlık: Ynt: Aktarma İşlemi
Gönderen: Orion1 - 18 Mayıs 2010, 18:12:24

Bu kod okuma değil yazma yapıyor.
Muhtemelen yazarken 9ncü sütunda ilk satır boş olduğundan dolayı ilk satırı boş geçiyor.
Okuma yaptığınız kodu demiştim.
Onu yollarsanız bir bakayım.
Not:Okuma input ile yapılıyor. 8)

Başlık: Ynt: Aktarma İşlemi
Gönderen: Erhan Köseoğlu - 20 Mayıs 2010, 09:29:36

A9 hücresini doldurunca ilk satır doldu. 2. satırdan itibaren aktarma başlatmak için kod nasıl olmalı. İnput ile başlayan kod yok. Dosyalar 1. mesajda ekli.

Başlık: Ynt: Aktarma İşlemi
Gönderen: Orion1 - 20 Mayıs 2010, 12:49:56

Aşağıdaki kodla I sütunundan 1nci satırdan başlayrak veriler csv dosyasına veri aktarılıyor.
Oysa I sütununda 1nci satırda veri yok.
Eğer sürekli 1nci satırda veri olmayacaksa o zaman döngüye 2nci satırdan başlamak doğrudur.O zaman csv dosyasında ilk satır boş olmaz.
kodu aşağıdaki ile değiştiriniz.

Kod: [Seç]

For a = 2 To Range("k13")
    Print #1, Cells(a, 9)
Next a

Başlık: Ynt: Aktarma İşlemi
Gönderen: Erhan Köseoğlu - 20 Mayıs 2010, 23:34:21

Yardımlarınız için çok teşekkürler.

Başlık: Ynt: Aktarma İşlemi
Gönderen: Orion1 - 21 Mayıs 2010, 00:04:04

Alıntı yapılan: Erhan Köseoğlu - 20 Mayıs 2010, 23:34:21

Yardımlarınız için çok teşekkürler.

Rica ederim. 8)