Marca Error en capturar macro nuevo archivo de inventario
HOLA...
DANTE nuevamente molestandote con la macro que me ayudastes a genererar para archivo de inventario.
cree otro archivo de Excel llamado INVENTARIO me guie de la macro que hicistes en el archivo de inventarios 2
pero me marca error espero me puedas apoyar en corregir
el archivo te lo envie a tu correo
por tu gran ayuda
gracias
1 Respuesta
Esta es la macro con las correcciones.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("E7:E13,F7:F13,G7:G13,H7:H13,I7:I13,J7:J13,K7:K13,L7:L13,M7:M13,N7:N13,O7:O13,P7:P13")) Is Nothing Then
Select Case Target.Column
Case 5: f = 19
Case 6: f = 20
Case 7: f = 21
Case 8: f = 22
Case 9: f = 23
Case 10: f = 24
Case 11: f = 25
Case 12: f = 26
Case 13: f = 27
Case 14: f = 29
Case 15: f = 30
Case 16: f = 31
End Select
Select Case Cells(f, "P")
Case Is < 0
men = "Está por debajo - " & Abs(Cells(f, "P")) & " KG. "
Case 0
men = "Stock en CERO. "
Case 1 To 5
men = "Sólo quedan " & Abs(Cells(f, "P")) & " KG. "
End Select
End If
If men <> "" Then
Cells(f, "P").Select
MsgBox men & "Código: " & Cells(f, "C") & " " & Cells(f, "D")
End If
End Sub
buenas noches...
Dante, es lo que buscaba te agradezco con la macro.
antes de valorar la respuesta
me surgio duda
porque tomas como referencia la letra f ??
me puedes dar una brebe explicacion para poder entender.
en mi archivo que te pase el ultimo codigo termina en la letra P, pense que esa letra iria en vez de f
Select Case Target.Column
Case 5: f = 19
Case 6: f = 20
en espera de tu apoyo
aprovechando tendras un manual de principiantes en macro sobre los codigo e.t.c. para ir aprendiendo
saludos
Es bien sencillo, utilizo la letra "f" porque es la letra inicial de la palabra "fila".
f= 19 significa que debe tomar la fila 19.
