Id en incremento y convertir en formato numero
Quiero que el campo ID en la Celda A5 sea un numero mas que la celda anteriormente ingresada, osea la A6 y que lo convierta en formato numero. Que la ID vaya en aumento y sea automática, que no tenga que ingresar el numero.
Private Sub Ingresar_Cobro_Click()
With Sheets("BD Cobros")
.Rows("5:5").Insert Shift:=xlDown
.Rows("5:5").Interior.Pattern = xlNone
.Range("A5").Value = ID
.Range("B5").Value = Cliente
.Range("C5").Value = Ref_Obra
If IsDate(Fecha_entrega) Then .Range("D5").Value = CDate(Fecha_entrega)
.Range("F5").Value = Tipo_Cobro
.Range("G5").Value = Importe
.Range("H5").Value = Tipo_Iva
If IsDate(Fecha_Factura) Then .Range("M5").Value = CDate(Fecha_Factura)
Range("E14").Select
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
MsgBox "Datos Registrados!", vbInformation, ""
Unload Me
End With
End SubLlevo tiempo peleando con ello.
1 Respuesta
Respuesta de Aneudys Martinez
1
Hola Aneudys, si me ha servido gracias, pero necesito también que me convierta la cerda en formato numero ya que me hace el pegado en formato texto. ¿Cómo puedo hacer esto?
Gracias
En la línea . Range("A5").Value = ID multiplica por uno seria así
.Range("A5").Value = ID * 1
Solo tiene que agregar asterisco 1
Recuerda valorar para cerrar la pregunta si te silve
