- Katılım
- 21 Mart 2008
- Mesajlar
- 232
- Excel Vers. ve Dili
- 2016
text dosyasından aşağıdaki kod ile veri alıyorum
bu sene 64 bit office 2016 yı kurdum
veri alınca türkçe karakterler bozuk gelmeye başladı ve sutun kaymalarına da sebep oluyor
bu sene 64 bit office 2016 yı kurdum
veri alınca türkçe karakterler bozuk gelmeye başladı ve sutun kaymalarına da sebep oluyor
Kod:
Sub TEXT_METİN_AL()
'text dosyasının ilk satırından itibaren veri alır excelin 8.satırından itibaren aktarır.
'zcd 2/8 2013 IE kodlu optikden veri alacak şekilde ziya kılıç tarafından düzenlenmiştir.
Dim i As Long, deg As String, sat As Long, deg2, k As Byte, Dosya
Sheets("veri").Select
Cells.FormatConditions.Delete
Range("A2:KN500").ClearContents
Satır = 1
ChDir (ThisWorkbook.Path)
Dosya = Application.GetOpenFilename(FileFilter:="Metin dosyaları(*.txt),(*.txt)", Title:="Bir metin dosyası seçiniz.")
If Dosya = False Then Exit Sub
Sheets("veri").Select
Application.ScreenUpdating = True
Open Dosya For Input As #1
Do While Not EOF(1)
Line Input #1, kayıt
Satır = Satır + 1
Cells(Satır, 2) = Mid(kayıt, 1, 1) ' 1
Cells(Satır, 3) = Mid(kayıt, 2, 1) ' 2
Cells(Satır, 4) = Mid(kayıt, 3, 1) ' 3
Cells(Satır, 5) = Mid(kayıt, 4, 1) ' 4
Cells(Satır, 6) = Mid(kayıt, 5, 1) ' 5
Cells(Satır, 7) = Mid(kayıt, 6, 1) ' 6
Cells(Satır, 8) = Mid(kayıt, 7, 1) ' 7
Cells(Satır, 9) = Mid(kayıt, 8, 1) ' 8
Cells(Satır, 10) = Mid(kayıt, 9, 1) ' 9
Cells(Satır, 11) = Mid(kayıt, 10, 1) ' 10
Cells(Satır, 12) = Mid(kayıt, 11, 1) ' 11
Cells(Satır, 13) = Mid(kayıt, 12, 1) ' 12
Cells(Satır, 14) = Mid(kayıt, 13, 1) ' 13
Cells(Satır, 15) = Mid(kayıt, 14, 1) ' 14
Cells(Satır, 16) = Mid(kayıt, 15, 1) ' 15
Cells(Satır, 17) = Mid(kayıt, 16, 1) ' 16
Cells(Satır, 18) = Mid(kayıt, 17, 1) ' 17
Cells(Satır, 19) = Mid(kayıt, 18, 1) ' 18
Cells(Satır, 20) = Mid(kayıt, 19, 1) ' 19
Cells(Satır, 21) = Mid(kayıt, 20, 1) ' 20
Cells(Satır, 22) = Mid(kayıt, 21, 1) ' 21
Cells(Satır, 23) = Mid(kayıt, 22, 1) ' 22
Cells(Satır, 24) = Mid(kayıt, 23, 1) ' 23
Cells(Satır, 25) = Mid(kayıt, 24, 1) ' 24
Cells(Satır, 26) = Mid(kayıt, 25, 1) ' 25
Cells(Satır, 27) = Mid(kayıt, 26, 1) ' 26
Cells(Satır, 28) = Mid(kayıt, 27, 1) ' 27
Cells(Satır, 29) = Mid(kayıt, 28, 1) ' 28
Cells(Satır, 30) = Mid(kayıt, 29, 1) ' 29
Cells(Satır, 31) = Mid(kayıt, 30, 1) ' 30
Cells(Satır, 32) = Mid(kayıt, 31, 1) ' 31
Cells(Satır, 33) = Mid(kayıt, 32, 1) ' 32
Cells(Satır, 34) = Mid(kayıt, 33, 1) ' 33
Cells(Satır, 35) = Mid(kayıt, 34, 1) ' 34
Cells(Satır, 36) = Mid(kayıt, 35, 1) ' 35
Cells(Satır, 37) = Mid(kayıt, 36, 1) ' 36
Cells(Satır, 38) = Mid(kayıt, 37, 1) ' 37
Cells(Satır, 39) = Mid(kayıt, 38, 1) ' 38
Cells(Satır, 40) = Mid(kayıt, 39, 1) ' 39
Cells(Satır, 41) = Mid(kayıt, 40, 1) ' 40
Cells(Satır, 42) = Mid(kayıt, 41, 1) ' 41
Cells(Satır, 43) = Mid(kayıt, 42, 1) ' 42
Cells(Satır, 44) = Mid(kayıt, 43, 1) ' 43
Cells(Satır, 45) = Mid(kayıt, 44, 1) ' 44
Cells(Satır, 46) = Mid(kayıt, 45, 1) ' 45
Cells(Satır, 47) = Mid(kayıt, 46, 1) ' 46
Cells(Satır, 48) = Mid(kayıt, 47, 1) ' 47
Cells(Satır, 49) = Mid(kayıt, 48, 1) ' 48
Cells(Satır, 50) = Mid(kayıt, 49, 1) ' 49
Cells(Satır, 51) = Mid(kayıt, 50, 1) ' 50
Cells(Satır, 52) = Mid(kayıt, 51, 1) ' 51
Cells(Satır, 53) = Mid(kayıt, 52, 1) ' 52
Cells(Satır, 54) = Mid(kayıt, 53, 1) ' 53
Cells(Satır, 55) = Mid(kayıt, 54, 1) ' 54
Cells(Satır, 56) = Mid(kayıt, 55, 1) ' 55
Cells(Satır, 57) = Mid(kayıt, 56, 1) ' 56
Cells(Satır, 58) = Mid(kayıt, 57, 1) ' 57
Cells(Satır, 59) = Mid(kayıt, 58, 1) ' 58
Cells(Satır, 60) = Mid(kayıt, 59, 1) ' 59
Cells(Satır, 61) = Mid(kayıt, 60, 1) ' 60
Cells(Satır, 62) = Mid(kayıt, 61, 1) ' 61
Cells(Satır, 63) = Mid(kayıt, 62, 1) ' 62
Cells(Satır, 64) = Mid(kayıt, 63, 1) ' 63
Cells(Satır, 65) = Mid(kayıt, 64, 1) ' 64
Cells(Satır, 66) = Mid(kayıt, 65, 1) ' 65
Cells(Satır, 67) = Mid(kayıt, 66, 1) ' 66
Cells(Satır, 68) = Mid(kayıt, 67, 1) ' 67
Cells(Satır, 69) = Mid(kayıt, 68, 1) ' 68
Cells(Satır, 70) = Mid(kayıt, 69, 1) ' 69
Cells(Satır, 71) = Mid(kayıt, 70, 1) ' 70
Cells(Satır, 72) = Mid(kayıt, 71, 1) ' 71
Cells(Satır, 73) = Mid(kayıt, 72, 1) ' 72
Cells(Satır, 74) = Mid(kayıt, 73, 1) ' 73
Cells(Satır, 75) = Mid(kayıt, 74, 1) ' 74
Cells(Satır, 76) = Mid(kayıt, 75, 1) ' 75
Cells(Satır, 77) = Mid(kayıt, 76, 1) ' 76
Cells(Satır, 78) = Mid(kayıt, 77, 1) ' 77
Cells(Satır, 79) = Mid(kayıt, 78, 1) ' 78
Cells(Satır, 80) = Mid(kayıt, 79, 1) ' 79
Cells(Satır, 81) = Mid(kayıt, 80, 1) ' 80
Cells(Satır, 82) = Mid(kayıt, 81, 1) ' 81
Cells(Satır, 83) = Mid(kayıt, 82, 1) ' 82
Cells(Satır, 84) = Mid(kayıt, 83, 1) ' 83
Cells(Satır, 85) = Mid(kayıt, 84, 1) ' 84
Cells(Satır, 86) = Mid(kayıt, 85, 1) ' 85
Cells(Satır, 87) = Mid(kayıt, 86, 1) ' 86
Cells(Satır, 88) = Mid(kayıt, 87, 1) ' 87
Cells(Satır, 89) = Mid(kayıt, 88, 1) ' 88
Cells(Satır, 90) = Mid(kayıt, 89, 1) ' 89
Cells(Satır, 91) = Mid(kayıt, 90, 1) ' 90
Cells(Satır, 92) = Mid(kayıt, 91, 1) ' 91
Cells(Satır, 93) = Mid(kayıt, 92, 1) ' 92
Cells(Satır, 94) = Mid(kayıt, 93, 1) ' 93
Cells(Satır, 95) = Mid(kayıt, 94, 1) ' 94
Cells(Satır, 96) = Mid(kayıt, 95, 1) ' 95
Cells(Satır, 97) = Mid(kayıt, 96, 1) ' 96
Cells(Satır, 98) = Mid(kayıt, 97, 1) ' 97
Cells(Satır, 99) = Mid(kayıt, 98, 1) ' 98
Cells(Satır, 100) = Mid(kayıt, 99, 1) ' 99
Cells(Satır, 101) = Mid(kayıt, 100, 1) ' 100
Cells(Satır, 102) = Mid(kayıt, 101, 1) ' 101
Cells(Satır, 103) = Mid(kayıt, 102, 1) ' 102
Cells(Satır, 104) = Mid(kayıt, 103, 1) ' 103
Cells(Satır, 105) = Mid(kayıt, 104, 1) ' 104
Cells(Satır, 106) = Mid(kayıt, 105, 1) ' 105
Cells(Satır, 107) = Mid(kayıt, 106, 1) ' 106
Cells(Satır, 108) = Mid(kayıt, 107, 1) ' 107
Cells(Satır, 109) = Mid(kayıt, 108, 1) ' 108
Cells(Satır, 110) = Mid(kayıt, 109, 1) ' 109
Cells(Satır, 111) = Mid(kayıt, 110, 1) ' 110
Cells(Satır, 112) = Mid(kayıt, 111, 1) ' 111
Cells(Satır, 113) = Mid(kayıt, 112, 1) ' 112
Cells(Satır, 114) = Mid(kayıt, 113, 1) ' 113
Cells(Satır, 115) = Mid(kayıt, 114, 1) ' 114
Cells(Satır, 116) = Mid(kayıt, 115, 1) ' 115
Cells(Satır, 117) = Mid(kayıt, 116, 1) ' 116
Cells(Satır, 118) = Mid(kayıt, 117, 1) ' 117
Cells(Satır, 119) = Mid(kayıt, 118, 1) ' 118
Cells(Satır, 120) = Mid(kayıt, 119, 1) ' 119
Cells(Satır, 121) = Mid(kayıt, 120, 1) ' 120
Cells(Satır, 122) = Mid(kayıt, 121, 1) ' 121
Cells(Satır, 123) = Mid(kayıt, 122, 1) ' 122
Cells(Satır, 124) = Mid(kayıt, 123, 1) ' 123
Cells(Satır, 125) = Mid(kayıt, 124, 1) ' 124
Cells(Satır, 126) = Mid(kayıt, 125, 1) ' 125
Cells(Satır, 127) = Mid(kayıt, 126, 1) ' 126
Cells(Satır, 128) = Mid(kayıt, 127, 1) ' 127
Cells(Satır, 129) = Mid(kayıt, 128, 1) ' 128
Cells(Satır, 130) = Mid(kayıt, 129, 1) ' 129
Cells(Satır, 131) = Mid(kayıt, 130, 1) ' 130
Cells(Satır, 132) = Mid(kayıt, 131, 1) ' 131
Cells(Satır, 133) = Mid(kayıt, 132, 1) ' 132
Cells(Satır, 134) = Mid(kayıt, 133, 1) ' 133
Cells(Satır, 135) = Mid(kayıt, 134, 1) ' 134
Cells(Satır, 136) = Mid(kayıt, 135, 1) ' 135
Cells(Satır, 137) = Mid(kayıt, 136, 1) ' 136
Cells(Satır, 138) = Mid(kayıt, 137, 1) ' 137
Cells(Satır, 139) = Mid(kayıt, 138, 1) ' 138
Cells(Satır, 140) = Mid(kayıt, 139, 1) ' 139
Cells(Satır, 141) = Mid(kayıt, 140, 1) ' 140
Cells(Satır, 142) = Mid(kayıt, 141, 1) ' 141
Cells(Satır, 143) = Mid(kayıt, 142, 1) ' 142
Cells(Satır, 144) = Mid(kayıt, 143, 1) ' 143
Cells(Satır, 145) = Mid(kayıt, 144, 1) ' 144
Cells(Satır, 146) = Mid(kayıt, 145, 1) ' 145
Cells(Satır, 147) = Mid(kayıt, 146, 1) ' 146
Cells(Satır, 148) = Mid(kayıt, 147, 1) ' 147
Cells(Satır, 149) = Mid(kayıt, 148, 1) ' 148
Cells(Satır, 150) = Mid(kayıt, 149, 1) ' 149
Cells(Satır, 151) = Mid(kayıt, 150, 1) ' 150
Cells(Satır, 152) = Mid(kayıt, 151, 1) ' 151
Cells(Satır, 153) = Mid(kayıt, 152, 1) ' 152
Cells(Satır, 154) = Mid(kayıt, 153, 1) ' 153
Cells(Satır, 155) = Mid(kayıt, 154, 1) ' 154
Cells(Satır, 156) = Mid(kayıt, 155, 1) ' 155
Cells(Satır, 157) = Mid(kayıt, 156, 1) ' 156
Cells(Satır, 158) = Mid(kayıt, 157, 1) ' 157
Cells(Satır, 159) = Mid(kayıt, 158, 1) ' 158
Cells(Satır, 160) = Mid(kayıt, 159, 1) ' 159
Cells(Satır, 161) = Mid(kayıt, 160, 1) ' 160
Cells(Satır, 162) = Mid(kayıt, 161, 1) ' 161
Cells(Satır, 163) = Mid(kayıt, 162, 1) ' 162
Cells(Satır, 164) = Mid(kayıt, 163, 1) ' 163
Cells(Satır, 165) = Mid(kayıt, 164, 1) ' 164
Cells(Satır, 166) = Mid(kayıt, 165, 1) ' 165
Cells(Satır, 167) = Mid(kayıt, 166, 1) ' 166
Cells(Satır, 168) = Mid(kayıt, 167, 1) ' 167
Cells(Satır, 169) = Mid(kayıt, 168, 1) ' 168
Cells(Satır, 170) = Mid(kayıt, 169, 1) ' 169
Cells(Satır, 171) = Mid(kayıt, 170, 1) ' 170
Cells(Satır, 172) = Mid(kayıt, 171, 1) ' 171
Cells(Satır, 173) = Mid(kayıt, 172, 1) ' 172
Cells(Satır, 174) = Mid(kayıt, 173, 1) ' 173
Cells(Satır, 175) = Mid(kayıt, 174, 1) ' 174
Cells(Satır, 176) = Mid(kayıt, 175, 1) ' 175
Cells(Satır, 177) = Mid(kayıt, 176, 1) ' 176
Cells(Satır, 178) = Mid(kayıt, 177, 1) ' 177
Cells(Satır, 179) = Mid(kayıt, 178, 1) ' 178
Cells(Satır, 180) = Mid(kayıt, 179, 1) ' 179
Cells(Satır, 181) = Mid(kayıt, 180, 1) ' 180
Cells(Satır, 182) = Mid(kayıt, 181, 1) ' 181
Cells(Satır, 183) = Mid(kayıt, 182, 1) ' 182
Cells(Satır, 184) = Mid(kayıt, 183, 1) ' 183
Cells(Satır, 185) = Mid(kayıt, 184, 1) ' 184
Cells(Satır, 186) = Mid(kayıt, 185, 1) ' 185
Cells(Satır, 187) = Mid(kayıt, 186, 1) ' 186
Cells(Satır, 188) = Mid(kayıt, 187, 1) ' 187
Cells(Satır, 189) = Mid(kayıt, 188, 1) ' 188
Cells(Satır, 190) = Mid(kayıt, 189, 1) ' 189
Cells(Satır, 191) = Mid(kayıt, 190, 1) ' 190
Cells(Satır, 192) = Mid(kayıt, 191, 1) ' 191
Cells(Satır, 193) = Mid(kayıt, 192, 1) ' 192
Cells(Satır, 194) = Mid(kayıt, 193, 1) ' 193
Cells(Satır, 195) = Mid(kayıt, 194, 1) ' 194
Cells(Satır, 196) = Mid(kayıt, 195, 1) ' 195
Cells(Satır, 197) = Mid(kayıt, 196, 1) ' 196
Cells(Satır, 198) = Mid(kayıt, 197, 1) ' 197
Cells(Satır, 199) = Mid(kayıt, 198, 1) ' 198
Cells(Satır, 200) = Mid(kayıt, 199, 1) ' 199
Cells(Satır, 201) = Mid(kayıt, 200, 1) ' 200
Cells(Satır, 202) = Mid(kayıt, 201, 1) ' 201
Cells(Satır, 203) = Mid(kayıt, 202, 1) ' 202
Cells(Satır, 204) = Mid(kayıt, 203, 1) ' 203
Cells(Satır, 205) = Mid(kayıt, 204, 1) ' 204
Cells(Satır, 206) = Mid(kayıt, 205, 1) ' 205
Cells(Satır, 207) = Mid(kayıt, 206, 1) ' 206
Cells(Satır, 208) = Mid(kayıt, 207, 1) ' 207
Cells(Satır, 209) = Mid(kayıt, 208, 1) ' 208
Cells(Satır, 210) = Mid(kayıt, 209, 1) ' 209
Cells(Satır, 211) = Mid(kayıt, 210, 1) ' 210
Cells(Satır, 212) = Mid(kayıt, 211, 1) ' 211
Cells(Satır, 213) = Mid(kayıt, 212, 1) ' 212
Cells(Satır, 214) = Mid(kayıt, 213, 1) ' 213
Cells(Satır, 215) = Mid(kayıt, 214, 1) ' 214
Cells(Satır, 216) = Mid(kayıt, 215, 1) ' 215
Cells(Satır, 217) = Mid(kayıt, 216, 1) ' 216
Cells(Satır, 218) = Mid(kayıt, 217, 1) ' 217
Cells(Satır, 219) = Mid(kayıt, 218, 1) ' 218
Cells(Satır, 220) = Mid(kayıt, 219, 1) ' 219
Cells(Satır, 221) = Mid(kayıt, 220, 1) ' 220
Cells(Satır, 222) = Mid(kayıt, 221, 1) ' 221
Cells(Satır, 223) = Mid(kayıt, 222, 1) ' 222
Cells(Satır, 224) = Mid(kayıt, 223, 1) ' 223
Cells(Satır, 225) = Mid(kayıt, 224, 1) ' 224
Cells(Satır, 226) = Mid(kayıt, 225, 1) ' 225
Cells(Satır, 227) = Mid(kayıt, 226, 1) ' 226
Cells(Satır, 228) = Mid(kayıt, 227, 1) ' 227
Cells(Satır, 229) = Mid(kayıt, 228, 1) ' 228
Cells(Satır, 230) = Mid(kayıt, 229, 1) ' 229
Cells(Satır, 231) = Mid(kayıt, 230, 1) ' 230
Cells(Satır, 232) = Mid(kayıt, 231, 1) ' 231
Cells(Satır, 233) = Mid(kayıt, 232, 1) ' 232
Cells(Satır, 234) = Mid(kayıt, 233, 1) ' 233
Cells(Satır, 235) = Mid(kayıt, 234, 1) ' 234
Cells(Satır, 236) = Mid(kayıt, 235, 1) ' 235
Cells(Satır, 237) = Mid(kayıt, 236, 1) ' 236
Cells(Satır, 238) = Mid(kayıt, 237, 1) ' 237
Cells(Satır, 239) = Mid(kayıt, 238, 1) ' 238
Cells(Satır, 240) = Mid(kayıt, 239, 1) ' 239
Cells(Satır, 241) = Mid(kayıt, 240, 1) ' 240
Cells(Satır, 242) = Mid(kayıt, 241, 1) ' 241
Cells(Satır, 243) = Mid(kayıt, 242, 1) ' 242
Cells(Satır, 244) = Mid(kayıt, 243, 1) ' 243
Cells(Satır, 245) = Mid(kayıt, 244, 1) ' 244
Cells(Satır, 246) = Mid(kayıt, 245, 1) ' 245
Cells(Satır, 247) = Mid(kayıt, 246, 1) ' 246
Cells(Satır, 248) = Mid(kayıt, 247, 1) ' 247
Cells(Satır, 249) = Mid(kayıt, 248, 1) ' 248
Cells(Satır, 250) = Mid(kayıt, 249, 1) ' 249
Cells(Satır, 251) = Mid(kayıt, 250, 1) ' 250
Cells(Satır, 252) = Mid(kayıt, 251, 1) ' 251
Cells(Satır, 253) = Mid(kayıt, 252, 1) ' 252
Cells(Satır, 254) = Mid(kayıt, 253, 1) ' 253
Cells(Satır, 255) = Mid(kayıt, 254, 1) ' 254
Cells(Satır, 256) = Mid(kayıt, 255, 1) ' 255
Cells(Satır, 257) = Mid(kayıt, 256, 1) ' 256
Cells(Satır, 258) = Mid(kayıt, 257, 1) ' 257
Cells(Satır, 259) = Mid(kayıt, 258, 1) ' 258
Cells(Satır, 260) = Mid(kayıt, 259, 1) ' 259
Cells(Satır, 261) = Mid(kayıt, 260, 1) ' 260
Cells(Satır, 262) = Mid(kayıt, 261, 1) ' 261
Cells(Satır, 263) = Mid(kayıt, 262, 1) ' 262
Cells(Satır, 264) = Mid(kayıt, 263, 1) ' 263
Cells(Satır, 265) = Mid(kayıt, 264, 1) ' 264
Cells(Satır, 266) = Mid(kayıt, 265, 1) ' 265
Cells(Satır, 267) = Mid(kayıt, 266, 1) ' 266
Cells(Satır, 268) = Mid(kayıt, 267, 1) ' 267
Cells(Satır, 269) = Mid(kayıt, 268, 1) ' 268
Cells(Satır, 270) = Mid(kayıt, 269, 1) ' 269
Cells(Satır, 271) = Mid(kayıt, 270, 1) ' 270
Cells(Satır, 272) = Mid(kayıt, 271, 1) ' 271
Cells(Satır, 273) = Mid(kayıt, 272, 1) ' 272
Cells(Satır, 274) = Mid(kayıt, 273, 1) ' 273
Cells(Satır, 275) = Mid(kayıt, 274, 1) ' 274
Cells(Satır, 276) = Mid(kayıt, 275, 1) ' 275
Cells(Satır, 277) = Mid(kayıt, 276, 1) ' 276
Cells(Satır, 278) = Mid(kayıt, 277, 1) ' 277
Cells(Satır, 279) = Mid(kayıt, 278, 1) ' 278
Cells(Satır, 280) = Mid(kayıt, 279, 1) ' 279
Cells(Satır, 281) = Mid(kayıt, 280, 1) ' 280
Cells(Satır, 282) = Mid(kayıt, 281, 1) ' 281
Cells(Satır, 283) = Mid(kayıt, 282, 1) ' 282
Cells(Satır, 284) = Mid(kayıt, 283, 1) ' 283
Cells(Satır, 285) = Mid(kayıt, 284, 1) ' 284
Cells(Satır, 286) = Mid(kayıt, 285, 1) ' 285
Cells(Satır, 287) = Mid(kayıt, 286, 1) ' 286
Cells(Satır, 288) = Mid(kayıt, 287, 1) ' 287
Cells(Satır, 289) = Mid(kayıt, 288, 1) ' 288
Cells(Satır, 290) = Mid(kayıt, 289, 1) ' 289
Cells(Satır, 291) = Mid(kayıt, 290, 1) ' 290
Cells(Satır, 292) = Mid(kayıt, 291, 1) ' 291
Cells(Satır, 293) = Mid(kayıt, 292, 1) ' 292
Cells(Satır, 294) = Mid(kayıt, 293, 1) ' 293
Cells(Satır, 295) = Mid(kayıt, 294, 1) ' 294
Cells(Satır, 296) = Mid(kayıt, 295, 1) ' 295
Cells(Satır, 297) = Mid(kayıt, 296, 1) ' 296
Cells(Satır, 298) = Mid(kayıt, 297, 1) ' 297
Cells(Satır, 299) = Mid(kayıt, 298, 1) ' 298
Cells(Satır, 300) = Mid(kayıt, 299, 1) ' 299
Loop
Close #1
Cells.EntireColumn.AutoFit
MsgBox "İŞLEM TAMAM"
Sheets("Anasayfa").Select
Calculate
End Sub
Function Convert(Veri As String)
Veri = Replace(Veri, Chr(154), "Ü")
Veri = Replace(Veri, Chr(166), "Ğ")
Veri = Replace(Veri, Chr(158), "Ş")
Veri = Replace(Veri, Chr(128), "Ç")
Veri = Replace(Veri, Chr(153), "Ö")
Veri = Replace(Veri, Chr(152), "İ")
Convert = Replace(Veri, Chr(15), "")
End Function