Respuesta
en
Microsoft Excel
y en 2 temas más
a
Llamar sub (de un command button) a una acción de un textbox
Private Sub num_client_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = KeyAscii Else KeyAscii = 0 End If If KeyAscii = 13 Then Call Cargar_num_client_Click End If End Sub
Respuesta
en
Microsoft Access
a
Copiar y pegar en un documento .jpg
Crea un botón en excel e inserta este código. Set H1 = Sheets("TUHOJA") Set H2 = Sheets.Add ruta = "C:\Users\Desktop\EMPRESA\Comprobantes\" '(ACA TU RUTA) archivo = ruta & H1.[H4] & ".JPG" rango = "TURANGO" With H1.Range(rango) fi = .Cells(1, 1).Row...