Joseph Sanchez

Mi propuesta de solución es esta Hoja1. Range("A1") '(cambia esto por tu campo1) Hoja1. Range("B1") '(cambia esto por tu campo2) Private Sub CommandButton1_Click() Dim fila, final As Integer fila = 2 Do While Hoja3.Cells(fila, 1) <> Empty fila = fila...

Esta es mi propuesta de solución, cada vez que consigue un si en la hoja1 en el rango a lo pega en la hoja2 Private Sub CommandButton1_Click() Dim fila, fila2, final As Integer fila = 2 Do While Hoja1.Cells(fila, 1) <> "" fila = fila + 1 Loop final =...

Aquí la solución Dim fila As Integer fila = 2 Do While Hoja1.Cells(fila, 1) <> "" fila = fila + 1 Loop On Error Resume Next With Application.FileDialog(msoFileDialogOpen) .InitialFileName = Path .Title = "Abrir archivo PDF" .Filters.Clear...

Te hago un ejemplo simple Private Sub CommandButton1_Click() Dim fila, Final As Integer For fila = 2 To 10000 If Hoja2.Cells(fila, 1) = "" Then Final = fila Exit For End If Next Hoja2.Cells(Final, 1).Value = Hoja1.Range("B1").Value End Sub esta macro...

Primero selecciona todo desde la A1 hasta AE55 y dale formato como tabla Luego dale ordenar de menor a mayor y listo

Hace un tiempo tuve ese mismo problema, para solucionarlo antes de la línea que inserta los datos en la celda. Le di formato de texto, Ejemplo cells(1, fila).NumberFormat = "@"

Hoja1. Range("A1").Value = celda que va a cambiar de nombre cambia A1 por B8 Private Sub CommandButton1_Click() Hoja1.Range("A1").Value = Hoja1.Name End Sub

https://drive.google.com/file/d/0B1UUB6fBagdmNkJPcV8xbk5RS28/view?usp=sharing Allí tienes un formulario que hace lo que necesitas, solo debes adaptarlo

Usando concatenar puedes hacer también podrías poner en otra celda los operadores matemáticos y cambiarlos cada vez que quieras =CONCATENAR(A1; " * ";B1; " - ";C1; "=")

En este enlace te hice un ejemplo de lo que necesitas https://drive.google.com/file/d/0B1UUB6fBagdmblRoNzJpUUV1UG8/view?usp=sharing