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

Üstadlarım kolay gelsın aşağıdaki kod secili alanı txt yapmakta, alan sabir olsa yanı A3:B30 arası olsa kodda nasıl bir revize yapabılırz Sub TXT_Kaydet() If Selection.Count = 1 Then Exit Sub Dim sat As Integer, sut As Integer, metin As String Open ThisWorkbook.Path & "\" & "TEKDÜZEN AKTİF_" &...

Ben sizin kodu hiç değiştirmeden, olduğu gibi kullandım ve Türkçe karakterlerde bir problem olmadı. (Aktif sayfadaki A1:B10 aralığını "html" olarak kaydeder...) Eğer siz mutlaka UTF-8 kullanmak istiyorsanız; ilk önce bilgisayarda C:\TestFolder klasörünü kendiniz manuel olarak oluşturduktan...

Merhabalar Aşağıda bulunan test adında bir makro kullanıyorum. Normalde html yi utf-8 ile kayıt yapıyor idi fakat hangi ayarını kurcaladım bilmiyorum ascii kod ile kayıt yapıyor (ı,ş gibi harfler bozuk çıkıyor. Makro dosyasını farklı kayıt et web seceneklerinden kodlama kısmından utf-8 yaptım...

Rica ederim, ama mesaj kutusunu siz istemiştiniz. Aşağıdaki kodları boş bir modüle kopyalayınız. Ana dosyanızın olduğu dizinde, içerisinde satır numaralarının olduğu Rapor.txt adında bir dosya oluşturur. Yukarıdaki koda da Call Rapor satırı ekleyerek istediğiniz yerinde kodun çalışmasını...

Merhaba. Sayın adaşımın müsadeleriyle. Bir deneme de ben yapayım dedim. Tek hücrelik olmayan bir alan seçiliyken kod'u çalıştırın. Sub YEDEK_TXT_Kaydet() If Selection.Count = 1 Then Exit Sub Dim sat As Integer, sut As Integer, metin As String Open ThisWorkbook.Path & "\" & "yedek_" & Format(Now...

Merhaba, Aşağıdaki kodu deneyiniz. Sub kod() Open ThisWorkbook.Path & "\Text.txt" For Output As #1 Dim R As Range Set R = Selection For a = 1 To R.Rows.Count For b = 1 To R.Columns.Count If b = R.Columns.Count Then Print #1, R.Cells(a, b) Else Print...

Ekli dosya bulunduğu yere sonuc.txt olarak kombinasyonu oluşturur. 15 karakteri bir defada denemeyin. Çok zaman alacaktır. http://s7.dosya.tc/server13/t2nato/KombiNumarator.zip.html Dim veri() As String Dim adet As Long Dim elde, bakilansayi As Boolean Dim sayilar As String Const harfler As...

Türkçe karakterlerde ben bir problem görmedim ama, siz bir de aşağıdaki revize ettiğim kodu deneyin... Sub Test2() 'Haluk - 21/08/2018 ' Dim objShell As Object Dim strDesktop As String, i As Long, NoA As Long Dim Name As Variant, lastName As String, firstName As String...

Dosyanız linktedir:cool:. Ayni klasöre atıyor. Önceki verileri silip yeniden yazıyor. Dosya adı dizitxt.txt DOSYAYI INDIR Private Sub CommandButton1_Click() Dim i As Long, dosya As String Dim tumu(), sutun As Integer, k As Integer, deg As String tumu = ListBox1.List Open ThisWorkbook.Path &...

Bu kodu dener misiniz. Const MyFile = "C:\TestFolder\Deneme.txt" Sub ddd() Open MyFile For Output As #1 For Each deg In Range("b2:b1000") If deg.DisplayFormat.Interior.ColorIndex = 3 Then Print #1, deg.Value * 4 End If Next deg Close #1 End Sub

Merhaba, Aşağıdaki kodu dener misiniz. Const MyFile = "C:\TestFolder\Deneme.txt" Sub ddd() For Each deg In Range("b2:b1000") If deg.DisplayFormat.Interior.ColorIndex = 3 Then tutar = tutar + CLng(deg) * 4 Next deg Open MyFile For Output As #1 Print #1, Trim(tutar) Close #1...

Asıl amaç date değişikliği değil aslında. Yazının aslı UTF8 formatında ve değişiklik yapıp kaydettiğim zaman anlamsız karakterler ve satırda kaymalar oluyor. Normal bir yazıyı Xml formatında ve bu yazının içerisinde değişiklik yapmak istiyorum. 2 parağraflık bir yazı. Burdan bazı verileri...

Teşekkür ederim yaptım oldu beni çok büyük bir dertten kurtardınız :)

Tablo başlıklarının A1 ~ G1 hücrelerinde olduğunu ve verilerin de 2. satırdan itibaren başladığını kabul edersek, aşağıdaki kod sayfadaki verileri sizin istediğiniz şekilde; kodun yazıldığı dosyanın olduğu yerde bir Notepad dosyası oluşturarak içine yazar. Sub Test() 'Haluk - 29/10/2018...

Eğer isteğiniz bir önceki mesajımdaki işlemse; excel belgesinin bulunduğu klasöre, istenilen işlemi yapan (txt oluşturma sayfasındaki boş F sütunu boş olduğundan onun için de bir TAB ekleyerek) ve 2017_08 dönemi 04_10_18 gibi isim vererek (BORDRO sayfası M6 ve M7'den dönem bilgisi alınıp...

İyi geceler. Elimde @Emir Hüseyin Çoban Beyin hazırlamış olduğu metin düzenleme makrosu mevcut. Ancak ben bir ekleme yapmak istiyorum. Oluşan metinler; mevcut klasörün içinde bir klasör daha oluştursun, onun içine kaydetsin... Şuanki Hali: Hedef Klasör'de ki 1.txt dosyası; Hedef Klasör'e...

7. satırda olabilecek en belirgin hata açılmak istenen dosyanın klasör yolunun bulunamıyor olmasıdır.. çalıştırdığınız excel dosyasının bulunduğu klasörde Txt klasörü varmı kontrol edin... ayrıca d1 hücresinde açılmak istenen dosyanın adı olmalı... onun haricinde farklı bir hata var ise err...

Günaydın Arkadaşlar, GoogleDrive'da excel'de kullandığım makro hata veriyor. 7. satırı beğenmiyor. Neden olabilir? Bulut tecrübesi olan arkadaşlar bakarsa çok işe yarar. Saygılarımla /** @OnlyCurrentDoc */ function Macro_1() { var spreadsheet = SpreadsheetApp.getActive()...

Herkese merhaba, makro kullanmaya yeni başladım. Aşağıda adım adım belirttiğim soruna yardımcı olabilirseniz çok sevinirim. Şimdiden ilgilenen herkese çok teşekkür ederim. 1. Kayit1=C:\test\1\OutData\Acc48.out dosyasını aç. (3 farklı sütun veri bulunmakta) 2. Kayit2=C:\test\1\EQdat\1_0.1.tcl...

Merhaba arkadaşlar daha öncede benzer bir konu açmıştım ama cevap alamadım. Uyap türü program kullandığım için txt UTF-8 desteği olmayınca türkçe karakterleri göstermiyor. benim amacım aşağıdaki koda UTF-8 kodlaması eklemek. With Worksheets("sayfa2") kayıt_yeri = ThisWorkbook.Path...