30/12/2004, 07:15
|
| | | Fecha de Ingreso: diciembre-2004 Ubicación: Gran Canaria, España
Mensajes: 3
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Bueno, inserta estas líneas de código justo antes del "99:".
'a columnas
Columns("A:A").TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False
'suprimir filas vacías
intUltimaFila = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For i = intUltimaFila To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next r |