Dante Amor

Prueba la siguiente macro. En la hoja "Datos" en la celda A2 pon el número de tarima Los resultados estarán en la hoja "Datos" de la fila 4 hacia abajo. Sub Extraer_datos() Dim sh As Worksheet, tarima As String, lr As Long '...

Hol Paula: Si cada fecha de la columna A tiene una fecha menor en la columna B, entonces una variable no es suficiente para todas las fechas. Ya que mencionas el arreglo. En la siguiente propuesta, cargo las fechas de la columna A en el arreglo "a",...

En esta parte ListBox1. AddItem Cells(fila, columna - (columna - 1)) Te faltó hacer referencia a la hoja, solamente falta el punto: ListBox1. AddItem .Cells(fila, columna - (columna - 1)) Hice algunos ajustes a tu código. Eliminé el uso de algunas...

Prueba lo siguiente, no es necesario seleccionar la hoja "Listados" Private Sub CBoxEstado_Change() CBoxCiudad.Clear If CBoxEstado = "" Or CBoxEstado.ListIndex = -1 Then Exit Sub With Sheets("Listados") CBoxCiudad.List = .Range(.Cells(2,...

Prueba lo siguiente: Sub sum_ref() Dim lr As Long, f As Range lr = Sheets("Cartera").Range("C" & Rows.Count).End(xlUp).Row Set f = Sheets("Clientes").Range("C:C").Find(Sheets("Visitas").Range("C7"), , xlValues, xlWhole) If Not f Is Nothing Then...

Suponiendo lo siguiente: - La segunda hoja se llama "Hoja2" - Las identificaciones están en la columna "A" - El combo se llama combobox1, el listbox se llama listbox1. - Te pongo 4 columnas de ejemplo para cargar en el listbox (B, C, D y E) Private...

Para que se más práctico pon los libros en una carpeta diferente a donde tienes el libro con la macro y prueba con esta: Sub libros() 'Lee archivos del directorio y Copia la hoja 1 'Por.Dam Application.ScreenUpdating = False ruta = "C:\trabajo\"...

Envíame tu archivo y lo reviso. Correo [email protected]

Puedes poner una fórmula en P =si(A2<>"",1,"") Y copiar la fórmula hasta la fila con datos. O ejecuta la siguiente macro Sub Rellenar() Range("P2:P" & Range("A" & Rows.Count).End(xlUp).Row) = 1 End Sub [sal u dos

Va el código Dim hojas Dim cargando ' Private Sub CommandButton1_Click() 'Por.Dante Amor Dim Pdfhojas() Dim HojasOcultas() Application.ScreenUpdating = False Application.DisplayAlerts = False ' hojaactiva = ActiveSheet.Name n = -1 m = -1 For i = 0 To...