- Katılım
- 30 Ağustos 2009
- Mesajlar
- 51
- Excel Vers. ve Dili
- Microsoft Office Excel 2007 Almanca
Kod:
Public Sub CSVKaydet()
Open "C:\Veri\Test.csv" For Output As #1
For t=2 To 51
For i=1 To 759
if IsNumeric(Cells(i,t).Value) Then
Print #1, Cells(i,t)
End If
Next i
Next t
Close
Ve C/Veri adresine kaydettigim Test.csv dosyasinin bütün hücrelerinin "kategori"sini "Sayi" ve "Ondalik Basamak Sayisi"ni Nasil "2" olarak makroma yazabilirim.
Tesekkürler