Excel - macro para separar lineas en una celda

   
Vista:

macro para separar lineas en una celda

Publicado por forisco (1 intervención) el 10/05/2015 15:08:56
Necesito una macro para separar los textos de una celda separados por comas y ponerlos en la misma celda uno debajo del otro. Lo tengo así :
Factura Cuantía no coincide , Recibo IBAN no coincide
y necesito que queden en la misma celda así:

Factura Cuantía no coincide
Recibo IBAN no coincide

Como un alt+enter automatizado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de LaO

macro para separar lineas en una celda

Publicado por LaO (67 intervenciones) el 11/05/2015 15:22:33
Hola Forisco,

Con la siguiente macro puedes obtener lo que deseas para la celda activa en donde desees el resultado,
-------------------------------------------------------------------------------------------------------------------------------------------->

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<script>
 
Public Sub CellSep()
 
On Error GoTo x
 
Dim sText As String, sSep As String, sData As String, sTarget As String
Dim Lineas() As String
Dim i As Integer, nPos As Integer
 
'Vars
sSep = ","
sText = ActiveCell ' celda activa donde se encuentre el texto a dividir
 
'get params
If sText <> Empty And sSep <> Empty Then
 
    'get split contents
    Lineas = Split(sText, sSep)
 
    'get positions
    For i = LBound(Lineas) To UBound(Lineas)
 
        sData = Trim(Lineas(i))
        sTarget = sTarget & vbNewLine & sData
 
    Next i
 
End If
 
'assigning result
ActiveCell = sTarget
 
'final message
MsgBox "Proceso finalizado", vbInformation, "Mensaje"
 
 
Exit Sub
 
x:
 
MsgBox "Error No: " & Err.Number & vbCrLf _
& "Mensaje:" & Err.Description, vbCritical, "Mensaje"
 
 
 
 
End Sub
 
</script>

-------------------------------------------------------------------------------------------------------------------------------------------->

Coloca la macro en un módulo y la ejecutas.

Un saludo,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar