Celda en blanco (vacía) o con datos copiados de otra celda
Hola a todos, este es mi primer post así que aprovecho para presentarme.
Me ha surgido una duda y llevo días intentando de resolverlo por diferentes métodos, pero no hay manera...
El caso es que tengo una casilla, pongamos la B1, con una lista desplegable de nombres.
Los nombres de la lista son nombres con asterisco o sin asterisco.
Lo que quiero es que en la celda C1, por ejemplo, me copie el nombre de B1 solo si este nombre lleva asterisco. De lo contrario quiero que la celda C1 me quede vacía (es decir sin ningún valor ni formula en ella, para poder escribir un nombre que a mi me dé la gana)...
Muchas gracias de antemano por la respuesta.
1 respuesta
Si no te molesta... soy novato en excel, y en la última semana no he parado de mirar para solucionar esto y estoy ya un poco mosca.
Muchas gracias!
Esta es la macro
Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro: selecciona asterisco, Aceptar.
9. Para ejecutarla dale click a la imagen.
Sub asterisco()
'busca * en el nombre
'Por.Dam
nombre = Range("B1")
largo = Len(nombre)
For i = 1 To largo
If Mid(nombre, i, 1) = "*" Then
Range("C1") = nombre
Exit For
End If
Next
End SubSaludos.Dam
Podrías
Si quieres que cambie C1, cada vez que modificas B1, tienes que hacer lo siguiente:
Instrucciones para worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
nombre = Range("B1")
Range("C1") = ""
largo = Len(nombre)
For i = 1 To largo
If Mid(nombre, i, 1) = "*" Then
Range("C1") = nombre
Exit For
End If
Next
End If
End Sub Saludos.Dam
Podrías
