Textbox que lleve consecutivo automatico

[tan178]

Tengo un userform que me registra visitantes el cual tienen un textbox que lleva el consecutivo de la cantidad de visitas que ingresan ,los datos de la userform son ingresados al Sheets(registro de visitas) pero no e logrado que este textbox tome el ultimo dato registrado en la columna consecutivo y le sume 1 a la cantidad existente y este se refleje en el textbox al activar el formulario, el problema es que el rango siempre va hacer la ultima fila del libro con los datos y este va a variar con los nuevos registros

.

Sub Incrementar()


Range("  ").Select


ActiveCell.FormulaR1C1 = Range("  ").Value + 1


End Sub

[/CODE]

[Armando Montes]

Hola, un ejemplo:

Instruccin FormulaR1C1. Microsoft Excel

[Compaq]

Prueba con esto Crea una nueva hoja de excel, y agrega un form u texbox1, 2, 3, 4 y buton, y pega esta configuración

Option Explicit

Private Sub CommandButton1_Click()

Dim Consecutivo As String 'Ingresa el valor consecutivo

Dim Nombre As String

Dim Telefono As String

Dim Correo As String

Dim ultimafila As Double 'Busca la Ultima Fila

Consecutivo = TextBox1.Value 'Ingresar el Valor a celda

Nombre = TextBox2.Value 'Ingresar el Valor a celda

Telefono = TextBox3.Value 'Ingresar el Valor a celda

Correo = TextBox4.Value 'Ingresar el Valor a celda

ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Cells(ultimafila + 1, 1) = Consecutivo

Cells(ultimafila + 1, 2) = Nombre

Cells(ultimafila + 1, 3) = Telefono

Cells(ultimafila + 1, 4) = Correo

Range("a1").Select

Selection.End(xlDown).Select

TextBox1 = ActiveCell + 1

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

Sheets("HOJA1").Select

If Range("A2") = "" Then Exit Sub

Range("A1").Select

Selection.End(xlDown).Select

TextBox1 = ActiveCell + 1

End Sub

[Antoni]

.

Esto te da el siguiente correlativo:

TextBox1 = Application.WorksheetFunction.Max _

  (Hoja1.Range("A2:A" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row)) + 1

[/CODE]

.

[tan178]

Excelentes aportes compañeros , tema solucionado gracias

consecutivo.zip