surtidora

Aquí te mando el código. Private Sub CommandButton1_Click() If Range("a2") <> "" Then Range("a1").Activate Selection.End(xlDown).Select End If dif = Calendar2.Value - Calendar1.Value For i = 0 To dif ActiveCell.Offset(rowoffset:=1,...

Creo que no me explique bien, Lo quiero decir es que debes usar transacciones, a continuación te muestro una pagina de la ayuda de visual basic y el código que contiene para que te des cuenta de que debes hacer....

La diferencia entre ambos es mínima y so te afectara en cosas muy sofisticadas. Si yo estuviera en tu lugar optaría por la 2012. Para estudiar te pueden servir tutoriales desde 2005. Bye

Conozco muy poco las plataformas 2005 y 2008, pero por lo que he podido leer son muy pocas las diferencias, y en cuanto al manejo de bases de datos, parece que son despreciables Bye

Me puedes llamar Roque, mi seudónimo no es muy afortunado. Tengo lo que creo que te puede servir. Tratare de explicártelo. 1.- Tengo un formulario llamado miforma y es el siguiente. http://d/:\temp\caratula.jgp 2.- el código de los botones es el...

En este ejemplo supongo lo siguiente: En la celda d2 tengo el valor que quiero copiar Ej. carne. En b2 tengo lo que se desea buscar en columna ej. juan. En c2 tengo los valores de la fila ej. martes. Sub prueba() ' ' prueba Macro ' ' Acceso directo:...

Lo primero que se me ocurre es colocar un retorno de carro en el lugar donde quieras que corte la linea, el carácter de retorno de carro es chr(13), por ejemplo: parte2.body = "Ello, Andy, you just received the attachement named " & _ Cells(i, 27) &...

No estoy seguro pero es muy posible que la maquina de tu hogar tenga instalado un windows de 64 bits en lugar del de 32, tal vez si cambias el KERNEL32 por KERNEL64 en la primera linea de tu código, el problema se solucione aunque los sistemas...

Checa esto. If Weekday(Now()) = 2 Then fecha = Date - 3 Else fecha = Date - 1 End If Range("a1") = fecha Range("b4") = Format(fecha, "yymmdd") Avisame si te sirvió. Bye

Tu problema reside en la forma que encuentras el numero de fila donde va a realizarse la inserción del nuevo dato, la instrucción que usas: ActiveSheet. UsedRange. Rows. Count te va a devolver un valor FIJO, dependiendo del numero de filas que tengas...