crear archivo txt desde datos filtrados

[ymoran]

Quisiera crear archivo txt con datos que cumplen condición de ser diferentes de cero, los datos estan en la culumna H,P,X,AF. Depen
iendo si hay datos copiar datos de las columnas anteriores G,O,W,AE , para crear archivo txt con nombre en la celda G6

 

[DanteAmor]

Hola y bienvenido a MrExcel!

Desafortunadamente tu imagen no es clara, ya que no se ven ni las filas ni las columnas de excel.

Exactamente qué información quieres en el txt y cómo la quieres. Podrías poner una imagen del archivo txt para ver cómo quieres el resultado.

NOTA XL2BB:
Para el futuro, sería de gran ayuda si pudiera proporcionarnos los datos de muestra en un formato que podamos copiar para probar, en lugar de una imagen.
MrExcel tiene una herramienta llamada "XL2BB" que le permite publicar muestras de sus datos que nos permitirán copiarlos y pegarlos en nuestras hojas de cálculo de Excel, para que podamos trabajar con la misma copia de datos que usted. Las instrucciones sobre el uso de esta herramienta se pueden encontrar aquí: Complemento XL2BB
Tenga en cuenta que también hay un foro "Probar aquí" en este foro. Este es un lugar donde puede probar el uso de esta herramienta (o cualquier otra técnica de publicación que desee probar) antes de intentar usar esas herramientas en sus publicaciones reales.

 

[ymoran]

Buenos días, Dante
soy nuevo en esta plataforma, tal vez esta imagen sea mas util tengo una hoja de calculo en donde hay varias columnas con el encabezado de nombre "datos"(H11,P11,X11,AF11,......) y quisiera crear un archivo plano txt con los datos de la columna con el encabezado de nombre "CLAVE"(G11,O11,W11,AE11,....) siempre que en la columna de datos hay importes diferentes de cero.

	REMUNERACIÓN BÁSICA								ASIGNACIÓN FAMILIAR								PRIMERAS 2 HORAS EXTRAS								A PARTIR DE LA 3 HR EXTRA
orden	Tipo de documento del trabajador	Número de documento del trabajador	Código de concepto remunerativo y/o no remunerativo	Monto devengado	Monto pagado/descontado	CLAVE	datos		Tipo de documento del trabajador	Número de documento del trabajador	Código de concepto remunerativo y/o no remunerativo	Monto devengado	Monto pagado/descontado	CLAVE	datos		Tipo de documento del trabajador	Número de documento del trabajador	Código de concepto remunerativo y/o no remunerativo	Monto devengado	Monto pagado/descontado	CLAVE	datos		Tipo de documento del trabajador	Número de documento del trabajador	Código de concepto remunerativo y/o no remunerativo	Monto devengado	Monto pagado/descontado	CLAVE	datos
1​	01	42130049​	0121	1953.17​	1953.17​	01|42130049|0121|1953.17|1953.17|	1,953.17		01	42130049	0201	102.50​	102.50​	01|42130049|0201|102.5|102.5|	102.50		01	42130049	0105			01|42130049|0105| | |	-		01	42130049	0106			01|42130049|0106| | |	-
2​	01	71314790​	0121	3733.33​	3733.33​	01|71314790|0121|3733.33|3733.33|	3.733,33		01	71314790	0201			01|71314790|0201| | |	-		01	71314790	0105			01|71314790|0105| | |	-		01	71314790	0106			01|71314790|0106| | |	-
3​	01	71093689​	0121	1866.67​	1866.67​	01|71093689|0121|1866.67|1866.67|	1,866.67		01	71093689	0201			01|71093689|0201| | |	-		01	71093689	0105			01|71093689|0105| | |	-		01	71093689	0106			01|71093689|0106| | |	-
4​	01	72041103​	0121	1120.00​	1120.00​	01|72041103|0121|1120|1120|	1,120.00		01	72041103	0201			01|72041103|0201| | |	-		01	72041103	0105			01|72041103|0105| | |	-		01	72041103	0106			01|72041103|0106| | |	-
5​	01	41037512​	0121	1953.17​	1953.17​	01|41037512|0121|1953.17|1953.17|	1,953.17		01	41037512	0201	102.50​	102.50​	01|41037512|0201|102.5|102.5|	102.50		01	41037512	0105			01|41037512|0105| | |	-		01	41037512	0106			01|41037512|0106| | |	-
6​	01	80040518​	0121	1766.50​	1766.50​	01|80040518|0121|1766.5|1766.5|	1,766.50		01	80040518	0201	102.50​	102.50​	01|80040518|0201|102.5|102.5|	102.50		01	80040518	0105			01|80040518|0105| | |	-		01	80040518	0106			01|80040518|0106| | |	-
7​	04	001128536	0121	2886.50​	2886.50​	04|001128536|0121|2886.5|2886.5|	2,886.50		04	001128536	0201	102.50​	102.50​	04|001128536|0201|102.5|102.5|	102.50		04	001128536	0105			04|001128536|0105| | |	-		04	001128536	0106			04|001128536|0106| | |	-
8​	01	45159846​	0121	1953.17​	1953.17​	01|45159846|0121|1953.17|1953.17|	1,953.17		01	45159846	0201	102.50​	102.50​	01|45159846|0201|102.5|102.5|	102.50		01	45159846	0105			01|45159846|0105| | |	-		01	45159846	0106			01|45159846|0106| | |	-
9​	01	71969924​	0121	1393.17​	1393.17​	01|71969924|0121|1393.17|1393.17|	1,393.17		01	71969924	0201	102.50​	102.50​	01|71969924|0201|102.5|102.5|	102.50		01	71969924	0105			01|71969924|0105| | |	-		01	71969924	0106			01|71969924|0106| | |	-
10​	01	42173233​	0121	1019.83​	1019.83​	01|42173233|0121|1019.83|1019.83|	1,019.83		01	42173233	0201	102.50​	102.50​	01|42173233|0201|102.5|102.5|	102.50		01	42173233	0105			01|42173233|0105| | |	-		01	42173233	0106			01|42173233|0106| | |	-
11​	01	43040676​	0121	1953.17​	1953.17​	01|43040676|0121|1953.17|1953.17|	1,953.17		01	43040676	0201	102.50​	102.50​	01|43040676|0201|102.5|102.5|	102.50		01	43040676	0105			01|43040676|0105| | |	-		01	43040676	0106			01|43040676|0106| | |	-
12​	01	45596686​	0121	1673.17​	1673.17​	01|45596686|0121|1673.17|1673.17|	1.673,17		01	45596686	0201	102.50​	102.50​	01|45596686|0201|102.5|102.5|	102.50		01	45596686	0105			01|45596686|0105| | |	-		01	45596686	0106			01|45596686|0106| | |	-
							23.271,85								922.50								-								-

 

[DanteAmor]

(H11,P11,X11,AF11,......)

Te refieres a que los encabezados están en las celdas H11, P11...

crear un archivo plano txt

Según tu ejemplo, cómo debería quedar el archivo txt.

Puedes compartir tu archivo de excel y tu archivo txt en google drive. Es importante ver cómo quieres tu archivo txt, es por eso que te lo estoy pidiendo; y ese archivo txt debe ser coincidente con tu ejemplo de excel.

---------
Para futuras consultas, revisa el complemento XL2BB, de esa manera es más fácil poder ayudarte.

 

[ymoran]

Buenas Dante,
te comparto el enlace para que veas como queda la trama del archivo .txt

data archivo txt.xlsx

Pdt_Rem ESTRUCTURA 18: Trabajador - Detalle de ingresos, tributos y descuentos. Para importar en el PLAME la información de detalle de los conceptos remunerativos y/o no remunerativos, así como descuentos del trabajador, elabore un archivo texto con el siguiente nombre: Nombre del archivo: fff...

docs.google.com

060120220720558684764.txt

drive.google.com

 

[DanteAmor]

Hola, te comparto la macro.

Ante de ejecutar la macro debes corregir un error que tienes en tu hoja de excel. En la columna FN tienes una columna extra, elimina esa columna, para que todas las secciones sean homogéneas.

El archivo txt se guardará en la misma carpeta donde tengas el archivo con la macro. El nombre del archivo txt lo toma de la celda K6

Prueba lo siguiente:

Sub CrearArchivoTxt()
  Dim a As Variant
  Dim i As Long, j As Long, lr As Long, lc As Long
  
  'nombre del archivo txt
  Open ThisWorkbook.Path & "\" & Range("K6").Value & ".txt" For Output As #1
  
  lr = Range("G" & Rows.Count).End(3).Row
  lc = Cells(11, Columns.Count).End(1).Column
  a = Range("A12", Cells(lr, lc)).Value
  For j = 8 To UBound(a, 2) Step 8
    For i = 1 To UBound(a, 1)
      If a(i, j) <> 0 Then
        Print #1, a(i, j - 1)
      End If
    Next i
  Next
  Close #1
  MsgBox "Fin"
End Sub

 

[ymoran]

Hola, te comparto la macro.

Ante de ejecutar la macro debes corregir un error que tienes en tu hoja de excel. En la columna FN tienes una columna extra, elimina esa columna, para que todas las secciones sean homogéneas.

El archivo txt se guardará en la misma carpeta donde tengas el archivo con la macro. El nombre del archivo txt lo toma de la celda K6

Prueba lo siguiente:

Sub CrearArchivoTxt()
  Dim a As Variant
  Dim i As Long, j As Long, lr As Long, lc As Long
 
  'nombre del archivo txt
  Open ThisWorkbook.Path & "\" & Range("K6").Value & ".txt" For Output As #1
 
  lr = Range("G" & Rows.Count).End(3).Row
  lc = Cells(11, Columns.Count).End(1).Column
  a = Range("A12", Cells(lr, lc)).Value
  For j = 8 To UBound(a, 2) Step 8
    For i = 1 To UBound(a, 1)
      If a(i, j) <> 0 Then
        Print #1, a(i, j - 1)
      End If
    Next i
  Next
  Close #1
  MsgBox "Fin"
End Sub

Buenos días Dante,
se ejecuto de manera correcta, muchas gracias por tu ayuda.

 

[DanteAmor]

Encantado de ayudarte! Gracias por comentar.