Makro ile texti ayırma

[rtk19641990]

Merhaba,
Kolon aşağıdaki değerleri içeriyor. Yapmak istediğim baştan ve sondan 4 karakateri atıp bu kolonda sadece TR,GB NL kalması.
TCZBTR2AXXX TR
AKBKTRISXXX TR
TGBATRISXXX TR
BARCGB22BEL GB
INGBNL2AXXX NL

Saygılarımla,

 

[rhombeus]

Ekteki dosyayı incelermisiniz?

İyi Çalışmalar..

 

[rtk19641990]

Teşekkür ederim. Formülle yapabiliyorum da makro içine yerleştirmeyi beceremedim

 

[rhombeus]

Kusura bakmayın ekteki dosyaya bakabilirmisniz?

 

[Orion1]

Dosyanız ektedir.

Sub parca_al_59()
Dim i As Long
Range("B:B").Clear
son = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To son
    Cells(i, "B").Value = Mid(Cells(i, "A").Value, 4, 2)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

 

[rtk19641990]

sizi uğraştırıyorum ama command button suz olabilir mi?

 

[rhombeus]

Olurmu hiç öyle şey,

Evren Bey' in vermiş olduğu kodu:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

altına yapıştırısanız istedğiniz olacaktır.

 

[rtk19641990]

Çok uzun sürdü. yaklaşık 8000 satırlık bir verim var. Forumda bir yerlerde makronun içinde right olarak kullanılmış olan vardı Onu mid ile değiştirip istediğimi yapmıştım ama mesajı bulamıyorum :

 

[rtk19641990]

Ben aynı kolon yani A kolonunda :
TR
TR
TR
GB
NL
olarak yapabilmeyi istiyorum. B de değil!

 

[rtk19641990]

Yardım rica edebilir miyim lütfen

 

[rtk19641990]

yok mu bana yardım edecek

 

[Necdet]

Merhaba,

Evren Bey size yol göstermiş, B sütunu değil A sütunu üzerinde işlem yapmasını isterseniz, Evren beyin kodlarındaki :

[COLOR=red][B]Cells(i, "B").Value[/B][/COLOR] = Mid(Cells(i, "A").Value, 4, 2)

Cells(i, "B").Value yerine Cells(i, "A").Value yazınız.

 

[rtk19641990]

Dediğiniz gibi yaptım da biraz uzun sürüyor. yaklaşık 7500 kayıt var. Hızlı olması için birşeyler yapılabilir mi?