Eduard Caballero

Esto no es posible porque se pierde control del foco al usar msgbox. Aquí hay algo que simula lo que quieres. Puedes configurarlo en el evento exit. Evidentemente el msgbox hace que el foco pase al otro control, por lo que el "mensaje" lo...

En mi skydrive hay algo parecido que te puedo ayudar. Pero realmente se hace un autofiltro de las palabras que contienen tu búsqueda. Espero te sirva se llama autofiltro...

Un ejemplo en mi skydrive se llama factura puede ayudarte a iniciar lo que indicas https://skydrive.live.com/?cid=e5f28d555f68f3cc#cid=E5F28D555F68F3CC&id=E5F28D555F68F3CC%21169

La validación de fechas no es algo sencillo en vba exel. Yo recomiendo usar control calendar http://www.yogeshguptaonline.com/2010/01/excel-macros-excel-date-picker.html http://isamrad.com/ExcelCal/default.htm

Para eso existe Offset Por ejemplo: si esta seleccionado Range("C18"). Select y quieres ir una a la derecha seria Activecell. Offset(0,1) 0 por ser la misma fila y uno por ser la columna de la derecha. Otro ejemplo Activecell. offset(1,0). Select te...

Usa esto por ejemplo =SI(C2<24;24-C2+D2;D2-C2) Y asegurate de poner el formato personalizado hh:mm y así tendrás lo que quieres.

Acá tienes Private Sub Workbook_Open() Sheets(1).Select If Range("A1") < Range("A2") Then ActiveSheet.Shapes.Range(Array("Autoforma1")).Select With Selection.ShapeRange.Fill .ForeColor.RGB = RGB(255, 0, 0) End With End If End Sub Recuerda que debes...

Hasta donde se esto no es posible Hazlo con un macro Sub IrAlGráfico() Sheets(&quot;Gráfico1&quot;).Select End Sub Y asignala a un botón

Así como esta es lógico que no la sume la fila 262 ya que no se encuentra en el rango. Fijate que llega hasta la 261 deberia ser la formula =SUBTOTALES(9;G$6:$H262)

Acá tienes Sub copia() Cells(3, 1).Select Selection.EntireRow.Copy Range("A65000").End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub