Ayuda con macro en excel
Hola expertos como están,
espero que me ayuden con este problema que tengo.
De internet copie este código que me guarda la información de una hoja de excel en un archivo de texto delimitado por comas. Pero el rango a seleccionar es el mismo, quisiera saber como se puede modificar para que escoja el rango de A1 hasta la ultima celda con valor de la columna N, de ante mano muchas gracias .
Es código es el siguiente:
Sub GRABARTEXTOUS()
RUTA = ActiveWorkbook.Path
Open (RUTA & "\" & Sheets("PLANO").Range("D39").Value & ".TXT") For Output As #1
For i = 1 To 14
CAMPO1 = Sheets(8).Cells(i, 1) & ","
CAMPO2 = Sheets(8).Cells(i, 2) & ","
CAMPO3 = Sheets(8).Cells(i, 3) & ","
CAMPO4 = Sheets(8).Cells(i, 4) & ","
CAMPO5 = Sheets(8).Cells(i, 5) & ","
CAMPO6 = Sheets(8).Cells(i, 6) & ","
CAMPO7 = Sheets(8).Cells(i, 7) & ","
CAMPO8 = Sheets(8).Cells(i, 8) & ","
CAMPO9 = Sheets(8).Cells(i, 9) & ","
CAMPO10 = Sheets(8).Cells(i, 10) & ","
CAMPO11 = Sheets(8).Cells(i, 11) & ","
CAMPO12 = Sheets(8).Cells(i, 12) & ","
CAMPO13 = Sheets(8).Cells(i, 13) & ","
CAMPO14 = Sheets(8).Cells(i, 14)
Print #1, CAMPO1; CAMPO2; CAMPO3; CAMPO4; CAMPO5; CAMPO6; CAMPO7; CAMPO8; CAMPO9; CAMPO10; CAMPO11; CAMPO12; CAMPO13; CAMPO14
Next
Close #1
End Sub
espero que me ayuden con este problema que tengo.
De internet copie este código que me guarda la información de una hoja de excel en un archivo de texto delimitado por comas. Pero el rango a seleccionar es el mismo, quisiera saber como se puede modificar para que escoja el rango de A1 hasta la ultima celda con valor de la columna N, de ante mano muchas gracias .
Es código es el siguiente:
Sub GRABARTEXTOUS()
RUTA = ActiveWorkbook.Path
Open (RUTA & "\" & Sheets("PLANO").Range("D39").Value & ".TXT") For Output As #1
For i = 1 To 14
CAMPO1 = Sheets(8).Cells(i, 1) & ","
CAMPO2 = Sheets(8).Cells(i, 2) & ","
CAMPO3 = Sheets(8).Cells(i, 3) & ","
CAMPO4 = Sheets(8).Cells(i, 4) & ","
CAMPO5 = Sheets(8).Cells(i, 5) & ","
CAMPO6 = Sheets(8).Cells(i, 6) & ","
CAMPO7 = Sheets(8).Cells(i, 7) & ","
CAMPO8 = Sheets(8).Cells(i, 8) & ","
CAMPO9 = Sheets(8).Cells(i, 9) & ","
CAMPO10 = Sheets(8).Cells(i, 10) & ","
CAMPO11 = Sheets(8).Cells(i, 11) & ","
CAMPO12 = Sheets(8).Cells(i, 12) & ","
CAMPO13 = Sheets(8).Cells(i, 13) & ","
CAMPO14 = Sheets(8).Cells(i, 14)
Print #1, CAMPO1; CAMPO2; CAMPO3; CAMPO4; CAMPO5; CAMPO6; CAMPO7; CAMPO8; CAMPO9; CAMPO10; CAMPO11; CAMPO12; CAMPO13; CAMPO14
Next
Close #1
End Sub
Respuesta de jerryeagle
1
Suponiendo que tus datos comienzan en la fila 1 y tienen encabezados (suoniendo que sea una tabla)
Dim FilaFin, ColFin as Integer
'Guarda el No. de la Ultima Fila con Datos
FilaFin = Range("A65536").End(xlUp).Row
'Guarda el No. de la Ultima Columna con Datos
ColFin = Cells(1, 100).End(xlToLeft).Column
For i = 1 to FilalFin
For c = 1 To ColFin
CAMPO1 = Sheets(8).Cells(i, c) & ","
CAMPO2 = Sheets(8).Cells(i, c) & ","
'Continuas el codigo de esta forma
next
next
Me dices como te fue con este código.
Dim FilaFin, ColFin as Integer
'Guarda el No. de la Ultima Fila con Datos
FilaFin = Range("A65536").End(xlUp).Row
'Guarda el No. de la Ultima Columna con Datos
ColFin = Cells(1, 100).End(xlToLeft).Column
For i = 1 to FilalFin
For c = 1 To ColFin
CAMPO1 = Sheets(8).Cells(i, c) & ","
CAMPO2 = Sheets(8).Cells(i, c) & ","
'Continuas el codigo de esta forma
next
next
Me dices como te fue con este código.
Hola jerryeagle como estas,
gracias por tu ayuda me sirvió de mucho tu respuesta, espero algún día poder colaboararte con alguna inquietud que tengas
Marlon
gracias por tu ayuda me sirvió de mucho tu respuesta, espero algún día poder colaboararte con alguna inquietud que tengas
Marlon
