Bir sütuna yazılan verideki sayısal ifadeyi soldaki hucreye yazdırmak

[u.L.a.s]

Merhabalar
Asagidaki veriyi b2 hücresine yazdıgimda a2 hücresine 11234 verisini yazsın b2 de ise Birverivarelimizde kalsın
Bunu b sütunun herhangi bir hücreye yazdıgımızda a sütununda karsiligina gelecek sekilde olan bir makro koduna ihtiyacım var bilgi ve yardıminızı rica ederim

"Birverivarelimizde -11234 seklinde"

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Mtn() As String
    Dim Bak As Integer
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Mtn = Split(Target.Text, " ")
        If UBound(Mtn) >= 0 Then
            For Bak = 0 To UBound(Mtn)
                If IsNumeric(Mtn(Bak)) Then
                    Application.EnableEvents = False
                    Target.Value = Mtn(0)
                    Cells(Target.Row, "A") = Mtn(Bak)
                    Application.EnableEvents = True
                    Exit For
                End If
            Next
        End If
    End If
End Su