Error en linea Range("A" strfila$) = CDbl(txtmoc1)
DANTE AMOR
Error en línea Range("A" + strfila$) = CDbl(txtmoc1) o Private Sub btnmocAC3_Click() o Private Sub btncliAC_Click() según el que este usando.
Al abrir la pestaña de seguida inserta el 000001 en A, está bien porque al insertar el primer Proveedor este entra e nla 1ª línea que ya esta marcada en A con el numero 000001 y muestra el número existente en la caja del Ultimo registro y también el número que se seguirá para el 2º pero;
cierro el formulario y VUELVO a abrirlo y deja de mostrarme el número existente en la caja para Ultimo registro que este es el número Existente en la hoja (Columna A, Ultimo Registro)
1 Respuesta
Respuesta de Dante Amor
1
Este es el código para los proveedores
Case 2 'Ingresar Proveedor
Application.ScreenUpdating = False
MPAG.Height = 281.25
Hoja3.Activate
'Por.DAM si la última fila es 1, entonces no hay datos
u = Range("A" & Rows.Count).End(xlUp).Row
If u = 1 Then ul = Range("A2")
'Fin.DAM
Me.txtmoc9.Value = ul
Range("A2").Select
If Modificar = False Then
If ActiveCell = Empty Then
lblregcli2 = 50000
'Por.DAM
txtmoc1 = 1
'Fin.DAM
'si se necesita
'txtmoc9.Text = VBA.Format(txtmoc9.Text, "000000") 'para uno y otr oprobar posicion Aqui o mas arriba
Else
Range("A1").End(xlDown).Select
txtmoc1 = ActiveCell.Value + 1
'si se necesita
'txtmoc1.Text = VBA.Format(txtmoc1.Text, "000000")
End If
Else
Me.Caption = "Modificación Registro"
lblregcli2 = Range("A" & FilaModificacion)
txtmoc1 = Range("B" & FilaModificacion) 'ITEM
txtmoc2 = Range("C" & FilaModificacion) 'RAZON SOCIAL
txtmoc3 = Range("D" & FilaModificacion) 'RIF/CI
txtmoc4 = Range("E" & FilaModificacion) 'DIRECCION
txtmoc10 = Range("F" & FilaModificacion) 'CIUDAD
txtmoc5 = Range("G" & FilaModificacion) 'ARTICULOS
txtmoc6 = Range("H" & FilaModificacion) 'TELF 1
txtmoc8 = Range("I" & FilaModificacion) 'TELF 2
txtmoc7 = Range("J" & FilaModificacion) 'OBSERVACIONES
End If
Application.ScreenUpdating = True
