Sebas Torres

Buenos días fredy rodriguez prueba si con un for each hace lo que tu necesitas Sub ComparPintaR() Dim XcX, XcelX As Range For Each XcX In Range("DW2:DZ2") If Not XcX Is Nothing Then For Each XcelX In Range("EK2:EZ2") If XcX = XcelX Then...

No se a quien va dirigida la pregunta pero si en tu macro seleccionas la hoja no podrás usarla a menos que este visible Por al comienzo de tu macro Sheets("NombreHoja").visible=true y al final de tu macro Sheets("NombreHoja"). Visible=False Recuerda...

Con esta macro te despliega el cuadro "Insertar Imagen" Sub InsertImag() On Error GoTo Fin Application. SendKeys ("%b") Application. SendKeys ("%q") Fin: Exit Sub End Sub Le agregue los parametros de On Error par evitar cualquier error que pueda...

Sub CopiarRangos() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ encaOrigen As Excel.Range, _ rngDestino As Excel.Range Application.ScreenUpdating =...

Ve a la pestaña "Datos" selecciona validación de datos Elige la opción "Fecha", dentro de Fecha inicial selecciona E1 y dentro de Fecha final selecciona F1 También puedes agregarle un mensaje de error para que cuando ingresen una fecha que no entra...

Prueba sacar el libro de H1 y cuando vayas a usar la macro en lugar de poner "h1" pones "L1.H1"

¿Lo qué quieres es esconder hojas de un libro dependiendo de un combobox? De ser asi pegale una ojeada a la respuesta de James Bond en esta pregunta como esconder las-hojas en excel Quizas el pueda darte una mano a adaptar su ejemplo a tu trabajo...

Se puede buscar por los últimos 4 dígitos sin problema, el tema es que la macro que me enviaste no sirve =/ nisiqueira funciona . ¿Mañana cuándo llegue a la oficina te creo una macro para que busque en el registro por el Tag y te devuelva las otras 5...

Tienes 2 maneras de ocultar las hojas 1- Click derecho sobre la pestaña de la hoja y das click a ocultar 2- Entrando a Vba y creando en un modulo una macro el cual seria algo así Sub HojasBienOcultas() Hoja2.Visible =xlSheetHidden Hoja3.Visible...

Yo no probé la macro pero si te funciona bien así como está armada sólo cambia esto If Cells(i, col1) > 0 Or Cells(i, col2) > 0 Then Por esto If Cells(i, col1) > 0 Or Cells(i, col2) > 0 Or Cells(i, col3) > 0 Or Cells(i, col4) > 0 Then