कंट्रोल नंबर जनरेशन

इसलिए वर्तमान में मेरे पास निम्नलिखित हैं। जब मैं एक बटन या हिट सबमिट बटन पर क्लिक करता हूं, तो फॉर्म लेजर टैब पर दिखता है। मैं स्वचालित रूप से एक कंट्रोल नंबर (ConNum) उत्पन्न करने के लिए फॉर्म प्राप्त करने की कोशिश कर रहा था जो 135F16-01 जैसा दिखता है, जहां "F16" चालू वित्तीय वर्ष है और "-01" लेन-देन संख्या है। मैं चाहता था कि कॉलम A को खोजा जाए और अगले उपलब्ध नंबर को जनरेट किया जाए। इसे आसान बनाने के लिए, या जो मुझे लगता है कि यह आसान हो सकता है, मैंने एक RefInfo टैब बनाया और उसमें नियंत्रण नंबर डाल दिए। इसलिए मेरा विचार है कि फॉर्म को कॉलम A की जाँच करें और RefInfo टैब में एक कॉलम से अगले उपलब्ध या अप्रयुक्त नियंत्रण नंबर का उपयोग करें। विचार, इनपुट?

Private Sub CommandButton1_Click()
   Dim emptyRow As Long

   'make Ledger active
   Ledger.Activate

   'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(emptyRow, 1).Value = ConNum.Value
Cells(emptyRow, 2).Value = FYSel.Value
Cells(emptyRow, 3).Value = MoPBox.Value
Cells(emptyRow, 4).Value = CHol.Value
Cells(emptyRow, 5).Value = AO.Value
Cells(emptyRow, 6).Value = ReqSec.Value
Cells(emptyRow, 8).Value = TranType.Value
Cells(emptyRow, 9).Value = VenNm.Value
Cells(emptyRow, 10).Value = PID.Value
Cells(emptyRow, 11).Value = TranTot.Value
Cells(emptyRow, 12).Value = TotBil.Value
Cells(emptyRow, 13).Value = TranTot.Value - TotBil.Value


If EOYNo.Value = True Then
Cells(emptyRow, 7).Value = "No"
End If

If EOYNo.Value = False Then
Cells(emptyRow, 7).Value = "Yes"
End If

End Sub

Private Sub CommandButton2_Click()

'Set Control Number
ConNum.Text = Cells(Rows.Count, "A").End(xlUp).Row + 1

End Sub

worksheet-function microsoft-excel-2007 vba

— Weiant2001
स्रोत

आपको क्या परिणाम मिल रहा है और क्या समस्या है?

— फिक्सर 1234

मुझे पता है कि एक टैब को देखने के लिए इसे कैसे प्राप्त करें। 'लेजर को सक्रिय करें। लेकिन मैं इसे कैसे प्राप्त कर सकता हूं कि लेजर इंफ़ेफ़ टैब पर उपलब्ध लेज़र टैब पर क्या उपयोग किया जाता है, इसकी तुलना करने के लिए और फॉर्म "ConNum.Text = (अगला उपलब्ध)" पर अगला उपलब्ध प्रदर्शित करें

— Weiant2001