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
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
0
