translate Free Excel Macros (VBA) | Excel Programs

'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.

No	Macro 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

Excel Free Macros (VBA)

Translate

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords