Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Microsoft Access
Función que limpia los campos de un formulario. Excel 2007
Tengo una función V.B. 6.0 funcionando correctamente y en Excel lee los valores de los textBox, pero no entra a borrarlos. Public Sub Limpia() Dim miControl As Control For Each miControl In Me.Controls If TypeOf miControl Is TextBox Then...
Sin respuestas
Ha valorado "Buena" la respuesta
Excel 2007 Tengo una función a la que le paso un parámetro tipo formulario y no lo reconoce.
usa UserForm en lugar de Form
Ha preguntado en el tema en
Visual Basic
Excel 2007. Busco una linea en un ListView y cuando la encuentro me posiciono en ella.
Antes quizá no fui muy conciso en la explicación. En el Listview hay cerca de 500 lineas, pero solo se muestran 50. Cuando hago la búsqueda se posiciona una vez localiza la linea y si se encuentra en los 50 visualizado observamos que lo marca...
Sin respuestas
Ha preguntado en el tema en
Visual Basic
Tengo un combo y selecciono un texto y seguido lo busco en un listview y me posiciono.
Private Sub TipoAlimento_Click() Este es el combo Dim Alimento As String Dim tItem As String Dim I As Integer Alimentación.SetFocus Alimento = TipoAlimento.Text For I = 1 To Alimentación.ListItems.Count tItem = Alimentación.ListItems(I) If tItem =...
Sin respuestas
Ha valorado "Buena" la respuesta
Tengo un error en Redim Preserve y no consigo verlo. Agradecería cualquier ayuda. Excel 2007
Cuando se usa la sentencia ReDim Preserve en matrices multidimensionales, solamente se puede modificar la última dimensión. ReDim Preserve Matriz(Pos, 0 To 3) 'Linea del error En tu caso se trata de una matriz de dos dimensiones, y estás intentando...
Ha preguntado en el tema en
Microsoft Excel
Tengo un problema en el REDIN PRESERVE y no veo el fallo. Estoy con Excel 2007.
Private Sub Carga() Dim I As Integer, Matriz() As String, J As Integer Dim Pos As Integer, NumReg As Integer Application.ScreenUpdating = False NumReg = 1: Pos = NumReg - 1 ReDim Matriz(Pos, 0 To 3) Range("A1").Select Do While ActiveCell <> Empty...
Sin respuestas