Los foros del Guille

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

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)

04/may/2006
Nuevo foro: Dale caña al Guille..., en este foro podrás hacer comentarios sobre los artículos, trucos, etc., que estén publicado en mi sitio (no en los foros), ya sean mios o de los colaboradores.
Por favor, indica la URL del artículo que comentes. 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.8762)
 
Usuarios activos: 28 - App. iniciada: 19/01/2018 10:55:21 GMT - La hora GMT del servidor es: 19/01/2018 11:10:04 GMT