Aneudys Martinez

De la misma manera que lo hace para ingresar los datos Desbloquea la hoja y vuelve a bloquearla Porque me Imagino que la consulta es solo para visualizer la información

Te esta pidiendo que definas la variable I estos lo puede corregir así Dim i for I = 2 to 1000 ...

Este es mi correo [email protected] Esto se puede conseguir definiendo rango y agregando le nombre a eso rango Y con la formula suma producto Mandame el archivo para agregar la formula

En ves de crear una hoja copia la hoja principal asi te crea la misma hoja con el boton Y copia la informacion que require en ella Ejemplo Worksheets("modelo").Copy After:=Worksheets(Worksheets.Count) Modelo seria el nombre de tu hoja principal Si te...

Usalo en el evento change Private Sub tipo_movimiento_change() If Me.tipo_movimiento = "Entrada" Then Me.Nro_remision.Enabled = True Else Me.Nro_remision.Enabled = False End If End Sub Si te silve no olvide valorar para cerrar la pregunta

Revisa las versions de excel la tuya y la del las otras pc

Estos lo puedes conseguir fácil desde el evento open del libro o mediante una formulario de acceso al libro Tiene formulario o alguna macro muéstranos la sino este es mi [email protected]

Te falto finalizar la comparación Private Sub validar() Dim h, i Set h = Sheets("Programación") For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row Do While Cells(i, "C") <> Cmbxnombre.Text And Cells(i, "I") <> CDate(Txbxfecini) i = i + 1 'MsgBox...

Si se puedes Para la suma lo puedes logra con algo así Suma = WorksheetFunction.Sum(Range("f8:f100000")) Range("f1000000").End(xlUp).Offset(1, 0) = Suma el total de la suma vendria callendo una celda debajo del ultimo valor agregado para los border...

Según veo y pude entender creo que con un do while a la celda activa podrías conseguir eso Intent algo así a ver que te ayuda Range("b1").Select Do While ActiveCell <> "" If ActiveCell = "idem" Then ActiveCell = ActiveCell.Offset(-1, 0) End If...