Cells ()

22/10/2008 - 21:25 por AgerGaston | Informe spam

Hola a todos.
Les copio el codigo que tengo y luego les pregunto.

Private Sub ComboBox1_Click()
numtema = ComboBox1.ListIndex + 1
UserForm2.Caption = "Consulta para " & Worksheets("Ayuda").Cells(numtema, 1)
Label1.Caption = Worksheets("Ayuda").Cells(numtema, 2)
End Sub

La linea Label1.Caption = Worksheets("Ayuda").Cells(numtema, 2)
Me muestra el valor de la hoja "ayuda" en la columna 2.

Necesito poner ademas de lo anterior, los valores que estan en las columnas
3, 4, 5, 6, 7 y 8. Respetando la fila que tiene por nombre "numtema".

Se puede? Como se hace.???

Gracias.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

22/10/2008 - 22:49 | Informe spam

hola, !

(p.e.)

Private Sub ComboBox1_Click()
Dim Col As Byte, Titulo As String
numtema = ComboBox1.ListIndex + 1
For Col = 2 To 8
Titulo = Titulo & " " & Worksheets("ayuda").Cells(numtema, Col)
Next
UserForm2.Caption = "Consulta para " & Worksheets("ayuda").Cells(numtema, 1)
Label1.Caption = Mid(Titulo, 2)
End Sub

saludos,
hector.

__ OP __

Les copio el codigo que tengo y luego les pregunto.

Private Sub ComboBox1_Click()
numtema = ComboBox1.ListIndex + 1
UserForm2.Caption = "Consulta para " & Worksheets("Ayuda").Cells(numtema, 1)
Label1.Caption = Worksheets("Ayuda").Cells(numtema, 2)
End Sub

La linea Label1.Caption = Worksheets("Ayuda").Cells(numtema, 2)
Me muestra el valor de la hoja "ayuda" en la columna 2.

Necesito poner ademas de lo anterior, los valores que estan en las columnas
3, 4, 5, 6, 7 y 8. Respetando la fila que tiene por nombre "numtema".

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida