Dante Amor

E stimado, tienes pendiente valorar esta respuesta: Condición: Si existe un "X" carácter dentro de celda... Esta fue tu pregunta original =Si(Celda contiene#, V. Es escala con #, F. Si no-> es Bemol) Y la fórmula que te envié hace lo que pediste. No...

Puedes poner imágenes o describir el ejemplo detallando en qué filas y columnas tienes la información. Y también en la "otra hoja" exactamente en dónde quieres el resultado. Escribe el nombre real de tus 2 hojas en los ejemplos.

Si en las 2 columnas tienes el apostrofe ' entonces no es necesario poner Val( ) Prueba con los siguiente: Sub RenombrarProvisional() Set h1 = Sheets("CalculoOTSolred") Set h2 = Sheets("ProvisionalSOLRED") For i = 365 To h1.Range("H" &...

Te anexo un ejemplo para validar el archivo, el éxito de una programa depende en medida de las validaciones que pongas, de lo contrario podrás tener varios errores y no saber en dónde tienes el problema. Sub MarcroConsulta() ' r2 = Range("A2") r3 =...

Te anexo la macro actualizada Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante.Amor Dim fila As Integer, Rango As Range, u Set Rango = Range("Y3:Y80") If Intersect(Target, Rango) Is Nothing Then Exit Sub If...

H o l a: Cambiaste una de tus preguntas a invisible, de esa forma mis respuestas no cuentan; podrías cambiarla a pública para continuar recibiendo apoyo en tus preguntas.

Te anexo algunos ejemplos para poner el texto en varias líneas y para poner la firma Dejar espacios en el texto de un correo de outlook Tengo un problema con esta macros quiero que me copie más de una firma en el cuerpo de un correo (Outlook) Macro...

Te anexo la macro Sub Contar_Cosechas() ' Por Dante Amor f = 2 u = Range("A" & Rows.Count).End(xlUp).Row With Range("C" & f & ":C" & u) .FormulaR1C1 = "=IF(RC[-2]=""cosecha"",IF(COUNTIF(R" & f & "C2:R" & u & "C2,RC[-1])=1,NOW(),""""),"""")" .Value =...

Te anexo la macro Sub Buscar_Conductor() ' ' Por.Dante Amor ' Set h1 = Sheets("CalculoOTSolred") Set h2 = Sheets("Conductores") h1.Range("J2:J" & Rows.Count).ClearContents ' Set r = h2.Columns("A") 'columna de matriculas For i = 2 To h1.Range("E" &...

Si quieres dibujar una línea en medio de una celda, entra al Menú Insertar, en Formas selecciona Línea y la dibujas en la celda Si quieres el código en BVA ejecuta la siguiente macro. Cambia "B4" por la celda donde quieres poner la línea Sub...