Otomatik kod türetme

[jimiemre]

Sayın arkadaşlar merhaba. Excel dosyasını ekte yolluyorum. Sorum şu;

A-1 HÜCRESİNDEKİ KODUN SONUNU BİR DÜĞMEYE BASARAK NASIL BİR ARTTIRABİLİRİM

EĞER O OLMAZSA KODUN SONUNDAKİ SAYIYI OTOMATİK TÜRET SEÇENEĞİ İLE MOUSE KULLANMADAN NASIL 1 ARTTIRABİLiRİM.

 

[hamitcan]

Private Sub CommandButton1_Click()
    a = Replace([a1], ".", "") + 1
    For i = Len(a) To 4 Step -2
        b = Mid(a, i - 1, 2) & "." & b
    Next
    [a1] = "151." & Left(b, Len(b) - 1)
End Sub

 

[BG]

Merhaba

Sayın arkadaşlar merhaba. Excel dosyasını ekte yolluyorum. Sorum şu;

A-1 HÜCRESİNDEKİ KODUN SONUNU BİR DÜĞMEYE BASARAK NASIL BİR ARTTIRABİLİRİM

EĞER O OLMAZSA KODUN SONUNDAKİ SAYIYI OTOMATİK TÜRET SEÇENEĞİ İLE MOUSE KULLANMADAN NASIL 1 ARTTIRABİLiRİM.

Alternatif olarak dosyanız ektedir.

 

[jimiemre]

Hocam peki bu otomatik sayı türetmeyi mouse kullanmadan, klavye ile nasıl yaparız

 

[jimiemre]

Sayın hocalarım ilginiz için teşekkurler

 

[Orion1]

Şimdi soruyu soran kişi pek açıklayıcı sormamış olabilir ama eğer noktadan sağındaki sayı tamamlandığında noktatan solundaki sayı 1 artacak şekilde istediyse durum karışır.
125.25.26.99
mesela yukarıdaki sayı 1 arttığında 125.25.27.00 olsun istiyor olabilir.
Ayni şekilde diğer noktalandırmalarıda istiyor olabilir.