2 PROCESSES IN VBA MACROS THAT SHOULD NOT HAPPEN

[leobrice]

Saludos amigos de MREXCEL, buenas noches.

El archivo se utiliza para calcular costos de productos y servicios, y las macros automatizan el proceso de cálculos y trámites, sin embargo, tiene 2 fallas.

Te explico como funciona:

HOJA DE COSTOS PRODUCTOS NACIONALES:

Registre información sobre productos y servicios nacionales, e incluye:

A= Producto o Servicio
B= NACIONAL
C= Unidad de medida
D= Cantidad de producto
E= Monto total de compra
F y G= (fórmula) Costo unitario por unidad de medida

La Macro envía la información del producto (columnas A y B) a la hoja PRECIOS PRODUCTOS Y SERVICIOS al completar el Monto Total de Compra (E).

COSTOS DE SERVICIOS (en este ejemplo HOJA DE LIMPIEZA:

Registre información detallada de los servicios nacionales y se divide en 2 bloques. Uno para los productos utilizados para brindar un servicio y otro para registrar las horas hombre utilizadas para brindar el servicio.

Al confirmar la información del servicio, colocando SÍ en E61, la macro envía los datos contenidos en la fila 62 a la hoja COSTOS PRODUCTOS NACIONALES:

A= Nombre del Servicio a la columna A
B= Unidad de Medida Servicio a la columna C
C= Cantidad de Servicio a la columna D igual a 1
E= Costo Total del Servicio a la columna E

Cuando la información llega a la hoja COSTOS PRODUCTOS NACIONALES, la macro de esta hoja se activa y envía la información de este servicio (columnas A y B) a la hoja PRECIOS PRODUCTOS Y SERVICIOS ya que el costo total del servicio de la columna E descrito anteriormente.

FICHA DE PRECIOS PRODUCTOS Y SERVICIOS:

Aquí se registra la información de productos y servicios nacionales para calcular el precio.

La información de productos y servicios proviene de la ficha COSTOS PRODUCTOS NACIONALES y es:

A = Nombre del Producto o Servicio
B= NACIONAL.

El resto de la hoja se maneja llenando información en algunas columnas y el resto es fórmula.

Hay 2 problemas con las macros y esto es lo que quiero resolver:

1. En la hoja COSTOS DE SERVICIOS, si quiero actualizar el precio de cualquier componente del servicio, la macro actualiza el precio del servicio en la hoja COSTOS PRODUCTOS NACIONALES, pero envía la información del servicio nuevamente a PRECIOS PRODUCTOS Y SERVICIOS como una nueva. , ya que actualizaste el valor de la columna E y ejecutaste la macro nuevamente. No puede ser.

2. En la hoja de COSTOS PRODUCTOS NACIONALES, si actualiza el costo de algún producto previamente registrado, ejecute nuevamente la macro, enviando el último producto registrado a PRECIOS PRODUCTOS Y SERVICIOS. No puede ser.

Agradecería mucho su ayuda para corregir estos 2 eventos que no deberían suceder.

EXAMPLE MACROS - Copy.xlsm
	A	B	C	D	E	F	G
1	ABC Ltda
2	COSTOS DE PRODUCTOS Y SERVICIOS NACIONALES
3	PRODUCTO / SERVICIO	NACIONAL	UNIDAD DE MEDIDA	CANTIDAD DE PRODUCTO	MONTO TOTAL DE LA COMPRA	COSTO PRODUCTO UNITARIO
4					₡	₡
5	PRODUCTO 1	NACIONAL	Kilo	1.000,00	100.000,00	100,00	por Kilo
6	PRODUCTO 2	NACIONAL	Kilo	1.000,00	200.000,00	200,00	por Kilo
7	PRODUCTO 3	NACIONAL	Kilo	1.000,00	300.000,00	300,00	por Kilo
8	PRODUCTO 4	NACIONAL	Kilo	1.000,00	400.000,00	400,00	por Kilo
9	PRODUCTO 5	NACIONAL	Kilo	1.000,00	500.000,00	500,00	por Kilo
10	PRODUCTO 6	NACIONAL	Kilo	1.000,00	600.000,00	600,00	por Kilo
11	PRODUCTO 7	NACIONAL	Kilo	1.000,00	700.000,00	700,00	por Kilo
12	PRODUCTO 8	NACIONAL	Kilo	1.000,00	800.000,00	800,00	por Kilo
13	PRODUCTO 9	NACIONAL	Kilo	1.000,00	900.000,00	900,00	por Kilo
14	PRODUCTO 10	NACIONAL	Kilo	1.000,00	1.000.000,00	1.000,00	por Kilo
15	LIMPIEZA	NACIONAL	Servicio	1,00	1.250.000,00	1.250.000,00	por Servicio
16		NACIONAL				0,00	0
17		NACIONAL				0,00	0
COSTOS PRODUCTOS NACIONALES

Cell Formulas
Range	Formula
A1	A1	='INFORMACION GENERAL'!D5
F5:F17	F5	=IFERROR(E5/D5,0)
G5:G17	G5	=C5

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
G5:G10000	Cell Value	=0	text	NO

Cells with Data Validation
Cell	Allow	Criteria
A5:B10000	Custom	=CONTAR.SI($A$5:$A$10000;A5)<=1
C5:C10000	List	=UNIDADES
E5:E14	Custom	=CONTAR.SI($A$5:$A$10000;E5)<=1
E15:E10000	Any value

EXAMPLE MACROS - Copy.xlsm
	A	B	C	D	E
1	ABC Ltda
2	COSTOS DE SERVICIOS
3	NOMBRE SERVICIO PRESTADO:	UNIDAD DE MEDIDA	CANTIDAD DE PRODUCTO HORAS	COSTO UNITARIO COMPONENTE	TOTAL COSTO
4	LIMPIEZA
5	COMPONENTES DEL SERVICIO				₡
6	PRODUCTOS Y SERVICIOS
7	ACETONA		2500	500,00	1.250.000,00
8			1	0,00	0,00
9			6	0,00	0,00
10			1	0,00	0,00
11			12	0,00	0,00
12				0,00	0,00
13				0,00	0,00
14				0,00	0,00
15				0,00	0,00
16				0,00	0,00
17				0,00	0,00
18				0,00	0,00
19				0,00	0,00
20				0,00	0,00
21				0,00	0,00
22				0,00	0,00
23				0,00	0,00
24				0,00	0,00
25				0,00	0,00
26				0,00	0,00
27				0,00	0,00
28				0,00	0,00
29				0,00	0,00
30				0,00	0,00
31				0,00	0,00
32				0,00	0,00
33				0,00	0,00
34				0,00	0,00
35				0,00	0,00
36				0,00	0,00
37	TOTAL COSTOS DE PRODUCTOS Y SERVICIOS PARA LIMPIEZA				1.250.000,00
38	HORAS HOMBRE
39	LEONARDO BRICEÑO	Horas Hombre	40	0,00	0,00
40		Horas Hombre		0,00	0,00
41		Horas Hombre		0,00	0,00
42		Horas Hombre		0,00	0,00
43		Horas Hombre		0,00	0,00
44		Horas Hombre		0,00	0,00
45		Horas Hombre		0,00	0,00
46		Horas Hombre		0,00	0,00
47		Horas Hombre		0,00	0,00
48		Horas Hombre		0,00	0,00
49		Horas Hombre		0,00	0,00
50		Horas Hombre		0,00	0,00
51		Horas Hombre		0,00	0,00
52		Horas Hombre		0,00	0,00
53		Horas Hombre		0,00	0,00
54		Horas Hombre		0,00	0,00
55		Horas Hombre		0,00	0,00
56		Horas Hombre		0,00	0,00
57		Horas Hombre		0,00	0,00
58		Horas Hombre		0,00	0,00
59	TOTAL COSTOS DE HORAS HOMBRE PARA LIMPIEZA				0,00
60	TOTAL GENERAL LIMPIEZA				1.250.000,00
61	CONFIRMAR COSTO DE ESTE SERVICIO PARA PROCESARLO (SI/NO)				SI
62	LIMPIEZA	Servicio	1		1.250.000,00
63
LIMPIEZA

Cell Formulas
Range	Formula
A1	A1	='INFORMACION GENERAL'!D5
A4	A4	=MID(CELL("filename",A1),1+SEARCH("]",CELL("filename",A1)),100)
E39:E58,E7:E36	E7	=C7*D7
D8:D36	D8	=IFERROR(VLOOKUP(A8,'PRECIOS PRODUCTOS Y SERVICIOS'!$A$6:$W$134,23,0),0)
B7:B36	B7	=IFERROR(VLOOKUP(A7,'PRECIOS PRODUCTOS Y SERVICIOS'!A6:W136,3,0)," ")
A37	A37	=CONCATENATE("TOTAL COSTOS DE PRODUCTOS Y SERVICIOS PARA ",A4)
E37	E37	=SUM(E7:E36)
D39:D58	D39	=IFERROR(VLOOKUP(A39,#REF!,12,0),0)
A59	A59	=CONCATENATE("TOTAL COSTOS DE HORAS HOMBRE PARA ",A4)
E59	E59	=SUM(E39:E58)
A60	A60	=CONCATENATE("TOTAL GENERAL ",A4)
E60	E60	=E37+E59
A62	A62	=A4
E62	E62	=E60

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
E61	Cell Value	="SI"	text	NO
E61	Cell Value	="NO"	text	NO

Cells with Data Validation
Cell	Allow	Criteria
A39:A58	List	=HORAS_HOMBRE
A7:A36	List	=PRECIOS_PRODUCTOS

EXAMPLE MACROS - Copy.xlsm
	A	B	C	D	E
1	ABC Ltda
2	PRECIO DE VENTA DE PRODUCTOS Y SERVICIOS
3	PRODUCTO / SERVICIO	NACIONAL o IMPORTADO	UNIDAD DE MEDIDA	COSTO UNITARIO PRODUCTO	VENTAS ESTIMADAS MENSUALES UNIDADES
4
5				₡	0
6	PRODUCTO 1	NACIONAL	Kilo	100,00
7	PRODUCTO 2	NACIONAL	Kilo	200,00
8	PRODUCTO 3	NACIONAL	Kilo	300,00
9	PRODUCTO 4	NACIONAL	Kilo	400,00
10	PRODUCTO 5	NACIONAL	Kilo	500,00
11	PRODUCTO 6	NACIONAL	Kilo	600,00
12	PRODUCTO 7	NACIONAL	Kilo	700,00
13	PRODUCTO 8	NACIONAL	Kilo	800,00
14	PRODUCTO 9	NACIONAL	Kilo	900,00
15	PRODUCTO 10	NACIONAL	Kilo	1.000,00
16	LIMPIEZA	NACIONAL	Servicio	1.250.000,00
17	LIMPIEZA	NACIONAL	Servicio	1.250.000,00
18
19
PRECIOS PRODUCTOS Y SERVICIOS

Cell Formulas
Range	Formula
A1	A1	='INFORMACION GENERAL'!D5
E5	E5	=SUM(E6:E9999)
C6:C19	C6	=IFERROR(IF(B6="NACIONAL",VLOOKUP(A6,'COSTOS PRODUCTOS NACIONALES'!$A$5:$G$10000,3,0),VLOOKUP(A6,#REF!,3,0))," ")
D6:D19	D6	=IFERROR(IF(B6="NACIONAL",VLOOKUP(A6,'COSTOS PRODUCTOS NACIONALES'!$A$5:$G$10000,6,0),VLOOKUP(A6,#REF!,23,0))," ")

Cells with Data Validation
Cell	Allow	Criteria
A16:A19	Custom	=CONTAR.SI($A$5:$A$9999;A16)<=1
A6:B15	Custom	=CONTAR.SI($A$5:$A$10000;A6)<=1

 

[leobrice]

These are the macros of the excel sheets

HOJA DE COSTOS PRODUCTOS NACIONALES VBA

Hoja de trabajo secundaria privada_Cambio de selección (objetivo ByVal como Excel.Range)

Me.Name = "COSTOS PRODUCTOS NACIONALES"
Subtítulo final

Sub EnviarDatosCostosProductosNacionalesAPreciosProductosYSServiciosA()
Aplicación.ScreenUpdating = Falso

Dim ult, ult1 siempre y cuando
Rango de atenuación según rango
ult2 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A" & Rows.Count).End(xlUp).Row
ult3 = Hojas("COSTOS PRODUCTOS NACIONALES").Range("B" & Rows.Count).End(xlUp).Row

ult = Sheets("PRECIOS PRODUCTOS Y SERVICIOS").Range("A" & Rows.Count).End(xlUp).Fila + 1
ult1 = Hojas("PRECIOS PRODUCTOS Y SERVICIOS").Rango("B" & Filas.Cuenta).End(xlArriba).Fila + 1

Aplicación.ScreenUpdating = Falso
Hojas("PRECIOS PRODUCTOS Y SERVICIOS").Rango("B" & ult1) = Hojas("COSTOS PRODUCTOS NACIONALES").Rango("B" & ult3).Valor
Hojas("PRECIOS PRODUCTOS Y SERVICIOS").Rango("A" & ult1) = Hojas("COSTOS PRODUCTOS NACIONALES").Rango("A" & ult2).Valor

Hojas("PRECIOS PRODUCTOS Y SERVICIOS").Seleccione

MsgBox ("SE HA ENVIADO AL MODULO PRECIOS PRODUCTOS Y SERVICIOS, LA INFORMACIÓN DE ESTE PRODUCTO O SERVICIO." & Chr(13) & _
"POR FAVOR COMPLETA LA INFORMACIÓN SOLICITADA" & Chr(13) & _
"!OPERACIÓN REALIZADA SATISFACTORIAMENTE¡"), vbInformation, "CALCULADORA DE PRECIOS Y COSTOS DATCHEL PLUS"



Hojas("PRECIOS PRODUCTOS Y SERVICIOS").Rango("E" & ult1).Seleccione

Subtítulo final
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.Row> 5 entonces
Si Target.Address es como "$E$*" entonces
Si Rango("E" y Target.Row) > 0 Entonces
Aplicación.ScreenUpdating = Falso
Llamar EnviarDatosCostosProductosNacionalesAPreciosProductosYServiciosA
Terminara si
Terminara si
Terminara si

Dim prod$, ovni&, ufd&
Dim pro_d como rango
Dim rDependents como rango

uf = Rango("C" & Filas.Cuenta).Fin(xlArriba).Fila
'prod = TempCombo
prod = Rango("A" y Objetivo.Fila).Valor

Si Application.Intersect(Target, Range("C5:C" & uf)) no es nada y _
Application.Intersect(Target, Range("D5:D" & uf)) no es nada y _
Application.Intersect(Target, Range("E5:E" & uf)) Entonces no es nada
Salir Sub
Terminara si

Si Worksheets("COSTOS PRODUCTOS NACIONALES").Range("F" & Target.Row).Value > 0 Entonces
Con Hojas("PRECIOS PRODUCTOS Y SERVICIOS")
ufd = .Range("A" & Rows.Count).End(xlUp).Row
Establecer pro_d = .Range("A5:A" & ufd).Buscar(prod)
pro_d.Offset(, 1) = Hojas de trabajo("COSTOS PRODUCTOS NACIONALES").Rango("B" & Target.Row).Valor
Terminar con
Terminara si


Subtítulo final

HOJA DE LIMPIEZA VBA
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.CountLarge > 1, entonces salga de Sub
Si Intersect(Target, Range("C:C,D:D,E61")) no es nada, entonces salga de Sub
Aplicación.ScreenUpdating = Falso
Atenuar buscar como rango
Seleccionar caso verdadero
Destino del caso. Dirección = "$E$61"
Si objetivo = "SI" entonces
Con Hojas("COSTOS PRODUCTOS NACIONALES")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
.Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
.Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
.Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
Terminar con
Terminara si
Destino del caso. Dirección como "*D*"
Set fnd = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A:A").Find(Range("A62").Value, LookIn:=xlValues, lookat:=xlWhole)
Si no lo encuentro no es nada entonces
fnd.Offset(, 4) = Rango("E62")
Terminara si
Destino del caso. Dirección como "*C*"
Set fnd = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A:A").Find(Range("A62").Value, LookIn:=xlValues, lookat:=xlWhole)
Si no lo encuentro no es nada entonces
fnd.Offset(, 4) = Rango("E62")
Terminara si
Finalizar selección
Aplicación.ScreenUpdating = Verdadero
Subtítulo final

 

[Rhodie72]

Si no recibes ninguna respuesta, utiliza DeepL para traducir al inglés. Mantén tus preguntas cortas y directas. Divida los problemas complejos en porciones manejables y tal vez encuentre la solución allí.

If you are not getting any answers, use deepL to translate into English.

Keep you questions short and to the point.

Break down the complex problems into ore manageable portions and maybe you will find the solution there.