Excelde Auto İncrement Number - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excelde Auto İncrement Number (/konu-excelde-auto-increment-number.html) |
Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 ben denedim gayet güzel oldu ve bunu artık Auto İncrement Number olarak kullanmayı düşünüyorum Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 bu fonksiyon ile sayfa isminde kayıtlı olan son id numarasını buluruz Function findLastCount(sheetName As String, Optional ayrac As String = "_") As Integer Dim lastCount As Integer Dim Ws As Worksheet Dim lastUnderlineIndex As Integer For Each Ws In ActiveWorkbook.Worksheets If (InStr(Ws.Name, sheetName) > 0) Then lastUnderlineIndex = InStrRev(Ws.Name, ayrac) lastCount = CInt(Mid(Ws.Name, lastUnderlineIndex + 1, Len(Ws.Name) - lastUnderlineIndex)) End If Next Ws findLastCount = lastCount End Function Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 bu fonksiyon ile yeni ismi buluruz Function renameSheet(lastSheetName As String, lastId As Integer, Optional ayrac As String = "_") As String Dim realSheetName As String Dim newSheetName As String Dim lastUnderlineIndex As Integer If (InStrRev(lastSheetName, ayrac) > 0) Then lastUnderlineIndex = InStrRev(lastSheetName, ayrac) realSheetName = Left(lastSheetName, lastUnderlineIndex - 1) newSheetName = realSheetName & ayrac & lastId Else newSheetName = lastSheetName & ayrac & lastId End If renameSheet = newSheetName End Function Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 bunun ile de userform yeni kayıt butonundan auto increment number değiştirip kaydederiz lastId = findLastCount("MuayeneID", "_") Dim Ws As Worksheet Set Ws = Worksheets("MuayeneID" & "_" & lastId) Ws.Name = renameSheet("MuayeneID", lastId + 1, "_") Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 bunun ile ilgili yeni kayıt satırının id sini ilgili hücreye yazarız .Cells(iRow, 1) = CStr(lastId + 1) Cvp: Excelde Auto İncrement Number - accessman - 14/01/2020 kullanmaya başladım harika oldu isterseniz sayfa ismini hiçbir zaman kod içersinde kullanmayacağınız bir sayfa seçebilirsiniz sayfadaki kayıt sayısına bağlı olarak değişmeyen hiçbir zaman tekrar verilmeyecek olan kapatmakla kaybolmayan son kullanıcının değiştirme imkanı olmayan yeni nesil auto increment number hayırlı olsun |