Andy Machin

Prueba este código (el código debe ir en el modulo de la Hoja!): Private Sub Worksheet_Change(ByVal Target As Range) Dim Listas As Range Set Listas = Range("G1,G50,G100,G150") If Not Application.Intersect(Listas, Range(Target.Address)) Is Nothing...

Te adjunto tu libro de vuelta con los el filtro incluido y algún par de cosillas que te arregle en el código de cargar el listbox. Descarga el libro de aquí: Descargar LIBRE.xslm PD: Cuando valores la respuesta, por favor también valora la de Carlos...

Has dicho "la celda de al lado" pero A2 no es la celda de al lado de A1, es la de abajo. Suponiendo que te has equivocado y quisiste decir B1 (que sí es la celda de al lado) Sigue los pasos que grabe en este corto vídeo: video demo Se trata de...

Me recordaste un viejo proyecto de una lupa con un UserForm. Osea el formulario se convierte en una lupa. Ya que VBA es un lenguaje orientado a objetos muchas cosas son posibles. Lastima que el menospreciado Modulo de Clases casi nadie lo use, o no...

No estoy en casa hoy hasta la noche y no tengo acceso a una PC, pero te dejare una idea por si otro experto te puede responder antes. Te había dicho que usando Transpose lo podías hacer, pero pensándolo bien, lo mejor es que coloques el rango a...

Honestamente no comprendo el procedimiento. Tal vez sea mejor que compartas el libro (puedes sustituir cualquier información sensible con información ficticia). O esperamos la respuesta de otro experto.

Hay una discrepancia aquí: Set Celda = Sheets("FACTURA").Range("B6").Value For Each Celda In Rango Así es como yo lo haría: Private Sub CommandButton4_Click() Dim Categoria As String Dim ultimafilabloque As Long Dim Celda As Range Dim Rango As Range...

Tu código está mal escrito. Lo adapté un poco, pruébalo: Sub btn_Buscar() Application.ScreenUpdating = False Dim Sht1 As Worksheet, Sht2 As Worksheet Dim rCell As Range, rRng As Range Dim uF1 As Integer, uF2 As Integer Dim result As Variant Set Sht1...

Haz el MsgBox vbYesNo y pregunta si tiene una clave de Admin. Si dice SI, abre inputbox o un formulario pidiendo la clave, si es correcta, da el acceso. ¿No te sirve así?

Si te refieres solo a los datos, si se puede. Si con "cualquier cambio" te refieres a cualquier cosa como el color de una celda, el tamaño de una columna, y ese tipo de cosas visuales no (o al menos yo no se como se hace). Para igualar los datos lo...