Sorgu için arama sonuçları: Open+print+output

arkadaşlar bu kod yazıcı kağıdı geriye çekip Tekrar aynı izaya getirdikten sonra yazdırıyor benim istediğim kağıdı geriye çektirip yazdırmasını istiyorum

Merhaba arkadaşlar; aşağıda ki kod ile dosya verileri yazdırıyorum.., fakat istediğim formatta yapamadım.. olması gereken txt dosya formatını ekliyorum; Private Sub CommandButton2_Click() Satir = 1 Open "c:\deneme.txt" For Output As #1 Satir =...

Bu kod txt kaydediyor. aynısı varsa üzerine yazıyor. Benim isteğim üzerine yazmasın uyarı versin üzerine yazayımmı yaz dersem yazsın. demezsem yine input ekranı geri gelsin yada hiç kaydetmesin. Sub KAYDET_KPPT() Dim i, sat As Integer a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa...

Zahmet olmazsa aşağıdaki kodun sırasıyla ne yaptığını anlatabilirmisiniz ? Benim tam olarak aradığım şu: Aradığım şey tam olarak şu : BH1:BH1000 aralığındaki veriyi altalta BH1001 hücresine yazdığım dosya yoluna BH1002 hücresine yazdığım isim ile ; 1- TXT olarak kaydetsin. 2- Eğer aynısı...

Merhaba arkadaşlar, İşimi oldukça hızlandıran makro programı var. Office2007 sürümüne geçiş yapıldığından dolayı kullanamıyorum. Site üzerinde bir çok konu buldum hepsini okumuş bulunmaktayım. Fakat bir türlü kullandığım makroya uygulayamadım. Yardımcı olursanız çok sevinirim. Sub...

Merhaba arkadaşlar; txt dosyasını yazdırıyorum fakat text in içeriği ilk satır 2 tab tuşu(boşluk) başlayarak yazıyor.. textin ortasına yazıyor yani... bunu 0 dan başlatabilirmiyim.. ? bir de ayıraç olarak excel tablosunda virgül var. text dosyasında nokta olmasını sağlayabilirmiyiz? yardımcı...

Sub Button1_Click() Open "c:\bilgi.txt" For Output As 1 For i = 1 To 10 Print #1, Cells(i, 1), Cells(i, 2) Next i Close End Sub Yukarıdaki kodla Txt dosyasına verilerş atabiliyorum. Problem yok . Kodlar anlaşılır. Sub Button2_Click() aa = 1 Open "c:\Bilgi.txt" For Input As #1 Do While Not...

Merhabalar Cep telefonumun rehberini .csv veya .txt olarak kaydedebiliyorum.Bunlarıda excele çevirebiliyorum.Excelide .txt ye çevirebiliyorum ama istediğim düzende olmuyor. Bir çalışmada bulduğum aşağıdaki kodları kendime nasıl adapte etmeliyim. Teşekkürler.

Merhaba Arkadaşlar, Excel üzerinden text dosyası oluştururken dosya adının ve dosyadaki bir sütunun adının tarih formatında olması gerekiyor,aşağıdaki kodlarda aldığım sonuç örnek olarak dosya ad kısmında 100371421_06.05.2011.TXT ancak bana gereken 100371421_201105050052.txt yani tarih...

1.10.2010 tarihinde yapılan değişiklikle bazı hisseler A,B,c gruplarına ayrıldı.2.seansa daha önce olmayan günlük ağırlıklı ortalama eklendi.Eski xls dosyalarında örneğin 4.sütun daki kodlar yeni xls dosyasında 9.sütunda.Yeni düzenlemeye uygun değişiklik yaptım.Ancak Seans makrosunun ürettiği...

Arkadaşlar Hem Excel Dosyamın ismini (ki aşağıdaki kod bunun için)ve de o ona hangi sayfadaysam yani aktif sayfayı nasıl kaydederim ActiveWorkbook.Save örneğin çalışma.xls dosya adı temmuz sayfa adı kayıt yaparken çalışma dosyasının temmuz sayfası kayıt edilmiştir olacak amacım aynı dosyada...

merhabalar. daha önce sizden yardım alarak faydalandığım makroda dosya adlarını her defasında macroya girerek düzelme yaparak programı çalıştırıyorum.gayet düzgün çalışıyor.fakat bu macro dosya çok olunca her defasında gir düzelt çalıştır bayagı dikkat ve zaman istiyor.benim yapılmasın istedigim...

merhabalar... daha önceki denediğim macroyla txt lerin birleştirlmesi işlemini yapıyorum ama istenilen bilgide her txt dosyasındaki başlangıç ve bitiş satırlarının silinerek taşınmasını isteniliyor.bir macro örnegini(daha önce formunuzdan faydalandığım) aşağıda yazıyorum.bu macroda düzeltilerek...

Değerli Dostlar Selamlar, Aşağıdaki kodlarla doğrudan nokta vuruşlu yazıcıya veri gönderiyorum. 33 satıra ayarlı " & WorksheetFunction.CountIf(Sayfa5.Columns(4), Date) & "" bu şekilde bu günkü tarihli kayıtları saydırmak istiyorum ama "0" yazıyor. Neden saymıyor. Nasıl olması gerekli?

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 merhaba arkadaslar, excel tablosunu 2. sütundan 51.ye kadar ve 1. Satirdan 759.ya kadar CSV dosyasi olarak kaydeden...

Merhaba arkadaşlar. Vbscript ile txt dosyası oluşturup ona veri girmek istiyorum ama hata veriyor.Open satırnda.Nasıl yapmalıyım.Kodlar aşağıdadır. open "C:\evrendosyalar.txt" for output as #1 for i = 1 to dosya.count deg= i & vbtab & d(i) print #1, deg deg="" next close #1

Sub dene() Dim matrix(1 To 3, 1 To 2) As Integer m(1, 1) = Range("A1").Value m(1, 2) = Range("A2").Value m(2, 1) = Range("B1").Value m(2, 2) = Range("B2").Value m(3, 1) = Range("C1").Value m(3, 2) = Range("C2").Value Open "C:\Veri\Dene\Test.TXT" For Output As #1...

Merhaba , Arkadaşlar Sizden bir ricam olacak. Elimde excel ile yapılmış yazılanları diskete banka disketi olarak aktaran bir veri tabanı var. Excelde hazırladığım listeyi diskete aktarıyor ama ben diskete değilde bilgisayarda C ye veya D ye yani belgelerimdeki herhangi bir klasöre atmak...

Arkadaşlar aşağıdaki kod ile sayfayı isetedğim adla kaydetmeye çalışıyorum, ancak dosya yolunda hata veriyor. yardımcı olabilir misiniz?

Ekte verilen.xls dosyasını unicode txt'e çevirirken arada birçok boşluk bırakıyordu.Forumda bulduğum aşağıdaki kodu kullandım bütün boşlukları kapatırken g ile h sütunu arasındaki boşluğu kapatmıyor. Şu şekilde çıkıyor; Sorum şu: Bu aradaki boşluğu nasıl kapatırız ve dönüştürürken unicode txt...