parça al makrosu

[aptillah]

merhabalar

Label1.Caption = Mid(ActiveCell.Value, 1, 4)

bu kod ile aktif satırdan parça alabiliyorum.Fakat hücrelerdeki kelime aralarında "-" işareti var.
abdullah - 5854858 - 500 tl - 24.12 - istanbul
Ben üçüncü "-" işaretinden sonraki kelimeden parça almasını istiyorum.

 

[PLİNT]

Merhaba
Şöyle deneyin.("istanbul" u alır)

Label1.Caption = Split(ActiveCell.Value, "-")(4)

"istanbul" un 4 harfi için:

Label1.Caption = Mid(Trim(Split(ActiveCell.Value, "-")(4)), 1, 4)

 

[NBATMAN]

Merhaba,

aşağıdaki kodları da kullanabilirsiniz.

Dim aranacak As String
Dim aranan As String
Dim k1 As Integer
Dim k2 As Integer
Dim k3 As Integer

On Error Resume Next
aranan = "-" ' aranan değişkenine bilgi aktarılır...
aranacak = ActiveCell.Value 'aranacak değişkene aktif hücrede bulunan veri alınır.

k1 = InStr(1, aranacak, aranan) ' K1 değişkenine; aranacak değer içindeki aranan karakterin bulunduğu ilk yerin pozisyonu (sırası) aktarılır.
k2 = InStr(k1 + 1, aranacak, aranan) ' K2 değişkenine; aranacak değer içindeki aranan karakterin bulunduğu 2. yerin pozisyonu (sırası) aktarılır.
k3 = InStr(k2 + 1, aranacak, aranan) ' K3 değişkenine; aranacak değer içindeki aranan karakterin bulunduğu 3. yerin pozisyonu (sırası) aktarılır.
Label1.Caption = Mid(ActiveCell.Value, k3 + 1, 4)

 

[aptillah]

Yardımlarınız için teşekkür ederim