JanOwe Waldner

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.

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