Los foros del Guille

Ya está a la venta Novedades de Visual Basic 9.0

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

15/jun/2007
Cuando hagas una consulta, por favor indica que versión del lenguaje estás usando y procura hacer la pregunta en el foro más adecuado... para eso hay varios.
Gracias.

  Foro: Sugerencias y Bugs Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 57968 - mostrar datos en textbox
IDAsuntoFechaNick 
57968 mostrar datos en textbox05/07/15 09:36canario   
tengo un codigo vb6 que no puedo ver el ultimo dato.(33) en los textbox salen los 10 mas antiguos

Private Sub CommandButton4_Click()
'Dim Mensajes As String
Dim R As Range

Sheets("VISITAS").Activate

On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
'AQUI ACTIVA Y PROTEJE LAS HOJAS
Sheets("VISITAS").Unprotect "1956"

'AQUI CAMBIO LETRA MAYUSCULAS
TextBox1.Text = UCase(TextBox1.Text)


'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

BETA: 'vuelve a la busqueda


If TextBox1 = "" Then Exit Sub
'Sub BusquedaMultiple()
'indico en que hoja y rango buscaré:
With Sheets("visitas").Range("a2:aa60000")
'seteo a c, indicándole que busque "excel"

Set R = .Find(TextBox1)
'si el resultado es positivo:
If Not R Is Nothing Then
'como primer medida guardo la dirección "address"
'de la celda que contiene "excel".
firstAddress = R.Address

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Do
R.Select

''AQUI SE LLENAN LOS TEXTBOX
TextBox1.Value = ActiveCell.Offset(0, 0).Value 'PATENTE
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'depto
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'motivo
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'fecha y hora
'1
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'depto 4
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'fecha y hora 5 ' ok
'2
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'depto¡ 6
TextBox8.Value = ActiveCell.Offset(0, 7).Value 'fecha y hora 7 ok
'3
TextBox9.Value = ActiveCell.Offset(0, rie_gafas.Value 'depto ...8
TextBox10.Value = ActiveCell.Offset(0, 9).Value 'fecha y hora 9 ok
'4
TextBox11.Value = ActiveCell.Offset(0, 10).Value 'depto 10
TextBox12.Value = ActiveCell.Offset(0, 11).Value 'fecha y hora 11
'5
TextBox13.Value = ActiveCell.Offset(0, 12).Value 'depto 12
TextBox14.Value = ActiveCell.Offset(0, 13).Value 'fecha y hora 13 ok
'6
TextBox15.Value = ActiveCell.Offset(0, 14).Value 'depto 14
TextBox16.Value = ActiveCell.Offset(0, 15).Value 'fecha y hora 15
'7
TextBox17.Value = ActiveCell.Offset(0, 16).Value 'depto 16
TextBox18.Value = ActiveCell.Offset(0, 17).Value 'fecha y hora 17 ok
'8
TextBox19.Value = ActiveCell.Offset(0, 1rie_gafas.Value 'depto 18
TextBox20.Value = ActiveCell.Offset(0, 19).Value 'fecha y hora 19
'9
TextBox21.Value = ActiveCell.Offset(0, 20).Value 'depto 20
TextBox22.Value = ActiveCell.Offset(0, 21).Value 'fecha y hora 21 ok
'10
TextBox23.Value = ActiveCell.Offset(0, 22).Value 'depto 22
TextBox24.Value = ActiveCell.Offset(0, 23).Value 'fecha y hora 23
'11
TextBox25.Value = ActiveCell.Offset(0, 24).Value 'depto 24
TextBox26.Value = ActiveCell.Offset(0, 25).Value 'fecha y hora 25 ok
'12
TextBox27.Value = ActiveCell.Offset(0, 26).Value 'depto 26
TextBox28.Value = ActiveCell.Offset(0, 27).Value 'fecha y hora 27
'13
TextBox29.Value = ActiveCell.Offset(0, 2rie_gafas.Value 'depto 28
TextBox30.Value = ActiveCell.Offset(0, 29).Value 'fecha y hora 29 ok
'14
TextBox31.Value = ActiveCell.Offset(0, 30).Value 'depto 30
TextBox32.Value = ActiveCell.Offset(0, 31).Value 'fecha y hora 31 ok
'15
TextBox33.Value = ActiveCell.Offset(0, 32).Value 'depto 3
[Editado: canario, 05/07/2015 09:36:47

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 25 - App. iniciada: 18/11/2017 18:43:39 GMT - La hora GMT del servidor es: 18/11/2017 19:29:38 GMT