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

error en listbox

Ver el tema anterior Ver el tema siguiente Ir abajo

error en listbox

Mensaje por morfeo el Jue Mar 31, 2011 1:55 pm

Hola amigos foristas, les escribo para solicitar su ayuda.
Yo ya diseñe un código que me ayuda a recorrer las celdas para validar si la celda activa es igual a la ciudad seleccionada en el listbox, entonces las celdas de las columnas b y c no pueden estar vacios. Cuando son vacios marca las celdas vacias.
El tema es que yo NO se como se puede almacenar el valor del listbox para utilizarlo en la validación.
Espero me puedan ayudar, de antemano mil gracias



Última edición por morfeo el Jue Mar 31, 2011 8:18 pm, editado 1 vez

morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

error listbox

Mensaje por morfeo el Jue Mar 31, 2011 4:04 pm

disculpas olvide el archivo adjunto.

Mil gracias por su ayuda.


morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

Re: error en listbox

Mensaje por GalileoGali el Jue Mar 31, 2011 10:25 pm

seria interesante que indicaras con un ejemplo exactamente lo que quieres y agregues los pasos de codigo don de surge tu dificultad

_________________
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

listbox que selecciona solo vacios

Mensaje por morfeo el Lun Abr 04, 2011 11:20 am

hola gali que gusto pertenecer a su foro. aunque veo que hace falta un poco de participación de sus integrantes.. no?
por mi parte he invitado a unos amigos para que se registren.

Por otro lado y teniendo en cuenta su comentario, le repito mi inquietud:

Tengo un código (ver adjunto) que me ayuda a recorrer las celdas de la columna B, para validar si la celda activa es igual a la ciudad seleccionada en el listbox. Cuando la celda es igual al listbox entonces me pone color a las celdas.
El tema es que la macro SOLO me selecciona las celdas de la columna B que estan vacias y NO toma la ciudad seleccionada en el listbox.

Espero me pueda ayudar gali, de antemano mil gracias


GalileoGali escribió:seria interesante que indicaras con un ejemplo exactamente lo que quieres y agregues los pasos de codigo don de surge tu dificultad



morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

Re: error en listbox

Mensaje por GalileoGali el Lun Abr 04, 2011 11:06 pm

No revisamos codigo. Solo si indcas una linea o tramo....

_________________
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

error listbox

Mensaje por morfeo el Mar Abr 05, 2011 5:20 pm

hola gali
bueno el problema esta en la condicional "if"
If Cells(1 + i, 2).Text = ComprueCiudad Then
Dado que NO me comprueba la ciudad que previamente seleccione del listbox y asume por defecto como un valor = vacio o cero

Gracias


GalileoGali escribió:No revisamos codigo. Solo si indcas una linea o tramo....

morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

Re: error en listbox

Mensaje por GalileoGali el Mar Abr 05, 2011 6:11 pm

En esta declaracion modular
' Dim ComprueCiudad As String

elimina el apostrofe

Dim ComprueCiudad As String

_________________
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: error en listbox

Mensaje por morfeo el Miér Abr 06, 2011 10:37 am

Hola gali ya elimine el apostrofe pero sigue sin tener resultado, la macro solo revisa las celdas que estan vacias pero no las que tienen la ciudad que yo seleccione con el listbox.

Sera que el codigo esta mal utilizado??? tienes alguna otra opcion.


GalileoGali escribió:En esta declaracion modular
' Dim ComprueCiudad As String

elimina el apostrofe

Dim ComprueCiudad As String

morfeo

Cantidad de envíos : 6
Fecha de inscripción : 28/01/2009

Volver arriba Ir abajo

Re: error en listbox

Mensaje por GalileoGali el Miér Abr 06, 2011 12:15 pm

morfeo escribió:Hola gali ya elimine el apostrofe pero sigue sin tener resultado, la macro solo revisa las celdas que estan vacias pero no las que tienen la ciudad que yo seleccione con el listbox.

Sera que el codigo esta mal utilizado??? tienes alguna otra opcion.




GalileoGali escribió:En esta declaracion modular
' Dim ComprueCiudad As String

elimina el apostrofe

Dim ComprueCiudad As String


El codigo esta lleno de errrores....es una verdadero patch¿patch, asi no se puede construir macros

porque no sintetizas que es lo que queres lograr al apretar continuar?

_________________
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: error en listbox

Mensaje por Logroastur el Dom Abr 10, 2011 9:54 am

Buenas prueba colocando lo siguiente

Código:

Dim ComprueCiudad As String

Private Sub UserForm_Initialize()
  Call selectCiudad
  CommandButton1.Visible = False
End Sub

Static Sub ListBox1_Click()
    If ListBox1 <> Empty Then
        CommandButton1.Visible = True
        ComprueCiudad = ListBox1.Value
    Else
        CommandButton1.Visible = False
    End If
End Sub

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    If Range("B" & i) = ComprueCiudad Then
        If Range("C" & i) = Empty Then Range("C" & i).Interior.Color = -2000
        If Range("D" & i) = Empty Then Range("D" & i).Interior.Color = -2000
    End If
Next i
End Sub

Un saludo
avatar
Logroastur
Moderador
Moderador

Masculino Cantidad de envíos : 32
Edad : 53
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: error en listbox

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.