Programación General > VBA

 Nombres De Usuario Para Los Usuarios De Cada Celda

(1/1)

sete15:
Hola, soy Sete15 de nuevo.

Como ya dije, estoy comenzando con VBA y tengo grandes dudas. Comienzo:

Estoy creando un nombre de usuario mediante un botón cada vez que inserto su nombre, apellido1 y apellido2. El nombre de usuario está compuesto por:
- Primera letra del nombre
- Tres primeras letras del primer apellido
- Tres primeras letras del segundo apellido

Para ello, he utilizado el siguiente código:

--- Código: Text --- Range("A10").Select ActiveCell.Offset(0,3).SelectTextBox4= Left (Me.TextBox1.Value, 1) & (Me.TextBox2.Value, 3) & (Me.TextBox3.Value, 3)  Pero lo que deseo ahora es que esta misma funcion, la pueda realizar para muchos usuarios que tengo insertados ya en el libro. Estos nombres y apellidos de usuarios han sido importados previamente de un '.txt'. Pues bien, lo que no sé es: cómo hacer para que al pinchar sobre el boton del formulario, se me cree un nombre de usuario para cada nombre y apellidos del libro.

            Muchas Gracias por vuestra ayuda!!!!

Shiquilla:
Supongo que tendrás un tope de columnas y filas, sólo tienes que recorrerlas y crear el usuario. Por ejemplo:


--- Código: Text ---Dim lnI As LongDim lnTotalFilas As LongDim lnC As LongDim lnTotalColumnas As LongDim lsValor As String     lnTotalColumnas = 87 'Ascii de Columna W    lnTotalFilas = 88     For lnC = 66 To lnTotalColumnas 'Desde la columna A hasta la columna W        For lnI = 1 To lnTotalFilas 'Desde la fila 1 hasta la fila 88            Range(Chr(lnC) & CStr(lnI) & ":" & Chr(lnC) & CStr(lnI)).Select            lsValor = ActiveCell.FormulaR1C1            If Trim(lsValor) <> "" Then                'Llamar a una funcion que te cree el usuario y demás pasandole el valor que has recogigo            End If        Next    Next 
PD: Este ejemplo está para sólo una celda, adaptalo para leer nombre y apellidos.

Saludos,

Navegación

[0] Índice de Mensajes