Excel - SOLICITUD CORREGIR ERROR 1004

   
Vista:
Imágen de perfil de LUIS BENITEZ

SOLICITUD CORREGIR ERROR 1004

Publicado por LUIS BENITEZ BARETA2355@GMAIL.COM (1 intervención) el 25/08/2017 19:01:56
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Proceso()
Dim Ultlinea As Long
Dim Ultlineadatos As Long
Dim Codigo, Descripcion, Fecha, Cantidad, Movimiento As String
Dim BusquedaFiladatos As Range
Dim Rangobusqueda As String
Dim Filaregistro As Long
 
Codigo = Sheets("VENTAS").Cells(7, 3)
Descripcion = Sheets("VENTAS").Cells(7, 4)
Fecha = Sheets("VENTAS").Cells(7, 5)
Cantidad = Sheets("VENTAS").Cells(7, 6)
Movimiento = Sheets("VENTAS").Cells(7, 7)
 
If Len(Codigo) = 0 Or Len(Descripcion) = 0 Or Len(Fecha) = 0 Or Len(Cantidad) = 0 Or Len(Movimiento) = 0 Then
MsgBox "Debe Ingresar Todos Los Campos", Vbacritical, "Resultado"
Exit Sub
End If
 
'Range(Range(“A & ActiveCell.Row), Range(“IV” & ActiveCell.Row).End(xlToLeft)).Select
Ultlinea = Sheets("VENTAS").Range("G" & Rows.Count).End(Exlup).Row
Sheets("VENTAS").Cells(Ultlinea + 1, 7) = Codigo
Sheets("VENTAS").Cells(Ultlinea + 1, 8) = Descripcion
Sheets("VENTAS").Cells(Ultlinea + 1, 9) = Fecha
Sheets("VENTAS").Cells(Ultlinea + 1, 10) = Cantidad
Sheets("VENTAS").Cells(Ultlinea + 1, 11) = Movimiento
 
Ultlineadatos = Sheets("VENTAS").Range("A" & Rows.Count).End(Exlup).Row
Rangobusqueda = "A12:A" & Ultlineadatos
Set BusquedaFiladatos = Sheets("VENTAS").Range(Rangobusqueda).Find(Codigo, Lookatl * X1whole)
 
If BusquedaFiladatos Is Nothing Then
MsgBox "El Codigo Ingresado No Existe", Vbacritical, "Resultado"
Exit Sub
 
Else
Filaregistro = BusquedaFiladatos.Row
If Movimiento = "Entradas" Then
Sheets("VENTAS").Cells(Filaregistro, 3) = Sheets("VENTAS").Cells(Filaregistro, 4) + Cantidad
 
Else
Sheets("VENTAS").Cells(Filaregistro, 4) = Sheets("VENTAS").Cells(Filaregistro, 4) + Cantidad
Sheets("VENTAS").Cells(Filaregistro, 4) = Sheets("VENTAS").Cells(Filaregistro, 3) - Sheets("VENTAS").Cells(Filaregistro, 4)
 
Sheets("VENTAS").Cells(7, 3) = " "
Sheets("VENTAS").Cells(7, 4) = " "
Sheets("VENTAS").Cells(7, 5) = " "
Sheets("VENTAS").Cells(7, 6) = " "
Sheets("VENTAS").Cells(7, 7) = " "
MsgBox "Actualizacion Exitosa", Vbacritical, "Resultado"
 
Sheets("VENTAS").Range("C7").Select
End If
End If
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
Imágen de perfil de Antoni Masana

SOLICITUD CORREGIR ERROR 1004

Publicado por Antoni Masana (691 intervenciones) el 28/08/2017 06:18:59
Dios y el Chamán del foro están en estos momentos de vacaciones y no se espera que regresen en los próximos meses.

Si no quieres esperar puedes subir el libros, explicar tu problema y donde y cuando da el error para que así el resto de los mortales te podamos ayudar.

Quizás sea que somos un poco lentos pero lo de adivinar no se nos da muy bien y los milagros tampoco.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Revisar política de publicidad