Los foros del Guille

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

Google
 

Regálate mi libro de Visual Basic 2005
Todo lo explicado es para .NET 2.0.
El complemento ideal para mi libro Novedades de Visual Basic 9.0

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

23/ene/2006
Por favor, no pidáis que os respondan de forma particular a vuestras consultas, ya que se supone que un foro es para compartir dudas y respuestas, de forma que otros se beneficien de esas respuestas.
También os pediría que antes de preguntar busquéis la respuesta, en muchas ocasiones ya estará.
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-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8800)
 
Usuarios activos: 106 - App. iniciada: 16/12/2018 0:59:40 GMT - La hora GMT del servidor es: 16/12/2018 02:42:07 GMT