Userformda Fonksiyon Tanımlama / Max Fonksiyonu

[walabi]

Merhaba

Bir vba çalışmamda ardışık olarak artan sıra numarası vermek için internette max fonksiyonu kullanımı ile ilgili bir kod buldum. Ve kendi çalışmamda bir bölümde düzgün olarak işliyor. Ancak kodu biraz geliştirmeye çalışıyorum.

Aşağıda n = YeniSayi("120.01.") şeklinde olan satırda parantez için manuel olarak giriliyor. Ben parantez içindeki değeri textbox2 den aldırmak istiyorum. Bu mümkün müdür? Mümkünse kodlarda nasıl bir değişiklik yapmam gerekir?

Private Function YeniSayi(x As String) As Long
YeniSayi = 1 + Application.Evaluate("MAX(IF((F:F=""" & x & """),INT(G:G)))")
End Function

Sub Yeni_Numara()
    Dim n As Long
    n = YeniSayi("120.01.")
    MsgBox n
End Sub

 

[Korhan Ayhan]

Merhaba,

Mümkünse 20 satırlık örnek bir dosya paylaşabilirmisiniz.

 

[walabi]

Merhaba,

Mümkünse 20 satırlık örnek bir dosya paylaşabilirmisiniz.

Dosya ektedir. Cntrl + g ile ana menüye ulaşacaksınız. Cari Hesaplar butonu ile açılan userform üzerinden kayıt yaratmaktayım. Benzeri işlemi GL Hesap Tanımla butonu ile açılan userform üzerinden yapmak istedim.

 

[Korhan Ayhan]

Alttaki fonksiyonu Useform5 nesnesinin kod bölümüne kopyalayın.

Private Function YeniSayi(x As String) As Long
    YeniSayi = 1 + Application.Evaluate("MAX(IF((F:F=""" & x & """),INT(G:G)))")
End Function

Sonra Userform5 üzerine yeni bir buton (CommandButton5) ekleyin ve Textbox2 ye veri girip aşağıdaki kodu deneyiniz.

Private Sub CommandButton5_Click()
    x = YeniSayi(TextBox2)
    MsgBox x
End Sub

 

[walabi]

Alttaki fonksiyonu Useform5 nesnesinin kod bölümüne kopyalayın.

Private Function YeniSayi(x As String) As Long
    YeniSayi = 1 + Application.Evaluate("MAX(IF((F:F=""" & x & """),INT(G:G)))")
End Function

Sonra Userform5 üzerine yeni bir buton (CommandButton5) ekleyin ve Textbox2 ye veri girip aşağıdaki kodu deneyiniz.

Private Sub CommandButton5_Click()
    x = YeniSayi(TextBox2)
    MsgBox x
End Sub

Teşekkürler Korhan Bey