Luis_P

Seria asi: Private Sub UserForm_Initialize() Me.Caption = Date & "|" & Time End Sub

Ni idea

Acá esta: Private Sub Command1_Click() numero = CInt(InputBox("Introducir número: ")) MSHFlexGrid1.Rows = numero + 2 ' este era el problema Dim j As Integer j = 1 For i = 0 To numero cuadrado = i ^ 2 cubo = i ^ 3 MSHFlexGrid1.TextMatrix(j, 0) = i...

Las dimensiones de la imagen se las das al picture... para sacar a la impresora local Solo PrintOut picture1 O bien si pasaste la imagen a un objeto imagen PrintOut imagen

Acá tienes: Sub buscar(fecha As Date) Dim r As Range Dim filas As Long filas = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) If filas = 0 Then Exit Sub '4c7569735f50 For Each r In Sheets(1).Range("A:A") If fecha = r Then...

Cambia de evento y utiliza el enter como disparador Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select * from table where …. If recorset > 0 Then Muestre datos Else Mgsbox (“no hay datos”) End If End If End Sub

Primero debes tener doden guardarlos, es decir una tabla que contenga los campos ´para fecha y para hora, la forma de agregar el dato es la misma que usas para agregar el dato de tu texbox campo1_de _ tu_tabla = textbox1 campo2_de _ tu_tabla = date...

Abre el editor de vb ( alt + F11) inserta un modulo ( no de clase) y alli pegas esto: Sub f() Dim r As Range Dim fila As Long '4c7569735f50 fila = Application.WorksheetFunction.CountA(Range("I:I")) If fila = 0 Then Exit Sub For Each r In Range("i1" &...

Hice la prueba y señala "el libro contiene macros grabadas o escritas en vbasic. No se pueden ver o modificar maros en libros compartidos". Asi que nada que hacer

Sub extrae() '4c7569735f50 Dim trama As String Dim v As String trama = ("7E00128356782E0005040002FB81") V = Mid(trama, 23, 4) ' extraemos la parte que te interesa y se la pasamos a la variable v End Sub