En VBA como poner referencias con decimales o letras, ¿Para macro?
Tengo la siguiente macro:
Sub ENTRADAS()
Range("A6").Select
ClaveEntradas = ActiveCell.FormulaR1C1 + 8
CeldaEntradas = "C" & ClaveEntradas
Range(CeldaEntradas) = Range(CeldaEntradas) + Range("C6")
Range("C6") = ""
End Sub
Sub SALIDAS()
Range("A6").Select
ClaveSalidas = ActiveCell.FormulaR1C1 + 8
CeldaSalidas = "D" & ClaveSalidas
Range(CeldaSalidas) = Range(CeldaSalidas) + Range("D6")
Range("D6") = ""
End Sub
Me funciona bien cuando en referencia de producto pongo números correlativos del 1 al 208 tamaño de la hoja, pero si pongo como referencia 4.732 no me suma las entradas ni las salidas, si encuentra la ref. Con buscarV, pero la macro no actúa.
1 respuesta
H o l a:
No entendí qué es lo que necesitas.
Tampoco entiendo qué hace tu macro, tendrías que poner una imagen para ver cómo tienes los datos.
No entiendo que tiene que ver los correlativos con el tamaño de la hoja.
Si tienes fórmulas que intervienen en las celdas que utiliza la macro también pon que tienes en la fórmula.
O envíame tu archivo y con ejemplos me explicas qué tienes y qué quieres como resultado después de la ejecución de la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “José Ignacio Tolosa Ramírez” y el título de esta pregunta.
H o l a:
Te anexo una nueva macro para las entrada.
Sub ENTRADAS()
'Por.Dante Amor
ref = [A6]
If ref = "" Then
MsgBox "Captura una referencia", vbExclamation
[A6].Select
Exit Sub
End If
'
u = Range("A" & Rows.Count).End(xlUp).Row
existe = False
For i = 9 To u
If UCase(Cells(i, "A")) = UCase(ref) Then
Cells(i, "C") = Cells(i, "C") + [C6]
[C6] = ""
MsgBox "Entrada realizada", vbInformation
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "La referencia no existe", vbExclamation
End If
End SubLo mismo hay que hacer para la macro de salidas. Si requieres ayuda para la macro de salidas, crea una nueva pregunta en todoexpertos.
