Sıradaki numara verme

[reosman]

Sevgili Üstadlar,
Başlangıç ve bitiş numaraları manuel girilecek.
Başlangıç ve bitiş numaraları aralığında olmak üzere 1'er 1'er arttırarak sıradaki numarayı getirecek.

Sıradaki numara kopyalandıktan sonra işlem sona ererek gerek sıradaki numara veya sıradaki numarayı
getir butonuna basana kadar boş kalacak. Bunu bir türlü beceremedim. Yardımlarınızı rica ediyorum. Saygılarımla.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub nover()
If IsNumeric([B3]) Then
    bas = [B3]
Else
    bas = Right([B3], Len([B3]) - 2)
End If
If IsNumeric([D3]) Then
    bit = [D3]
Else
    bit = Right([D3], Len([D3]) - 2)
End If
If IsNumeric([H3]) Then
    sira = [H3]
Else
    sira = Right([H3], Len([H3]) - 2)
End If
If sira >= bit Then
    MsgBox "Verilecek numara kalmamıştır!", vbInformation
    Exit Sub
ElseIf sira < bas Then
    uyar = MsgBox("Sıradaki numara başlangıç numarasından küçük!" & Chr(10) & "Başlangıç numarası verilsin mi?", vbYesNo)
    If uyar = vbYes Then
        [H3] = [B3]
    Else
        Exit Sub
    End If
Else
    [H3] = Left([B3], 2) & Format(sira + 1, "000000")
End If
End Sub

 

[ekmekevi]

bu işinizi görürmü kontrol ediniz

 

[reosman]

Yusuf44 ve ekmekevi ilginize çok çok teşekkür ederim. Yusuf44 Makro çalışmadı. ekmekevi harf ve rakamların bitişik olması gerekiyor. Sağolun varolun.

 

[YUSUF44]

Çalıştırmadığım makroyu göndermem genelde. Size verdiğim makroyu da örnek dosyanızda farklı alternatiflerle deneyerek hazırlamıştım. Bir şeyleri yanlış yapmış olmalısınız çünkü örnek dosyanızda sorunsuz olarak çalışıyor.

 

[reosman]

Yusuf bey çok çok özür diliyorum. Tüm kodları sildim. Yeniden ekledim. Şu an çalıştı. Çok teşekkür ederim.

 

[reosman]

Yusuf bey, nolur kusuruma bakmayın, sıradaki getir butonuna bir şart koyabilirmiyiz, gelen sıradaki numarayı kopyalamadan veya kesmeden buton tekrar aktif olmasın veya buna benzer bişey, herhangibir butona yanlış basmayla iki defa ilerler ise önceki numaraya geri dönebilmek içinde bir buton olabilir. Vereceğiniz emek için şimdiden teşekkür ederim. İyiki varsınız.

 

[YUSUF44]

Kopyaladıktan sonra ne yapılacak? Başka bir deyişle bu numarayı nasıl kullanacaksınız?

 

[reosman]

burdan kopyalanan numara web tabanlı programa yapıştırılacak. Bir Tamam butonu olsa ve bastıktan sonra sıradaki numarayı getir aktif olsa da olur. Teşekkür ederim.

 

[reosman]

Müsait olunca bir yardımcı olursanız sevinirim. Hayırlı geceler dilerim.

 

[YUSUF44]

Ekli dosyayı inceleyiniz.

 

[reosman]

Yusuf bey emekleriniz için çok çok teşekkür ediyorum, sağolun, varolun, Saygılarımla.