donking

ifrancoz respondió: Dim I as Integer 'Longitud línea Dim J as Integer ' Filas en Excel Dim Largo1 as Integer Dim Largo2 as Integer Dim Linea as String I=80 J=2 Largo2=1 Private Sub Copiar() Largo1=Len(Text1) While Largo2 < Largo1 Linea=Mid(Text1,Largo2,I)...