calvuch

El siguiente macro esta realizado en los sgtes supuestos. 1 tienes Excel 2007 2 la fila 1 es para rótulos 3 los datos parten desde fila 2 y no existen filas vacías entre el primer dato y el ultimo. 4 se respeto la estructura indicada por ti Es decir...

Bueno si tienes un macro que "agrega Datos", pues el último que agregaste en A es en realidad la última pasada del macro... podrioas modificar tu macro para rescatar ese valor, si no Corre esto Sub ultimo_dato() Application.ScreenUpdating = False...

Si son solo los datos de arboles los variables, por que no sencillamente una vez terminado el ingreso de arboles, no vas directo y copias el rango a2:¿N2 hacia abajo tantas filas como arboles ingresaste y ya?

¿Dónde deseas que te muestre la información, mediante un mensaje en pantalla?, ¿En alguna celda? ( ¿Cuál? ). Indica ademas la columna que contiene los datos numéricos y la columna que contiene la info que deseas mostrar

Indicame el nombre la hoja y la columna en que están los números de contrato, para realizar el sub que realizara la búsqueda.

¿Qué evento activara la captura del text5 form2 para text1 form1?. En lo segundo, por que cuando pegas a2:n2 no pegas de inmediato a3:¿N3?. Si son los mismos datos.

Si lo que pasa es que la cadena : "jose martinez " y "Jose Martinez" son "cosas " distintas. Cambia esta linea Set R = [a:a].Find(What:=Usuario_repetido) por esto: Set r = [a:a].Find(What:=Usuario_repetido, After:=ActiveCell, LookIn:=xlFormulas, _...

¿En A2 la antigüedad del trabajador? ¿Ese dato es una fecha o un entero?

Inserta un botón y en el po este script: Private Sub CommandButton1_Click() ' suma la celda A1 de todas las hojas del libro Dim i As Integer Dim suma As Double For i = 1 To Worksheets.Count suma = (suma + Sheets(i).Range("A1")) DoEvents Next [b1] =...

Prueba de esa forma: Sub BorrarTodo() Dim VariableX As String Dim BorraRango As String VariableX = InputBox("Escriba la contraseña:", "Contraseña de seguridad") If VariableX = "123" Then '123 sería la contraseña Sheets("COMPRAS").Range("A2").Select...