Stok sayfasına girilen değeri 100 e tamamlamak

[hassan26]

Selam arkadaşlar.
Sorumu örnek tabloda yazdım sayıları çoğaltma işlemi ne güzel makro ile yapılıyordu ama başına metinsel ifade girince işler karıştı.
1.Sayacı aktif hücre gösterip döngüyle olurmu bu işlem.
2.Yada WorkSheets_Change olayına yazılırmı.
Aşağı ve yana doğru sürükleme ile rakamları sıralı şekilde dizme olayını verilecek bir komutla otomatikleştirmek kısacası.
Saygılar.

 

[hassan26]

Selam
Range("B4").Select
Selection.AutoFill Destination:=Range("B4:CW4"), Type:=xlFillDefault
Yuakarıdaki formü hücre ismi belirtmeden aktif hücreye göre uyarlanırmı

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg, i As Integer, sayi As String, deg2 As String
If Intersect(Target, Range("B2:IV65536")) Is Nothing Then Exit Sub
On Error GoTo atla
Application.EnableEvents = False
deg = Split(Target.Value, "-")
sayi = deg(UBound(deg))
If IsNumeric(sayi) Then sayi = CDbl(sayi) + 100
For i = 0 To UBound(deg) - 1
    deg2 = deg2 & "-" & deg(i)
Next i
If deg2 <> "" Then
    deg2 = Right(deg2, Len(deg2) - 1)
    Target.Value = deg2 & "-" & sayi
End If
Application.EnableEvents = True
Exit Sub
atla:
Target.Clear
Application.EnableEvents = True
End Sub

 

[hassan26]

Sayın Gizlen teşekkür ederim emek vermişsin ama ya ben yanlış sordum yada anlatamadım.
Excel tablosunda hani iki hücreye yanyana yada alt alta 1-2 yazarsın birleştirip aşağı veya yana doğru sürükleme ile rakamları sıralı şekilde dizme olayı vardır ya işte bu işlemi Userformda Textbox15'e değeri girip stok sayfasına ekle butonuna basınca B kolonunda ilgili sıraya aktarılıyor. Bu aktarma işleminden hemen sonra tobloda otomatik olarak yukarıda bahsettiğim işlemi yaptırmak yani atıyorum B5 hücresine M-94201 verisi aktarılınca +1 ekleyerek sağa doğru tabloda CW sütununa kadar tek tek yazarak M-94300 e tamamlamak. Sizin verdiğiniz kodda yazılan sayıya 100 ekleniyor. Yanlış sormuş isem kusura bakmayın.
Saygılar.

 

[hassan26]

Sayın Gizlen sayfayı düzenledim fakat bir ricam olacak TextBox15' değer girilince girilen bu değere (sayı kaç haneli olursa olsun) TextBox16'ya +100 eklenmiş hali otomatik nasıl yazdırabilrim. Tabi TextBox15'de sayı başında M yazıyorsa TextBox16'daki sayı başındada M olacak K yazıyorsa 16'ya K vs.... Sizin Worksheet_Change olayına yazdığınız işlemi TextBox16'ya uyarlayabilirmiyiz.