Como hacer lo siguiente en excel?

[JOSEG75]

BUENOS DIAS SEÑORES, NECESITARIA UNA AYUDA PUESTO QUE ESTOY TRATANDO DE HACER UN FORMULARIO DE FACTURAS Y ESTOY TRABADO CON LO SIGUIENTE.

QUIERO QUE AL COLOCAR UN CODIGO DE ARTICULO EN LA CASILLA DE AL LADO ME ESCRIBA SU DESCRIPCION QUE SE ENCUENTRA EN OTRA HOJA, ESO LO HE HECHO CON BUSCARV;

PERO SE ME PLANTEA UN PROBLEMA SI YO EN ESA LINEA DE DESCRIPCION QUISIERA ESCRIBIR UN TEXTO LA FORMULA SE ME BORRARIA, POR LO CUAL YA NO ME VALE.

HE INTENTADO MEDIANTE UN VBA WorkSheet.Change (evento) Y UTILIZANDO EL If...Then...Else (Instrucción) PERO ME DA PROBLEMA PUESTO QUE SE ME CREA UN BUCCLE REPETITIVO

¿ALGUIEN SABLE COMO COLOCAR LA DESCRIPCION MEDIANTE VBA, QUE CON SOLO TECLEAR EL CODIGO EN UNA CASILLA EN LA DE AL LADO COLOQUE LA DESCRIPCION ?

GRACIAS.

[JoaoM]

No se debe ecrir todo el texto en mayusculas, esso demuestra falta de educacion y gritaria.

Si puedes corrige tu texto

[uzziber]

JOseG75:
En la hoja dónde tienes el código de artículo, crea otra columna con la descripción; en la hoja dónde escribes el código; crea una celda para alojar la descripción con la misma referencia del código de artículo y buscarV; escribe en la fórmula que lea la siguiente columna.
Saludos...

[mrocf]

Aplica la siguiente idea:

Código vb:

Application.EnableEvents = False
      (escribir la descripción en la celda que corresponda)
Application.EnableEvents = True
 

"Application.EnableEvents = False" es quien evita que entres en el bucle...

Saludos, Cacho.

[GEMO]

Hola, espero no sea tarde para contestar intenta lo siguiente:
Dim i As Integer
Dim final As Integer

For i = 2 To 10

If Hoja2.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next

For i = 2 To final
If Hoja1.Cells(3, 1) = Hoja2.Cells(i, 1) Then
Hoja1.Cells(3, 2) = Hoja2.Cells(i, 2)

Exit For

End If
Next

donde tu tendrías que cambiar el número de hoja según las tengas y la referencia de celdas como las necesites