Dante Amor

Puedes poner una imagen para ver cómo tienes los datos; y también pon el resultado que necesitas. De otra forma solamente trataremos de imaginar qué tienes, en dónde lo tienes, qué datos vas a sumar y en dónde quieres el resultado. Lo que debe...

Si solamente quieres un valor por cada código, podrías utilizar la fórmula BuscarV: =BUSCARV(AE2;E:AC;25;0)

Prueba lo siguiente: Sub Imprimir() Dim i As Long For i = 1 To 10 Range("L1").Value = i ActiveSheet.PrintOut Next End Sub

Tengo una macro que busca coincidencias Pon aquí tu macro, utiliza el icono para insertar código. En "sheet 1" D2 insertar bucle y cuando la búsqueda este en 100% o lo más cerca, se detenga. Explica aquí con imágenes lo que deseas. Lo que debe...

Con lo siguiente podrías copiar y pegar Sub prb() Sheets("ORIGEN"). Range("B8", Sheets("ORIGEN").Range("B" & Rows. Count).End(3)). Resize(, 5). Copy Sheets("Destino").Range("A" & Rows. Count).End(3)(2) End Sub Pero si no hay registros a copiar,...

Prueba lo siguiente: Sub LoopThroughFiles() Dim xFd As FileDialog Dim xFdItem As Variant Dim xFileName As String ' Set xFd = Application.FileDialog(msoFileDialogFolderPicker) If xFd.Show = -1 Then xFdItem = xFd.SelectedItems(1) &...

Revisa los siguientes enlaces: Listas desplegables dependientes en excel Como enlazar Listas desplegables dependientes Cómo crear listas desplegables dependientes Excel 2016 Lista desplegable excel con diferentes opciones Lista desplegable...

Puedes utilizar el formato condicional: 1. Selecciona las celdas de A2 a G5 (solamente para seguir el ejemplo, después podrás establecer tu rango) 2. En el menú Inicio, Estilos, Selecciona Formato Condicional. 3. Nueva regla 4. Utilice una fórmula 5....

Tienes que hacerla visible para imprimirla. Una opción es utilizar lo siguiente, apagas la actualización de pantalla, haces visible la hoja y la imprimes, de esa manera no se muestra la hoja. Sub ImprimeHojaOculta() Application.ScreenUpdating = False...

Pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, rng As Range Dim n As Variant ' Set rng = Intersect(Target, Range("E:E, K:K"), Rows("2:" & Rows.Count)) If Not rng Is Nothing Then...