Mario Rodríguez

Carlos (y Valero). Un par de consideraciones básicas: a) Vamos a suponer que en la celda A1 tienes al número: -2.345,67 (menos dos mil trescientos cuarenta y cinco con 67). Para lo que te explicaré, el formato de la celda NO TIENE NI LA MÁS MÍNIMA...

Leo. - Pon lo siguiente en un módulo normal: Sub De_Rel_a_Excel() '------------------- 'by Cacho Rodríguez '------------------- Dim mTxt, iLine, iKey Dim ws As Worksheet, mDic With ThisWorkbook: ChDrive .Path: ChDir .Path: End With On Error Resume...

Por ejemplo así: Sub Sumar5() With Range("e1:e10") .Value = Evaluate(5 & " + " & .Address) End With End Sub

Alt to (y Dante) a) Coloca la siguiente macro en un módulo común de cualquier libro: Sub copia_hojas() '------------------ 'by Cacho Rodríguez '------------------ Dim ws As Worksheet, iFile$, iRow&, mFolder$ Set ws = ActiveSheet ws.Range(ws.[a1],...

Sube una muestra reducida de tu archivo en algún servidor público y publica su enlace aquí para poder analizarlo, ¿De acuerdo?...

Andyur (y Dante) También podrías intentar con la siguiente línea: Range("F2:F25").TextToColumns Destination:=Range("F2"), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlDMYFormat)

Da la sensación, Jonatan, que donde has escrito filas quisiste escribir columnas. Para entender mejor tu necesidad, te sugiero que subas en algún servidor gratuito una versión pequeña de tu archivo. Aprovecha para escribir en la segunda hoja que es...

Stleon (y Luis). También podrías intentar: Sub ExtraerDeA250() qRows = 250 Set lCell = Cells(Rows.Count, "a").End(xlUp) Workbooks.Add -4167 ActiveWorkbook.Worksheets.Add , ActiveWorkbook.Worksheets(1), _ Application.RoundUp(lCell.Row / qRows, 0) - 1...

César (y Dante). También te puede servir: Sub noNeg() With Sheets("Hoja1").Range("a1", Sheets("Hoja1").Cells(Rows.Count, "a").End(xlUp)) Sheets("Hoja2").[b1].Resize(.Count) = Evaluate("transpose(transpose(abs(" & _ .Address(external:=True) & ")))")...

Hola! También podría servirte: Sub Macro1() [b1].Resize(13) = Evaluate("transpose(mid(a1, column(a:m), 1))") End Sub