Fórmula en vbexcel
Tengo llena la celda activa con una palabra, como le digo a la macro que si el largo de esa palabra es = a 6, me haga una cosa, por ejemplo, bajar una celda y si no es igual a 6 me suprima la fila.
Lo he escrigo de mil maneras y no me funciona.
Puedes ayudarme con la instrucción de la macro.
Gracias,
María Jose
Madrid
Lo he escrigo de mil maneras y no me funciona.
Puedes ayudarme con la instrucción de la macro.
Gracias,
María Jose
Madrid
1 Respuesta
Respuesta de valedor
1
Te anexo el código de una macro, tu pregunta es algo general así que así es la respuesta, esto tiene muchas variantes, por ejemplo, que la evaluación la haga en un rango de celdas, no solo en la celda activa, cualquier duda, escríbeme...
Option Explicit
Public Sub Palabras()
Dim strPalabra As String
'Obtenemos el contenido de la celda activa
'le quitamos los espacios, por si las dudas
strPalabra = Trim(ActiveCell.Value)
'Contamos el numero de caracteres y lo comparamos
If Len(strPalabra) = 6 Then
'Si es igual a seis nos movemos a la celda inferior
ActiveCell. Offset(1, 0).Activate
Else
'Si no es seis, eliminamos la fila
'si no quieres confirmar la eliminación
'solo elimina las lineas con asteriscos
' *************************
If MsgBox("Se eliminara la fila" & vbCrLf & vbCrLf & _
"¿Continuar?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Borrar fila") = vbYes Then
' *************************
ActiveCell.EntireRow.Delete
End If '*********
End If
End Sub
Option Explicit
Public Sub Palabras()
Dim strPalabra As String
'Obtenemos el contenido de la celda activa
'le quitamos los espacios, por si las dudas
strPalabra = Trim(ActiveCell.Value)
'Contamos el numero de caracteres y lo comparamos
If Len(strPalabra) = 6 Then
'Si es igual a seis nos movemos a la celda inferior
ActiveCell. Offset(1, 0).Activate
Else
'Si no es seis, eliminamos la fila
'si no quieres confirmar la eliminación
'solo elimina las lineas con asteriscos
' *************************
If MsgBox("Se eliminara la fila" & vbCrLf & vbCrLf & _
"¿Continuar?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Borrar fila") = vbYes Then
' *************************
ActiveCell.EntireRow.Delete
End If '*********
End If
End Sub
