duainsulch

Prueba haber si es esto lo que quieres, si te da problemas el target.text puedes usar target.value On Error Resume Next If Not Intersect(Target, Range("A1:A30")) Is Nothing Then IF NOT TARGET.TEXT = "" THEN PosiciónImagen = Target.Offset(0,...

Pero en tu código también lo tienes en la misma linea tres instrucciones distintas, ¿o ha sido al pegar? Debería ser asi: Private Sub Worksheet_Change(ByVal Target As Range) Dim cnt As Integer cnt = 1 n = 1 While n = 1 cnt = cnt + 1 If Cells(cnt, 1)...

¿Entiendo q en la venta del dia también se introduce el código del producto no?

Asi en un primer vistazo, dado que no se exactamente el comportamiento del selection. Find, tal vez se me ocurre que aunque uses su propiedad activate, los valores de la selección activa siguen siendo el rango("C14:C38). Prueba a cambiar en tu código...

Cuando defines la base de datos de access debes especificar que los campos puedan contener valor null, si te da error es porque no has especificado que puedan ser null, por lo que si le pasas un valor null da error.

Debes desproteger la hoja antes de poder modificarla, utiliza en tu código las instrucciones Hoja1. Unprotect y hoja1. Protect Una iría al principio de tu código para desproteger la hoja, y el protect iría al final para volver a protegerla, hoja1...

Es sencillo, si dices que la macro ya te muestra el N/A, solo tendrías que añadir el mensaje, para decirte donde debes poner el código, seria bueno que pongas la macro!

if isdate(textbox1.text) = false then msgbox("Introduzca una fecha valida") end if Algo asi necesitarías, si necesitas mas ayuda me harían falta mas datos acerda de como es tu programa

Vaya lio tienes aquí Jesús: Y quisiera que al darle con la clave correcta me abra el libro con el nombre buscarhoja1 y también el libro buscarhoja2 Intento poner este código Private Sub BotonOK_Click() If Psw <> "JMP" Then Este código se va a a...

Para desproteger las hojas y volverlas a proteger deberías de usar Sheets(nomh). Unprotect Y posteriormente a select, Sheets(nomh). Protect