-
-
Posts
-
By RubenDario · Posted
Excelente apreciado Sr. @Antoni!! Que maravilla esta solución suya. Sin embargo se me está presentando algunos problemas. Ya le escribo en la brevedad y le indico. Ruben -
By Chrispal1977 · Posted
Perfecto estimado Antoni, es usted un genio, le agradezco mucho por su ayuda...puedo dar por solucionado este tema... -
Private Sub CommandButton1_Click() saltos = Len(TextBox1.Value) - Len(Application.WorksheetFunction.Substitute(TextBox1.Value, Chr(10), "")) texto = TextBox1.Value For i = 1 To saltos Hoja2.Cells(i, 1) = Mid(texto, 1, InStr(1, texto, Chr(10)) - 2) texto = Application.WorksheetFunction.Substitute(texto, Mid(texto, 1, InStr(1, texto, Chr(10))), "", 1) Next Hoja2.Cells(i, 1) = texto End Sub Private Sub UserForm_Activate() TextBox1.Text = Sheets("Hoja1").Range("a1").Value End Sub -
Es un error de datos, sin el archivo es imposible decirte nada más.
-
Abre el adjunto, selecciona la Cía por la que quieres empezar y pulsa la flecha azul. Asignar código.xlsm
-
-
Recently Browsing
No registered users viewing this page.
Recommended Posts
Archived
This topic is now archived and is closed to further replies.