İki veriyi şartlı birleştiren makro

[byfika]

B sütunundaki verinin ilk üç harfini alıp arkasına -0001 den itibaren veri girildikçe rakam yazan makro nasıl olabilir. Bilgi için şimdiden teşekkürler.

 

[BG]

B sütunundaki verinin ilk üç harfini alıp arkasına -0001 den itibaren veri girildikçe rakam yazan makro nasıl olabilir. Bilgi için şimdiden teşekkürler.

Merhaba,
Örnek dosya ekler misiniz? bu şekilde yorumlamak oldukça güç!

 

[Ziynettin]

B sütununa veri girildiğinde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Son As Integer, Sira_No As String, Say As Integer
Dim a(), X As Integer
On Error Resume Next
If Target.Column = 2 And Target.Row > 3 Then
    Son = Target.Row
    a = Range("B4:B" & Son)
    Sira_No = Target.Text
    For X = 1 To UBound(a)
        If a(X, 1) = Sira_No Then
            Say = Say + 1
        End If
    Next X
    Target.Offset(, 1) = Left(Target.Text, 3) & "-000" & Say
End If
End Sub

 

[byfika]

Sayın Ziynettin, çok teşekkürler, kodu sayfasına yazılınca kod çalıştı. Tekrar bilgileriniz için çok çok teşekkürler.