Dante Amor

Es mejor utilizar la método Find Prueba esto: Private Sub CommandButton2_Click() Dim f As Range TextBox2.Value = "" Set f = Sheets("Componentes L2").Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole, , , False) If Not f Is Nothing Then...

Tengo algunas respuestas sobre ese mismo tema: Macro para Consolidar Varias Hojas en 1 sola Unir varios datos de varias hojas de Excel en una sola Consolidar hojas con un mismo formato Revisa si puedes adaptar alguna macro a tus datos. Si tienes...

Si lo quieres al momento de imprimir en la impresora, utiliza la siguiente macro Sub Macro2() Dim n As Long With ActiveSheet n = .PageSetup.Pages.Count .PageSetup.LeftFooterPicture.Filename = "" If n > 1 Then n = n - 1 .PrintOut From:=1, To:=n...

Vamos a mover esta línea al inicio del código: Application.ScreenUpdating = False Prueba nuevamente: Sub AutoSuma() Dim FilaSumas As Integer Dim sngAnchoTotal As Long, sngAnchoCelda As Long, sngAlto As Long Dim n As Long, i As Long '...

Prueba lo siguiente y dime qué mensaje te aparece Private Sub UserForm_Initialize() Dim imag As String Dim ruta As String ' ruta = ThisWorkbook.Path & "\Pict\" If Dir(ruta, vbDirectory) = "" Then MsgBox "No existe la carpeta : " & ruta Exit Sub End...

Prueba lo siguiente: Sub Consolidar_Hojas() 'Por Dante Amor Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook Dim uDia As Long, i As Long, mes As Long Dim hojaDia As String, hojaMes As String, hojagas As String Dim valor As...

Revisa la siguiente respuesta: Cómo crear listas desplegables dependientes Excel 2016

¿Cuál problema tienes con tu código? Intenta también con el siguiente: Private Sub CommandButton1_Click() Dim f As Range Set f = Sheets("DATA Maro-2021").Range("A:B").Find(TextBox1.Value, , xlValues, xlWhole, , , False) If Not f Is Nothing Then...

Si entendí bien, quieres que el código se ejecute solamente si tú capturas el valor a consultar. Prueba lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B6:C7")) Is Nothing Then...

Según tus ejemplos: Con la siguiente fórmula puedes poner el Nuevo promedio: Pon la fórmula en H3 y la copias hacia abajo. =PROMEDIO(G3,K.ESIMO.MAYOR(C3:E3,1),K.ESIMO.MAYOR(C3:E3,2))