Luis_P

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...

Prueba con esto private sub codig() [A1]=application.ProductCode end sub Eso te pasa la info a la celda a1

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

Bueno no existe una funcion para eso especificamente, pero usa el ingenio Para la categoria x pon esto =contara(rango de tu lista)-suma(rango resultados) En donde rango resultados es la suma de tus categorias a, b, c, 55+46+87 asi calculas los que no...

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" &...

prueba utilizando la funcion de busqueda =buscarv()

Si es por formato condicional, no te va a reconocer el color por que ese color "no esta en la celda" Prueba asi: ActiveCell.FormatConditions(1).interior.color=vbyellow Esta linea solo funciona para celdas con color dado por formato condicional

El rango que evalúa es For Each r In Range("a1:z100"), asi si en la coluimna Z existe la condicion entonces debe poner el texto 5 celdas a la derecha