Translate Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Merhaba,C Diskinde Veri adlı bir klasör aç.Sen Masa üstü istemiştin ozaman c:WindowsDesktop olarak aşağıdaki yolu değiştirirsin..Daha sonra Excelinde A1:K10 Veri aralığına gerekli bilgileri gir.Ve Modüle şu kodları yapıştır. Kod: Sub txtaktar() MsgBox "Dosya Hazırlanıyor" Dim LastRowA As Integer Dim veri1 As String Dim veri2 As String Dim veri3 As String Dim veri4 As String Dim veri5 As String Dim veri6 As String Dim veri7 As String Dim veri8 As String Dim veri9 As String Dim veri10 As String Dim veri11 As String Dim veri12 As String Dim veri13 As String Dim veri14 As String Dim i As Integer Open "C:VeriDeneme.txt" For Output As #1 LastRowA = Cells(65536, 1).End(xlUp).Row For i = 1 To LastRowA veri1 = Cells(i, 1).Text veri2 = Cells(i, 2).Text veri3 = Cells(i, 3).Text veri4 = Cells(i, 4).Text veri5 = Cells(i, 5).Text veri6 = Cells(i, 6).Text veri7 = Cells(i, 7).Text veri8 = Cells(i, 8).Text veri9 = Cells(i, 9).Text veri10 = Cells(i, 10).Text veri11 = Cells(i, 11).Text veri12 = Cells(i, 12).Text veri13 = Cells(i, 13).Text veri14 = Cells(i, 14).Text Print #1, veri1; " "; veri2; " "; veri3; " "; veri4; " "; veri5; " "; veri6; " "; veri7; " "; veri8; " "; veri9; " "; veri10; " "; veri11; " "; veri12; " "; veri13; " "; veri14 Next i Close #1 Sheets("Sayfa1").Select Range("A1").Select End Sub Daha fazla veri aktarılacaksa 14'den sonra ilave edin..Ayrıca bu aktardığın verileri herhangi bir proğrama adapte edeceksen karakter sayılarına dikkat et.Kolay Gelsin. Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 I1: translates to 0 if data written in cells i13 is not equal to 0 2 translate text to cell event from userform 3 system report 4 translate 5 api that finds which key is pressed 6 translate the number / number into English (in dollars and cents) 7 Translating all rows of selected cells. 8 list of all macros 9 Compares column c, calculates how many, and transfers to another sheet / page 10 excel operators hk 11 transferring data written to textbox to cell 12 transfer from combobox to sheet / page 13 transition from multisheet / page to sheet / page 14 transfer data from listbox to sheet / page 15 data transfer ... 16 sheet / page to sheet / page transition 17 Transferring text from textbox to cell 18 do you have a printer installed 2 19 transfer data from combobox to textboxes 20 indirect macro