COMO SE RECORRE UNA HOJA DE EXCEL PARA ENCONTRAR UNA PALABRA

12/08/2005 - 18:51 por Yadis131000 | Informe spam
Estoy creando un formulario para que sea llenado por un usuario y guardo en
una hoja de excel, pero no quiero que se repita el nombre por ejemplo,
entonces al guardar quiero que revise si ya existe el nombre en la hija de
excel y si existe seguir guardandoa a du derecha.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
13/08/2005 - 01:18 | Informe spam
hola, Yadis !

Estoy creando un formulario para que sea llenado por un usuario y guardo en una hoja de excel
pero no quiero que se repita el nombre... quiero que revise si ya existe... y si existe seguir guardandoa a du derecha.



-> suponiendo que 'el nombre' lo pone el usuario en el TextBox1 del formulario
... y que 'los nombres' estan en la columna 'A' de la hoja activa...
podrias [p.e.] obtener el numero de fila [columna 'A'] donde existe ->la primer coincidencia<- para 'ese nombre'
[no se su pudiera YA haber nombres 'repetidos'] -?-
... o el numero de fila
Respuesta Responder a este mensaje
#2 Héctor Miguel
13/08/2005 - 01:21 | Informe spam
hola, Yadis ! [perdon... el mensaje anterior 'se me chispotio'] :D

Estoy creando un formulario para que sea llenado por un usuario y guardo en una hoja de excel
pero no quiero que se repita el nombre... quiero que revise si ya existe... y si existe seguir guardandoa a du derecha.



-> suponiendo que 'el nombre' lo pone el usuario en el TextBox1 del formulario
... y que 'los nombres' estan en la columna 'A' de la hoja activa...
podrias [p.e.] obtener el numero de fila [columna 'A'] donde existe ->la primer coincidencia<- para 'ese nombre'
[no se su pudiera YA haber nombres 'repetidos'] -?-
... o el numero de la 'siguiente fila libre'... para agregarlo en la hoja activa ;)

si lo anterior es diferente de lo que necesitas... comentas datos adicionales?
saludos,
hector.
en el modulo de codigo del formulario ==Private Sub CommandButton1_Click()
Dim Fila As Long
If Application.CountIf(Range("a:a"), TextBox1) > 0 Then
Fila = Range("a:a").Find(TextBox1).Row
MsgBox TextBox1 & " ya existe en la fila " & Fila
Else
Fila = Range("a65536").End(xlUp).Offset(1).Row
MsgBox TextBox1 & " sera agregado en la fila " & Fila
End If
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida