[Çözüldü] Veriyi Kategoristik Sıralarken Yaşadığım Problem

[xwyz]

Evet bunun için virgülden önceki 1. konu alınsın.
TEMİZLİK MALZEMELERİ, HAVUZ
Virgülden önce, Temizlik Malzemeleri mevcut. Bunun sektörüne alınsın.

[Excelce.Net]

Şu şekilde dener misiniz?

Kod: [Seç]

Sub excelce()
On Error Resume Next
For Each aranan In Worksheets("İşlem").Range("E2:E" & Worksheets("İşlem").Range("E65530").End(3).Row)
        virgul = VBA.InStr(1, aranan, ",", 0) - 1
        If virgul < 1 Then virgul = Len(aranan)
         bulunan = VBA.Left(aranan, virgul)
    For Each bakilan In Worksheets("Rawsource").Range("B3:B" & Worksheets("Rawsource").Range("B65530").End(3).Row)
            If bulunan & "*" Like bakilan & "*" Then
                aranan.Offset(0, -1) = bakilan.Offset(0, -1): Exit For
            End If
    Next bakilan
Next aranan
MsgBox "Bitti.", vbInformation, "Excelce.net"
End Sub

[xwyz]

Yok olmadı ayrıca Evren beyinkini şöyle düzenleyemezmiyiz, ben denedim ama başaramadım. Şimdi diğer sektörleri bir sonraki hücreye yazıyor. Sadece yazmamasını inaktif etsek yeter yoksa çalışıyor kodu.

[Excelce.Net]

Yok olmadı

Hiç mi çalışmadı?
Yanlış mı işlem yaptı?

Evren beyinkini şöyle düzenleyemezmiyiz...

Onu Evren Bey daha iyi düzenler. Müsait olmasını bekleyelim isterseniz...

[xwyz]

Çalıştı ancak %30 bulma oranı ile...

[Excelce.Net]

Yazım farklılıklarından olabilir mi?

Büyük İ, küçük i  falan farklılıkları?..

[xwyz]

Hayır.

[Excelce.Net]

İnceler misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[xwyz]

Waaow olmuş Teşekkürler 

[Excelce.Net]

Çok şükür. 

Rica ederim.
Çalışmalarınızda başarılar.