Virgülle Düşey Ayırma

[leonadies]

Arkadaşlar Merhaba; K3 hücresinde var olan virgüllü ifadeleri kaç adet olursa olsun, resimdeki gibi S sütununa Sıra numarası, T sütununa da kendisini yazdırmak istiyorum. Özetle istediğim sonuç S:T resimde var.

 

[Korhan Ayhan]

Sadece K3 hücresi için mi istiyorsunuz. Yoksa alt hücreler var mı?

 

[leonadies]

sadece K3 Korhan Hocam

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Ayir()
    Dim S1 As Worksheet, Veri As Variant
   
    Set S1 = Sheets("Sayfa1")
   
    If InStr(1, S1.Range("K3").Value, ",") = 0 Then Exit Sub
   
    Veri = Split(S1.Range("K3").Value, ", ")
   
    Range("S:T").ClearContents
   
    Range("S1:S" & UBound(Veri) + 1).Value = Evaluate("=ROW(1:" & UBound(Veri) + 1 & ")")
    Range("T1:T" & UBound(Veri) + 1).Value = Application.Transpose(Veri)

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[leonadies]

@Korhan Ayhan hocam eline sağlık. Çalışıyor makro ancak tesadüfen denk geldim. virgülden sonra boşluk olmazsa ayırma işlemi yapmıyor. bu ihtimal düşünülerek bir düzeltme yapabilir miyiz makroda ?

 

[Korhan Ayhan]

Split komutunun içindeki ", " bölümündeki boşluğu silip kullanabilirsiniz.

 

[leonadies]

Teşekkür ederim