Hola buenas tardes, hace un tiempo me echasteis una mano por aqui y hasta ahora todo ha ido bien, pero e aqui que he actualizado mi Windows 7 al Windows 10 y lo primero que he echo ha sido probar mi programa que hice de la comunidad y cual es mi sorpresa que me da error en las macros justo de momento en esta linea
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
La macro entera es asi.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B30:B45,B49:B56,B58")) Is Nothing Then
UserForm1.Show
End If
End Sub
Podeis ayudarme donde esta el fallo o es que Windows 10 NO admite el vb
Repito que en Windows 7 si funciona correctamente todo el programa
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola buenas tardes, hace un tiempo me echasteis una mano por aqui y hasta ahora todo ha ido bien, pero e aqui que he actualizado mi Windows 7 al Windows 10 y lo primero que he echo ha sido probar mi programa que hice de la comunidad y cual es mi sorpresa que me da error en las macros justo de momento en esta linea
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
La macro entera es asi.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B30:B45,B49:B56,B58")) Is Nothing Then
UserForm1.Show
End If
End Sub
Podeis ayudarme donde esta el fallo o es que Windows 10 NO admite el vb
Repito que en Windows 7 si funciona correctamente todo el programa