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

Bana göre aşağıdaki kod oldu gibi.... Siz deneyince haber verirsiniz.... Sub Test6() 'Haluk 17/01/2020 'sa4truss@gmail.com Dim i As Integer, j As Integer, k As Integer, myFile As String Dim LogFile As String, FileNum As Long, myMsg As Variant Dim intCount As Integer...

Section (Bölüm) oluşturulmasıyla ilgili olarak aşağıdakini deneyin, işinize yarar mı bilmiyorum... Sub Test4() 'Haluk 17/01/2020 'sa4truss@gmail.com Dim i As Integer, j As Integer, myFile As String Dim LogFile As String, FileNum As Long, myMsg As Variant Dim mySlide As...

Merhaba, Print #1, Cells(i, "a"), Cells(i, "d") Burada A ile H sütunları arasını komple TXT dosyasına almak istenirse kolay bir düzenleme şekli var mıdır? teşekkürler, iyi çalışmalar.

Helâl olsun, Sub Test3() 'Haluk 07/01/2019 'sa4truss@gmail.com Dim i As Integer, j As Integer, myFile As String Dim LogFile As String, FileNum As Long, myMsg As Variant LogFile = ActivePresentation.Path & "\Log.txt" FileNum = FreeFile Open LogFile For...

Sub Test() 'Haluk - 02/01/2020 'sa4truss@gmail.com ' Dim NoA As Long, i As Long, FileNum As Long Dim myFile As String, myStr As String NoA = Range("A" & Rows.Count).End(xlUp).Row FileNum = FreeFile myFile = ThisWorkbook.Path & Application.PathSeparator &...

Bu iş için bahsettiğiniz gibi bir diziye gerek yok.....ComboBox'ın List özelliği zaten kendi başına bir dizi. ComboBox1 adını kendi çalışmanıza göre değiştirirsiniz..... FilePath = CurDir & "\proje.txt" TextFile = FreeFile Open FilePath For Output As TextFile For Each uz...

FilePath = CurDir & "\proje.txt" TextFile = FreeFile Open FilePath For Output As TextFile 'uzantilar = Array("*.dwg", "*.lsp", "*.bak") dosyalar= Array(combo_sec) For Each uz In uzantilar dosya = Dir(CurDir & "\" & uz) Do While dosya <> "" Print #TextFile, "file '" & CurDir & "\" &...

Arkadaşlar merhaba, şimdilik çözümü şöyle buldum html dosyasını kaydediyorum ve default browserde tekrar açıyorum eklediğim resim görünüyor. Ama istediğim bu değil userformun üzerine eklediğim WebBrowser de göstermek. Dim s1 Dim Adress As String Dim objShell As Object s1 =...

Merhaba Arkadaşlar, Uzun aramalar sonucunda internetten bulduğum bir kodda düzenleme yapmak istedim fakat işin içinden çıkamadım. Sub Test() Dim MyFile As String, MyTempFile As String Dim NewData1 As String, NewData2 As String Dim LineNo1 As Integer, LineNo2 As Integer, X As Integer...

Birde bu dosyaya bak Sub veri_kayıtet() yer = ThisWorkbook.Path & "\yaz.txt" Open yer For Output As #2 For i = 1 To Worksheets(ActiveSheet.Name).Cells(Rows.Count, 1).End(xlUp).Row ekle = "" For j = 1 To Worksheets(ActiveSheet.Name).Cells(i, Columns.Count).End(xlToLeft).Column If j = 1 Then...

Dosyayı irdeleyiniz. Sub veri_kayıtet() 'On Error Resume Next yer = ThisWorkbook.Path & "\yaz.txt" Open yer For Output As #2 For i = 1 To Worksheets(ActiveSheet.Name).Cells(Rows.Count, 1).End(xlUp).Row ekle = "" For j = 1 To Worksheets(ActiveSheet.Name).Cells(i...

aşağıdaki kod, belirli şartları sağlamayan hücreleri txt dosyasına rapor olarak yazmaktadır. sorum ise şu. eğer bu şartları sağlamayan bir done yoksa yani rapor.txt ye yazılacak bir veri yoksa "herhangi bir hata bulunmamaktadır" şeklinde bir mesaj çıkmasını istiyorum. mümkünse yardımlarınızı...

uzun zaman sonra bir ekleme yapma ihtiyacı duydum. kodun son halini aşağıda vereceğim, buna istinaden de sorumu sormak isterim. eğer ki oluşan txt dosyası boşsa yani tüm koşullar uygunsa "hata yok" şeklinde mesaj verebilir mi? dolayısı ile rapor.txt dosyasını da oluşturmasına gerek olmayacak...

kodun uzantısını yazmayı unutmuşum Sub Makro4() Dim deg As String, i As Long, st As Long, j As Byte st = Cells(Rows.Count, "A").End(xlUp).Row dosya = Worksheets("Sayfa1").Range("P1").Value & ".txt" Open (ThisWorkbook.Path & "\" & dosya) For Output As #1 For i = 1 To st For j = 1 To 5...

KOD Sub Makro4() Dim deg As String, i As Long, st As Long, j As Byte st = Cells(Rows.Count, "A").End(xlUp).Row dosya = Worksheets("Sayfa1").Range("P1").Value Open (ThisWorkbook.Path & "\" & dosya) For Output As #1 For i = 1 To st For j = 1 To 5 deg = deg & " " & Cells(i, j)...

merhaba arkadaslar asagıdakı kod ile sayfa2 deki verileri txt dosyasına test.txt olarak kayıt ediyor ben bu txt dosyasına sayfa1 deki p1 hucresindeki degeri vermesini ve sonunda test.txt degilde yenı olusturdugu txt dosyasını actırmak istiyorum ne gibi bir degisiklik yapmam gerek kodlar...

Gerçi Haluk Üstad farklı bir çözüm vermiş ama ben yine de sorunuzu yanıtlayayım. Sub txtOlustur() Yol = "c:\Text" dosyaismi = InputBox("Dosya ismini girin", , ".txt") Open Yol & "\" & dosyaismi For Output As #1 For i = 2 To [a65536].End(3).Row - 1 Print #1, Cells(i, 1) &...

Böyle deneyin. Sub txtOlustur() Yol = ActiveWorkbook.Path Open Yol & "\" & "xx.TXT" For Output As #1 For i = 2 To [a65536].End(3).Row - 1 Print #1, Cells(i, 1) & vbTab _ & Cells(i, 2) & vbTab _ & Cells(i, 3) & vbTab _ & Cells(i, 4) & vbTab _ & Cells(i, 5) &...

Günaydın Muhterem Arkadaşlarım, Google Excel'de hücredeki bilgiyi text olarak GoogleDrive'a yada Google Excel'de başka bir sayfaya alt alta kayıt yapma hakkında bilgisi olan var mıdır? Aşağıdaki kod, adı BI1 de yazılı datayı BF5 teki isimle dosyanın bulunduğu klasördeki txt klasörüne kayıt...

Kodun Excele aktarılmış şeklinde varsa paylaşırsanız memnun oluruz