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 = "@"

Bueno yo me he tomado tiempo para responder las cosas que se y no espero dinero por eso, creo que cada uno responde sin esperar nada a cambio, todos nos ayudamos y así aprendemos.

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

Yo tuve ese mismo problema hace un tiempo y pude resolverlo viendo los videos de este profesor explica excelente https://www.youtube.com/user/MasterHeHeGar Pase con 10 esa evaluación

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