Luis_P

Abre el editor de visual basic (Teclas Alt + F11) Dale doble click al objeto "ThisWorkbook" Allí pones esto: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '4c7569735f50 If UCase(Sheets(2).Range("A1")) = "INCORRECTO" Then...

Prueba este otro enfoque: Sub misuma() Dim t As Double Dim r As Range '4c7569735f50 On Local Error GoTo err: t = 0 For Each r In Range("L:L") If UCase(r) = "SIN DATO" Then Exit For t = t + (r + r.Offset(0, -9)) DoEvents Next [c80] = t Set r = Nothing...

Prueba esta función: Public Function fmes(ByRef fecha As String) Dim mt() As String Dim d As String * 4 Dim m As String * 4 Dim y As String * 4 Dim hr As String * 9 '4c7569735f50 hr = Mid(fecha, (Len(fecha) - 8), 9) fecha = Replace(fecha, hr, "") mt...

'4c7569735f50 La función evalúa si existe o no una determinada hoja en el libro activo, es decir devuelve "verdadero" o "falso" ( ya que esta en su forma boleana) ejemplo : si invocas la función =SheetExists("hoja2") Devolverá verdadero si esta hoja...

Intenta esto: Private Sub Worksheet_Change(ByVal Target As Range) '4c7569735f50 [a1].Select Do While Len(Selection) > 0 Selection.Offset(1, 0).Select ´tu_procedimiento DoEvents Loop End Sub Esto en el evento change de tu hoja Lo primero es posicionar...

en el evento initialize del form debes poner esto comandbutton3.enable=false luego en el evento click del comandbutton2 pones esto comandbutton3.enable=true

'4c7569735f50 Seguro que no, pues debes tener esa variable declarada solo en ámbito del formulario. Debes declarar la variable nombre en ámbito publico an un modulo, de esa manera sera visible por todo el proyecto ( libro). Inserta un modulo y...

Mis conocimientos en VB son básicos... Bueno es momento de completarlos... muéstrame el código que tienes hasta ahora

Hasta donde manejo el formato de la fuente (forecolor) para listbox aplica sobre el control ( en su totalidad) y no sobre cada elemento.

'4c7569735f50 En este ejemplo aplico formato fecha al dato contenido en celda e4 ( el cual tiene formato general) Format(range("e4"),"dd-mm-yyyy")