Makro karşılığı nedir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyadaki işlemi makro ile nasıl yaparız?
Saygılarımla

 

[Cengiz Demir]

Daha kısa ve farklı yöntemlerle mutlaka yapılabiliyordur.

Formüllerinizin birebir karşılığı olmasa bile;
bu kodla ,ayrıma yapılacak verinin bulunduğu hücreyi seçtiğinizde işlemi yapar.
Birden fazla alt alta işlem yaptıracaksanız onun için de döngü kurabilirsiniz.

Dim t As Integer

Sub AYIR()

uzn = Len(ActiveCell.Value)
sat = ActiveCell.Row

    For t = 1 To uzn
   
       If Mid(ActiveCell.Value, t, 1) = "," Then Exit For
             
    Next t

    Cells(sat, 4) = Mid(ActiveCell.Value, 1, t - 1)
    Cells(sat, 5) = Mid(ActiveCell.Value, t + 1, uzn - t + 1)
       
End Sub

 

[Tevfik_Kursun]

İginize çok teşekkür ederim
Saygılarımla

 

[Cengiz Demir]

Rica ederim

İginize çok teşekkür ederim
Saygılarımla

 

[veyselemre]

Sub test()

    Dim i&, bol As Variant, al$

    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        al = Cells(i, 2).Value
        If InStr(al, ",") Then
            bol = Split(al, ",")
            Cells(i, 4).Value = bol(1)
            Cells(i, 5).Value = bol(0)
        Else
            Cells(i, 4).Value = al
        End If
    Next i

End Sub

 

[Tevfik_Kursun]

Sayın Veysel Emre,
İlginize çok teşekkür ederim
Saygılarımla