Sağdaki harfleri sayıya rastlayana kadar parça al

[mdagistanli]

Merhaba.
Görüntüdeki dosyanın A sütununda yedek parça numarası var. Sonraki harfler marka kodunu ifade ediyor. Orjinal parça numarasına marka kodu ekleyerek sisteme kaydediyoruz çünkü aynı parçanın farklı markaları var. Amerika, İtalya, İngiltere gibi.
B ve C sütununda olduğu gibi bazen asıl parça numarasını ve marka kodunu ayırmam gerekiyor.

Marka kodunu silmeyle ilgili destek aldım, uyguladım. VB bilgim sıfır. Şimdi marka kodunu sütuna ayırmak istiyorum.

Parça numalararı mutlaka sayı ile bitiyor ve bütün marka kodlarımız harflerden oluşuyor.
Yani sağdaki harfleri, sayıya rastlayana kadar parça olarak almak istiyorum.

Marka kodunu silen fonksiyon şöyle;

Option Explicit

Public Function MARKAKODSİL(metin As String) As String
Dim uzunluk, i As Integer

uzunluk = Len(metin)

For i = uzunluk To 1 Step -1

If Not IsNumeric(Right(metin, 1)) Then
    metin = Left(metin, Len(metin) - 1)
Else:
MARKAKODSİL = metin
Exit For
End If

Next

End Function

Desteğinizi rica ederim.

 

[YUSUF44]

Sanırım elinizde A ve B sütunu var ve C sütununu elde etmeye çalışıyorsunuz. Bunun için C2 hücresinde aşağıdaki formülü kullanabilirsiniz:

=YERİNEKOY(A2;B2;"")

 

[mdagistanli]

Hayır örnek olması için gösterdim. Sadece A sütunu var.

 

[YUSUF44]

B sütunu için de yukardaki makro var ya, onu kullanmıyor musunuz?

 

[mdagistanli]

B sütununu fonksiyon ile alabiliyorum. KTF çözümü gelene kadar dediğiniz yöntemle iki aşamada kodları alabilirim.
Teşekkür ederim.

 

[YUSUF44]

Nasıl bir çözüm istiyorsunuz ki? KTF benim bildiğim kullanıcı tanımlı fonksiyondur ve yazıldığı hücrede çalışır. Aynı KTF ile hem B hem de C sütununu mu elde etmek istiyorsunuz?

B sütunu olmadan doğrudan C sütununu elde etmek için aşağıdaki formülü kullanabilirsiniz:

=YERİNEKOY(A2;MARKAKODSİL(A2);"")

 

[mdagistanli]

Bu yöntem de güzel teşekkür ederim. MARKAKODSİL benzeri MARKAKODAL kullanmak istiyorum. Dediğiniz gibi yazıldığı hücrede çalışıyor. YERİNEKOY'A gerek kalmadan, KTF olmalı ki tek formül ile ilave parametre olmaran hızlıca işlem yapayım.

 

[mdagistanli]

İlk görseli ve bahsettiğim KTF'yi yok sayalım. Elimde A sütunu var, bu göselde olduğu gibi B sütununu formülle veya makro ile getirmek istiyorum.

 

[YUSUF44]

Şöyle demek istiyorsunuz galiba

Option Explicit

Public Function MARKAKODAL(metin As String) As String
Dim uzunluk, i As Integer

uzunluk = Len(metin)

For i = uzunluk To 1 Step -1

    If Mid(metin, i, 1) = "1" Or Mid(metin, i, 1) = "2" Or Mid(metin, i, 1) = "3" Or Mid(metin, i, 1) = "4" Or _
        Mid(metin, i, 1) = "5" Or Mid(metin, i, 1) = "6" Or Mid(metin, i, 1) = "7" Or Mid(metin, i, 1) = "8" Or _
        Mid(metin, i, 1) = "9" Or Mid(metin, i, 1) = "0" Then
            MARKAKODAL = Right(metin, uzunluk - i)
            Exit For
    End If
Next

End Function

 

[mdagistanli]

Evet usta tam olarak buydu. Teşekkür ederim.

Diğer KTF'yi eklenti olarak eklemiştim. Bunu da Module2 olarak ilave ettim. Çok iyi oldu.

 

[baydeniro]

Şöyle demek istiyorsunuz galiba

Option Explicit

Public Function MARKAKODAL(metin As String) As String
Dim uzunluk, i As Integer

uzunluk = Len(metin)

For i = uzunluk To 1 Step -1

    If Mid(metin, i, 1) = "1" Or Mid(metin, i, 1) = "2" Or Mid(metin, i, 1) = "3" Or Mid(metin, i, 1) = "4" Or _
        Mid(metin, i, 1) = "5" Or Mid(metin, i, 1) = "6" Or Mid(metin, i, 1) = "7" Or Mid(metin, i, 1) = "8" Or _
        Mid(metin, i, 1) = "9" Or Mid(metin, i, 1) = "0" Then
            MARKAKODAL = Right(metin, uzunluk - i)
            Exit For
    End If
Next

End Function

Teşekkürler üstad

 

[mehmetuca]

Formülle Bulunamaz mı?

 

[Haluk]

Formülle alternatif ekli dosyadadır...

.

 

[merrrakli]

Böyle bir şey mi yapmaya çalıştığınız?

 

[Haluk]

Böyle bir şey mi yapmaya çalıştığınız?

Sadece A sütununu kullanarak, B ve C sütunları oluşturulacak... Yani, elinizde sadece A sütunu var.

.

 

[merrrakli]

Sadece A sütununu kullanarak, B ve C sütunları oluşturulacak... Yani, elinizde sadece A sütunu var.

.

Evet ona dikkat etmeden direk örnek dosya üzerinden yapmıştım.

 

[Korhan Ayhan]

Alternatif;

DİZİ formül;

B2;

=SOLDAN(A2;MAK(ESAYIYSA(--PARÇAAL(A2;SATIR($A$1:$A$255);1))*SATIR($A$1:$A$255)))

C2;

=PARÇAAL(A2;MAK(ESAYIYSA(--PARÇAAL(A2;SATIR($A$1:$A$255);1))*SATIR($A$1:$A$255))+1;10)

 

[merrrakli]

=SOLDAN(A2;MAK(ESAYIYSA(--PARÇAAL(A2;SATIR($A$1:$A$255);1))*SATIR($A$1:$A$255)))

Burada yazılan formülleri deneyerek kendimi geliştirmeye çalışıyorum.

Üstteki formülde PARÇAAL'ın hemen önündeki iki adet tire(--)nin exceldeki ismi nedir? (Bu ismi öğreneyim ki buna göre araştırıp youtubeden video vb. dinleyebileyim...

--PARÇAAL

bu tireler hep böyle çift mi kullanılıyor tek kullanılır mı vb. kısa bir bilgi verebilir misiniz?

 

[Haluk]

"String/Metin" veya "Boolean/Mantıksal" tipte bir veriyi "Numeric" tipe dönüştürmeye yarar...

.

 

[Korhan Ayhan]

İnceleyiniz.

https://www.excel.web.tr/threads/iki-eksi-isaretinin-formuelde-kullanilmasi.71202/

TOPLAM.ÇARPIM Başına eklenen - *1 gibi parametreler ne işe yarıyor?

TOPLAM.ÇARPIM konusunu öğrenmeye çalışıyorum. Youtube ve diğer sitelerde genelde diziler arasındaki ilişkiden bahsedilip genelde benxer örnekler verilmiş ancak TOPLA.ÇARPIM(--($L17:$AO17"")*($L$16:$AO$16=$L17:$AO17)) gibi bir kullanımda kırmızı renkli olan -- karakterlerinin ne işe yaradığından...

www.excel.web.tr