Dante Amor

Pon aquí tu macro. Utiliza el icono para insertar código. También pon una imagen y con esa imagen te apoyas para explicar lo que necesitas. Lo que debe tener una imagen:

Prueba lo siguiente: If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("Y:Y,Z:Z,AB:AB,AC:AC")) Is Nothing Then Application.EnableEvents = False Select Case Len(Target.Value) Case Is = 3: Target.Value = Mid(Target.Value, 1, 1) & ":" &...

Puedes responder en el siguiente orden: 1. ¿El color en la celda está con Color de relleno o con formato condicional? 2. ¿Las celdas con color tienen datos o pueden estar vacías?

Prueba esto: Private Sub AddInfoSPARE_Click() Dim cont As Object For Each cont In Me.Controls If TypeName(cont) = "ComboBox" Then cont.List = Array(1, 4, 7, 10) End If Next End Sub

Pon esta fórmula: =INDICE(B3:B5,SUMAPRODUCTO((IZQUIERDA(A3:A5,4)+0<=D3)*(DERECHA(A3:A5,4)+0>=D3)*(FILA(B3:B5)))-FILA(A2)) Pero debes corregir los años, porque si pones el año 1985, tendrás 2 gerentes CARDENAS Y CASTRO. Revisa el siguiente ejemplo:

Una ves se abre el libro debo buscar un código contenido Ahí me perdí. Puedes explicarlo más despacio y con un ejemplo. Utiliza datos genéricos en tu ejemplo. Tienes 2 libros Por ende tienes 2 hojas Así que explica paso a paso, libroX. HojaX. CeldaX...

Puedes responder en el siguiente orden: 1. Pon aquí la fórmula. 2. Realmente es una tabla, la creaste con la funcionalidad de excel, Menú, Insertar, Insertar Tabla. O solamente es un rango de datos en la hoja. 3. Un ejemplo de cómo está la celda...

Revisa si es lo que necesitas: Sub test() Dim ruta As String ruta = Environ("USERPROFILE") & "\Desktop\PEDIDOS\NO INFORMADOS\" & "NOINFORMADOSMIERES.xls" End Sub

Por la forma en que tienes tu ejemplo, debes buscar si la frase de la hoja2 existe en alguna celda de la hoja1. Te explico. En Hoja UNO columna A dice: "El viernes va a hacer calor" En Hoja DOS columna A, existe una celda donde dice: "viernes va a"...

Realicemos una siguiente prueba para ver si podemos leer los correos de "CM-IB". Realiza los siguientes pasos: 1. Crea una hoja en excel 2. Pon la siguiente macro en un módulo: Sub GetEmail_2() 'Por Dante Amor Dim olApp As Outlook.Application Dim...