Jump to content

Chrispal1977

Members
  • Content Count

    87
  • Joined

  • Last visited

Reputation Activity

  1. Thanks
    Chrispal1977 reacted to Antoni in Código no funciona bien   
    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  
×
×
  • Create New...

Important Information

Privacy Policy