Buenas tardes todos Master del Excel...

estimados es posible algun control de facturas ? la Idea es que el formulario me Alerte que el Numero de la factura del Proveedor ya fue ingresada 

(que No se repita en ingreso de una factura del prov.)

desde ya gracias Totales.. para uds.

atte 

Milton no se como subir el archivo ya que pesa 570 mb comprimido

https://drive.google.com/drive/my-drive

¿570 megas? ¿estás diciéndolo en serio?

Abraham Valencia

No sorry.. extralimite...

 

arch. con 568 kb y nos permite solo cargar 102 kb...

adjunto por si sirve de ayuda lo que tengo en el formuario de facturas (k no puedo cargar el form.)

Option Explicit
Const TPCIVA As Integer = 19  'Porcentaje de IVA

-----------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Ulinea As Long
On Error Resume Next
Sheets("compras").Select
'llevar desde formulario a planilla excel'
Ulinea = Range("a" & Rows.Count).End(xlUp).Row + 1

Range("B" & Ulinea).Value = Me.TextBox4.Text
Range("C" & Ulinea).Value = Me.TextBox18.Text
Range("D" & Ulinea).Value = Me.TextBox2.Text

Me.TextBox2.Text = ""
Me.TextBox4.Text = ""
Me.TextBox18.Text = ""

 TextBox2.SetFocus
End Sub

--------------------------------------------------------------------------------------------------------------------------------

Private Sub CommandButton3_Click() 'boton de salida'
End
End Sub

------------------------------------------------------------------------------------------------------------------------------

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim rut$
Dim uF&
Dim cel As Range  ' ingreso rut proveedor

Select Case Len(TextBox2.Value)
Case 2
TextBox2.Value = TextBox2.Value & "."
Case 6
TextBox2.Value = TextBox2.Value & "."
Case 10
TextBox2.Value = TextBox2.Value & "-"

End Select

'--> Código por Haplo - 02/03/2019 <-- 'completar los textbox'
If KeyCode = vbKeyReturn Then
    rut = TextBox2
    uF = Sheets("Datos").Range("B" & Rows.Count).End(xlUp).Row
    
    Set cel = Sheets("Datos").Range("B4:B" & uF).Find(rut, lookat:=xlWhole)
        If Not cel Is Nothing Then
                       
            TextBox3 = cel.Offset(, 1)
             TextBox18 = cel.Offset(, 1)
             TextBox12 = cel.Offset(, -1)
             TextBox13 = cel.Offset(, 2)
             TextBox14 = cel.Offset(, 3)
             TextBox15 = cel.Offset(, 4)
            TextBox16 = cel.Offset(, 5)
            TextBox17 = cel.Offset(, 6)
        Else
 MsgBox "El rut no existe" & vbNewLine & vbNewLine & "Compruebe rut ", vbCritical, "Error de rut"
            Exit Sub
        End If
            
End If

End Sub