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

Kontrol ediniz. Dim kls, n, DosyaAdi Dim fs1 As Object Dim Clipboard As New MSForms.DataObject 'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com VBA references de Microsoft Forms 2.0 Object library seçili olmalı. Sub cokludosya() Set fs1 =...

Necdet; Dim kls, n, DosyaAdi Dim fs1 As Object Set fs1 = CreateObject("Scripting.FileSystemObject") pano.panotxt = Clipboard.GetText DosyaAdi = deneme If DosyaAdi = "" Then MsgBox "İşlem iptal edildi.", , "Klasöre Txt Oluştur" Exit Sub End If komut_txt = pano.panotxt txtdosya = (CurDir & "\" &...

Haluk Hocam, Bu Kod ile tam olarak istediğimiz her şeyi yaptık. çok işime yarıyor Allah razı Olsun. sadece şunu sormak istiyorum. sunum dosyalarını numara sırasına göre alıyor sıkıntısız bir şekilde. benim tek eksiğim 56-1.pptx şeklinde bazı dosyalar oluyor bunu bunu da almasını istiyorum. ama...

Merhaba Benim eklediğim kodlar içinse aşağıdaki gibi deneyin Sub TXTSAVE() Dim a As Long, x As Long, b As Long, dosya As String For a = 1 To ThisWorkbook.Worksheets.Count If Not Sheets(a).Name = "OKULLAR" And Not Sheets(a).Name = "KONTROL" And Not Sheets(a).Name = "HAM_TXT" And Not...

Hocam Çalışmadı Sub TXTSAVE() Dim a As Long, x As Long, b As Long, dosya As String For a = 1 To ThisWorkbook.Worksheets.Count If Not Sheets(a).Name = "OKULLAR" And Not Sheets(a).Name = "KONTROL" And Not Sheets(a).Name = "HAM_TXT" And Not Sheets(a).Name = "BICIMLENDIRME" And Not Sheets(a).Name =...

Merhaba Şöyle deneyin https://www.dosyaupload.com/bh55 Sub kod() Dim a As Long, x As Long, b As Long, dosya as string For a = 1 To ThisWorkbook.Worksheets.Count x = Sheets(a).Cells(Rows.Count, "C").End(3).Row dosya = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Sheets(a).Name...

Eğer bölümlerdeki her slayt üzerinde bölüm adının yer almasını istiyorsanız; Sub Test9() 'Haluk 20/02/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 intCount As Integer, intCount2 As...

Değerli Hocam Siz Bir Harikasınız. Allah Razı olsun Sadece her bölümün ilk sayfasında çıkıyor ama olsun daha fazla kasmaya gerek yok sanırım. bu kadarı da mükemmel olmuş. Ellerinize Sağlık

Sub Test8() 'Haluk 19/02/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 intCount As Integer, intCount2 As Integer Dim shp As Shape ActivePresentation.SaveAs "C:\Users\" &...

Selamun Aleykum dostlarım, bu aşağıdaki kod ile sunum dosyalarını her sunumu bir BÖLÜM şeklinde birleştirebiliyor. Haluk Hocam Allah razı olsun çok yardımcı olmuştu. şimde sıkıntım şu . sunum dosyasının ismi 5.pptx bunu birliştir dediği zaman 5.pptx adında bir bölüm oluşturup içine sunumun tüm...

Merhaba, Aşağıdaki kodu deneyiniz... (Masaüstünde TextDosyası.txt isimli dosya oluşturur. Sub kod() dosya = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\TextDosyası.txt" Open dosya For Output As #1 For a = 2 To Cells(Rows.Count, "A").End(3).Row Print #1, Cells(a, "A")...

üstadlarım merhaba. aynı sayfada A4:C126 ve E4:G126 aralığını ayrı ayrı txt formatına çevirmek istiyorum. forumdaki kodlardan iki ayrı makro oluşturdum. "Only comments may appear after End sub, End funcstion or End Property" uyarısı veriyor. ayrıca D dizininde Şablon diye bir klasör açıp içine...

Yani; reg dosyasındaki satırlarda \Software\Tekla\Structures..... kısımları değişmeyecekse, aşağıdaki gibi deneyin; Sub Test3() 'PLİNT + Haluk - 22/01/2020 ' Dim FSO As Object, RegFile As Object, regExp As Object Dim strFindText As String, strNewText As String, newRegFile As...

Yapı verdiğim örnekteki gibiyse, pattern'ı kendinize göre değiştirin .... Tedbir olarak, rgt2.reg adında yeni bir reg dosyası oluşturulmuştur. Sub Test2() 'PLİNT + Haluk - 22/01/2020 ' Dim FSO As Object, RegFile As Object, regExp As Object Dim strFindText As String, strNewText...

PLİNT ve Haluk ; Hocam son göndermiş olduğunuz kod ile işlem tamamdır... çok ufak bir farkla... Private Sub CommandButton4_Click() Dim b, sor sor1 = "S-" If sor1 = "" Then Exit Sub b = CreateObject("scripting.filesystemobject").Opentextfile(ThisWorkbook.Path & "\rgt.reg", 1, False - 2).readall...

Veya şunu da deneyebilirsiniz.... Sub Test() 'PLİNT + Haluk - 22/01/2020 ' Dim FSO As Object, RegFile As Object Dim strFindText As String, strNewText As String, newRegFile As String Set FSO = CreateObject("Scripting.FilesystemObject") Set RegFile =...

Merhaba "Inputbox" la isteğinizi tam anlayamadım ama seçimde "Inputbox" ile yapılacak sanırım; buna göre aşağıdaki gibi olabilir. Bulunan ilgili satır "Inputbox" da görünecektir, Private Sub CommandButton1_Click() Dim b As String, d As String Dim c As Object, konum As String sor1 =...

Kod için teşekkür ederim . PLİNT Şu an PC karşısında değilim . Bu akşam 21:00 civarında bakarım ... mesajı güncellerim.

Merhaba Ek dosyayı denermisiniz? https://www.dosyaupload.com/70ka Private Sub CommandButton1_Click() Dim b As String b = CreateObject("scripting.filesystemobject").Opentextfile(ThisWorkbook.Path & "\rgt.reg").readall b = Replace(b, "Internet Explorer", "Firefox") Open ThisWorkbook.Path &...

Hocam Siz Bir Harikasınız. Allah Gani Gani Razı Olsun. Süper Oldu.