Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Solución para macros

  • Autor del tema Autor del tema Jise
  • Fecha de inicio Fecha de inicio

Jise

Active member
Registrado
10 Dic 2021
Mensajes
256
Buenas tardes os dejo mi consulta por aquí:

Me gustaría conseguir que si selecciono "A.C.S" el rango ponga "A.C.S" y si selecciono "A.P.S" en el rango ponga "A.P.S".


Private Sub...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Prueba:
Código:
Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        pwd = ""
        ActiveSheet.Unprotect pwd...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba