Victor Perdomo

¿Ya intentaste con una tabla dinámica?

Sub boton1_alhacerclick() [N39] = WorksheetFunction.Sum(Range("N37:N38")) [N3] = [N3] + 1 activesheet.PrintOut End Sub

Prueba esto y me cuentas Private Sub ComboBox1_Change() Select Case Range("f12").Value Case 1 Worksheets("Hoja5"). Range("b17:b37"). Clear Worksheets("Hoja5"). Range("c17:c37"). Clear Worksheets("CAMBIOS"). Range("d10:d30").Copy...

Lo que quieres hacer no es posible, ya que por una actualización de seguridad de microsoft, es necesario validar. Para este tipo de circunstancias uso el método CDO, pero no usa outlook si no un gestor de correo externo, en el siguiente link resuelvo...

Me puedes enviar un ejemplo de tu tabla a [email protected]

Abres el libro le das f8, seleccionas la macro y vas a opciones, hay le das la combinación de teclas.

Prueba este código y me cuentas Private Sub CommandButton1_Click() Set ws = Worksheets("HOJA1") iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iFila, 1).Value = TextBox1.Value TextBox1 = "" end sub

Las fechas siempre son un lio en excel, una opción es convertirlas a numero, prueba este codifo y me cuentas, haa y algo 01/06/2011 + 30 = 01/07/2011 :P. Sub Macro() data = CDbl(Worksheets("Hoja1").Range("A1").Value) datados = data + 30 StrData =...

No se si te entendí bien, pero hice un archivo para que lo revises y me cuentas si es lo que necesitas http://rapidshare.com/files/444591204/LoadImage.xls

¿Es realmente necesario usar código en VB?, porque la solución es más fácil usando formato condicional