Skip to main content

Generar Correlativocorrelativo con 5 dígitos usando la funcionafunción TEXTO - Excel vBA

Generar Correlativocorrelativo con 5 dígitos usando la funcionafunción TEXTO - Excel vBA

Tengo el siguiente código:

Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub

¿cómo puedo hacer para generar mi código correlativo de 5 dígitos?

Generar Correlativo con 5 dígitos usando la funciona TEXTO - Excel vBA

Tengo el siguiente código:

Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub

¿cómo puedo hacer para generar mi código correlativo de 5 dígitos?

Generar correlativo con 5 dígitos usando la función TEXTO - Excel vBA

Tengo el siguiente código:

Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub

¿cómo puedo hacer para generar mi código correlativo de 5 dígitos?

Generar Correlativo con 5 digitosdígitos usando la functionfunciona TEXTO - Excel vBA

Buenas tardes estimados,

tengoTengo el siguiente código: Private Sub btnGuardar_Click() ' 'Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila

'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA

.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub


¿cómo puedo hacer para generar mi código correlativo de 5 digitosdígitos?

Generar Correlativo con 5 digitos usando la function TEXTO - Excel vBA

Buenas tardes estimados,

tengo el siguiente código: Private Sub btnGuardar_Click() ' 'Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila

'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
    
.Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
.Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA

.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''

'.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
.Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
.Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
.Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
.Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
.Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado

.Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
.Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub


¿cómo puedo hacer para generar mi código correlativo de 5 digitos?

Generar Correlativo con 5 dígitos usando la funciona TEXTO - Excel vBA

Tengo el siguiente código:

Private Sub btnGuardar_Click()
'
'Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila
  
    
    
'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
        
    .Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
    .Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA 
    
.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''


    '.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
    .Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
    .Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
    .Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
    .Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
    .Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado
    
    .Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
    .Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub

¿cómo puedo hacer para generar mi código correlativo de 5 dígitos?

Origen Enlace

Generar Correlativo con 5 digitos usando la function TEXTO - Excel vBA

Buenas tardes estimados,

tengo el siguiente código: Private Sub btnGuardar_Click() ' 'Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim Uf As Long

'NombreHoja = Me.ComboBox1.Value

Set HojaDestino = ThisWorkbook.Sheets("Datos_TK").Range("A1").CurrentRegion NuevaFila = HojaDestino.Rows.Count + 1

'ultima fila

'Set Log = RegistroTickets.lblUsuarioLogR

With ThisWorkbook.Sheets("Datos_TK")

Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
    
.Cells(NuevaFila, 1).Value = Now 'Fecha/Hora
.Cells(NuevaFila, 2).Value = Uf - 1 'Numero_Ticket

'''' AQUI DONDE TENGO EL PROBLEMA

.Cells(NuevaFila, 3).Value = ActiveCell.FormulaR1C1("=TEXT(Uf - 1,""00000"")") 'Correlativo_Ticket

'''

'.Cells(NuevaFila, 4).Value = Log.Value 'UsuarioLog
.Cells(NuevaFila, 5).Value = RegistroTickets.txtUsuarioAfectado.Value 'UsuarioAfectado
.Cells(NuevaFila, 6).Value = RegistroTickets.txtArea.Value 'Área
.Cells(NuevaFila, 7).Value = RegistroTickets.cboTecnico.Value 'Técnico
.Cells(NuevaFila, 8).Value = RegistroTickets.txtProblema.Value 'Descripción problema
.Cells(NuevaFila, 9).Value = RegistroTickets.cboEstado.Value 'Estado

.Cells(NuevaFila, 10).Value = "" 'FechaHora Modificado
.Cells(NuevaFila, 11).Value = "" 'Usuario Modifica

End With

MsgBox "Alta exitosa.", vbInformation, "SIGEOPS"

Unload Me

End Sub


¿cómo puedo hacer para generar mi código correlativo de 5 digitos?