Inserta texto antes y despues

[morfeo]

Buenas noches amigos del foro
Tengo una consulta para ustedes, se trata de que necesito una macro para insertar texto en varias celdas a la ves antes, pero debo hacerlo antes y despues de lo que...

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í

 

[galileogali]

Sub agregar()
Dim cel As Range
Dim rng As Range

Set rng = Selection
For Each cel In Selection
cel.Formula = "(=" & cel.Formula & "*3)"
Next cel

End Sub

E-78 ab12 (=2131*3)...

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í

 

[morfeo]

hay alguna forma de hacerlo desde un formulario o algo parecido, de forma tal que no se tenga que modificar la macro?

 

[galileogali]

Sub agregar()
Dim cel As Range
Dim rng As Range
Dim prefijo As String, sufijo As String

Set rng = Selection
prefijo = Application.InputBox("Tipee exactamente aquella cadena de texto que...

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í

 

[WeRkO]

Funciona, pero no con filtros insterta el texto en todas las celdas,
alguna modificacion para que funcione con el filtro?

 

[galileogali]

Proba esto:

Sub agregar()
Dim cel As Range
Dim rng As Range
Dim prefijo As String, sufijo As String

Set rng = Selection
prefijo = Application.InputBox("Tipee exactamente aquella cadena de...

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í

 

[WeRkO]

Gracias,

Resolvi el problema de esta manera, solo cambie ".Areas" por ".Cells" de esta manera me funciono a la perfección.

Saludos!!! :mrgreen...

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í

 

[galileogali]

Bien por adaptarlo, En mis pruebas no surgia problema, pero puede ser que fuera por la disposicion del ejemplo que use

https://foro.todoexcel.com/