Visual Basic para Aplicaciones - cargar combobox

Life is soft - evento anual de software empresarial
   
Vista:

cargar combobox

Publicado por pablo (48 intervenciones) el 11/10/2010 16:22:27
hola amigos foristas:
Quiero cargar una combobox con las paginas de excel pero tengo algun problema con los requisitos. Hice algún programa que funciona bien cargando las voces de la pagina ejemplo: presupuesto euromedical, presupuesto sa nisan sas, euromedical, sa nisan sas. El requisito es que solo tome los dos últimos no contando aquellos que dicen presupuesto. Una idea es esta pero me agarra todo

For v = 1 To Sheets.Count
z = Sheets(v).Name
'If Len(z) > 0 Then z = Mid(z, 1, 10) 'z = Right(z, Len(z) - 10)
'If Mid(z, 1, 10) <> Trim(UCase(preventivo)) Then z = Right(z, Len(z) - 10)
If z <> "" Then z = Right(z, Len(z) - 10)
ListBox4.AddItem z

'If Trim(UCase(z)) = Trim(UCase(ComboBox3.Value)) Then
'Me.ListBox4.AddItem z
'Me.ComboBox3.AddItem z
'End If
Next v

gracias por todo
pablo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:cargar combobox

Publicado por JuanC (431 intervenciones) el 12/10/2010 01:42:53
la verdad que no entiendo 100%
podrías usar la función InStr...

If InStr(1, z, "presupuesto") > 0 Then '//Si z contiene presupuesto, entonces...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar