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

Respuesta
1

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.

Añade tu respuesta

Haz clic para o