............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Buscar campos automáticamente y me muestre los que no existen

Ver el tema anterior Ver el tema siguiente Ir abajo

Buscar campos automáticamente y me muestre los que no existen

Mensaje por cajg70 el Dom Ago 22, 2010 1:42 am

Hola amigos:

Tengo una hoja con una lista de datos en las cuales pueden existir una serie de campos o no.

La idea es buscar una serie de campos que sí existen y que aparezca un cuadro de texto (msgbox) con los campos que falten (que no existan).

Llevo toda la semana con esto y no lo saco por ningún lado.

Gracias de antemano.

Carlos

cajg70

Masculino Cantidad de envíos : 5
Edad : 47
Ciudad - Pais : Salamanca - España
Version de Excel : 2007
Fecha de inscripción : 23/07/2010

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por GalileoGali el Dom Ago 22, 2010 9:34 am

serie de campos???

Cuadro de texto como msgbox???

Por que no cuelgas en skydrive lo que llevas hecho. (te anticipo que no hacemos macros, solo corregir lo ya hecho, sugerir algun paso, o lo que el ánimo de quien conteste esté dispuesto a brindar)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por cajg70 el Dom Ago 22, 2010 2:38 pm

Hola GalileoGali:

Por supuesto, que no pretendo que se haga la macro, pero sí, si es posible, dar luz a una duda que no soy capaz de sacar por mi mismo.

Los campos que deben estar siempre son: Incidencia, Interacción, Abierto por y Título. Si algún campo de los no existe, que aparezca un cuadro de texto (msgbox, por ejemplo) indicando los campos faltantes.

Yo realizo la búsqueda de campos o datos, a través de cells.find(...) y lo asigno a una variable, pero cuando el campo no existe me da un error de depuración. Creo que el camino no es el adecuado, por eso pido vuestra ayuda.

Gracias anticipadas. Un saludo

cajg70

Masculino Cantidad de envíos : 5
Edad : 47
Ciudad - Pais : Salamanca - España
Version de Excel : 2007
Fecha de inscripción : 23/07/2010

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por GalileoGali el Dom Ago 22, 2010 4:51 pm

presenta tu macro

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por cajg70 el Dom Ago 22, 2010 5:09 pm

Hola de nuevo. Si quieres te mando el proyecto, pero no tiene ningún sentido que te mande todos los módulos ya que no tienen nada que ver con la pregunta iniciada. Lo que estoy pidiendo es un "haz de luz" de algo que no sé como hacer y quisiera incorporarlo en uno de los muchos módulos que tiene este proyecto.

Un saludo

cajg70

Masculino Cantidad de envíos : 5
Edad : 47
Ciudad - Pais : Salamanca - España
Version de Excel : 2007
Fecha de inscripción : 23/07/2010

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por GalileoGali el Dom Ago 22, 2010 8:24 pm

Manda la macro lógicamente ligada a tus busquedas

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por cajg70 el Lun Ago 23, 2010 12:50 am

Hola de nuevo GalileoGali:

Llevo un rato rompiéndome la cabeza y no entiendo porque no funciona lo que yo quiero. Te muestro lo que tengo, pero no es lo que quiero (es para que te hagas una idea de lo que pretendo).

El código que tengo es el siguiente (adjunto el archivo excel):

Sub BuscaDatos()
Dim campos As String
Dim resultado As String
campos = Cells.Find("incidencia")
If campos <> "" Then
resultado = resultado & campos
End If
campos = Cells.Find("interaccion")
If campos <> "" Then
resultado = resultado & Chr(13) & campos
End If
campos = Cells.Find("abierto por")
If campos <> "" Then
resultado = resultado & Chr(13) & campos
End If
campos = Cells.Find("Título")
If campos <> "" Then
resultado = resultado & Chr(13) & campos
End If
resultado = MsgBox(resultado, vbDefaultButton1, "ERROR: FALTAN LOS SIGUIENTES CAMPOS")
End Sub


Lo que pretendo es que si no existe un determinado campo me aparezca un mensaje con los campos faltantes. En esta macro me da el resultado de los campos existentes. Lo que busco es que si dentro de la instrucción campos = Cells.Find("xxx") el campo o campos no están en la tabla me acumule los campos faltantes y me los muestre en un cuadro de texto. Cuando campos = Cells.Find("xxx"), no encuentra el campo me da un error de depuración.

A ver si ahora me puedes ayudar. Gracias



Carlos

cajg70

Masculino Cantidad de envíos : 5
Edad : 47
Ciudad - Pais : Salamanca - España
Version de Excel : 2007
Fecha de inscripción : 23/07/2010

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por GalileoGali el Lun Ago 23, 2010 8:36 pm

Prueba esto, a ver si entendí:


Código:
Sub BuscaDatos()
    Dim campos As String
    Dim resultado As String
    On Error Resume Next
    campos = Cells.Find("incidencia")
    If campos = "" Then
        resultado = resultado & "incidencia"
    End If
    campos = Cells.Find("interaccion")
    If campos = "" Then
        resultado = resultado & Chr(13) & campos
    End If
        campos = Cells.Find("abierto por")
    If campos = "" Then
        resultado = resultado & Chr(13) & campos
    End If
        campos = Cells.Find("Título")
    If campos = "" Then
        resultado = resultado & Chr(13) & campos
    End If


    resultado = MsgBox(resultado, vbDefaultButton1, "ERROR: FALTAN LOS SIGUIENTES CAMPOS")
       
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por cajg70 el Lun Sep 13, 2010 11:43 pm

Hola GalileoGali:

Hasta hoy no he podido acceder al foro. He estado unos días de vacaciones. Probaré tu código para ver si funciona.

Gracias de antemano

cajg70

Masculino Cantidad de envíos : 5
Edad : 47
Ciudad - Pais : Salamanca - España
Version de Excel : 2007
Fecha de inscripción : 23/07/2010

Volver arriba Ir abajo

Re: Buscar campos automáticamente y me muestre los que no existen

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.