JanOwe Waldner

Desconozco cómo las tienes planteadas, prueba así: Private Sub CommandButton1_Click() Macro1 Macro2 End Sub Sub Macro1() MsgBox "Corriendo la 1" End Sub Sub Macro2() MsgBox "Corriendo la 2" End Sub

Entiendo que deseas seleccionar todo el texto contenido en un TextBox cuando este reciba el foco, es decir, cuando sea el control 'activo'. Prueba con lo siguiente: Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength =...

Desconozco cómo tienes organizadas las columnas y los controles de tu formulario pero, básicamente, podría ser algo así: Private Sub CommandButton1_Click() Dim Fila As Integer For Fila = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(Fila, 1) =...

Prueba con lo siguiente y lo adaptas según tu necesidad. -------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Fila As Integer, Columna As Integer, UltimaFila As Integer Dim Permiso As String, Constancia As String, Cuando As...

A ver si te sirve esto: ------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Dim Fila As Integer If Target.Column = 6 Then Fila = Target.Row If Cells(Fila, 6) > Cells(Fila, 2) Then Cells(Fila, 2) = "" Cells(Fila, 3) = "" End...

¿Has revisado el nivel de seguridad? Tal vez puedan estar deshabilitadas.

Supongo que te refieres a algo así: txtCorte.Text = Left(txtUPC.Text, 7) txtBulto.Text = Mid(txtUPC.Text, 8, 3) txtPieza.Text = Right(txtUPC.Text, 3)

Si por matriz te refieres a un rango de celdas... =PROMEDIO(A1:F10) y lo adaptas a tu necesidad.

Drupal, Joomla o WordPress, CMS muy potentes y relativamente sencillos de usar. Infinidad de temas (plantillas) tanto libres como de pago.

Los SMS únicamente funcionan con texto, para imágenes tendrías que enviar MMS. Otra posibilidad es pasarla por Bluetooth. ¿Admiten ambos teléfonos estas tecnologías?

Utiliza formatos condicionales tal como en esta captura adecuando los rangos a tus necesidades. Saludos. Aquí el rango de datos sería A-F y las fechas estaría en E y F.

Prueba con el siguiente código, donde la hoja 1 es la receptora de los datos del resto de hojas del libro. Dime si hay que adecuar algo más. ----------------------- Dim Hoja As Long, Fila As Integer Fila = 1 For Hoja = 2 To Sheets.Count...

Admite hasta 4 GB según las especificaciones del fabricante. https://support.lenovo.com/es/es/solutions/pd008989

Si puedo ver tu archivo intentaré averiguar dónde se produce el error.