Federico Paz

Dante Amor respondió: Visita: Cursos de Excel y Macros - YouTube Por Dante Amor Prueba lo siguiente: Sub fecha_mes_año() Dim c As Range Range("F:F").Insert For Each c In Range("E2", Range("E" & Rows.Count).End(3)) c.Offset(, 1).Value = MonthName(Mid(c.Value, 6, 2), False)...

Dante Amor respondió: Asumiendo que tienes tus datos iniciando en la celda A1. Los resultados quedarán en las columnas AA y AB, de esa manera puedes tener Temas desde la columna B hasta la Z. El número de ejecutivos puede crecer hacia abajo sin problema. Casos de...

Dante Amor respondió: Prueba lo siguiente: Sub Enviar_individual() Dim rng As Range, cell As Range Dim dest As Variant Dim hora_insp As String, cad As String Dim part1 As Object, part2 As Object ' Set rng = Range("bloque1, bloque2, bloque3, bloque4, bloque5, bloque6,...

Con macro: Sub convertir_str_date() Dim rng As Range, cll As Object, fch As String Set rng = Range("A2", Range("a2").End(xlDown)) For Each cll In rng fch = Right(cll.Value, 2) & "/" & Mid(cll.Value, 5, 2) & "/" & Left(cll.Value, 4) cll.Value =...

Dante Amor respondió: No se ve el ejemplo. ¿Y cómo mueves la barra? ¿Con una macro o manualmente?

Te pregunto, que numero de serie le indicas a la formula =NUM.DE.SEMANA(¿?) Porque podes usar esta fórmula para saber el lunes de la semana correspondiente al día actual. =HOY()-DIASEM(HOY();3)

Dante Amor respondió: Desafortunadamente, las propiedades Color e ColorIndex de un Rango no devuelven el color de una celda si el color está con formato condicional. Para obtener el color puedes utilizar DisplayFormat. Interior. ColorIndex Pero esta propiedad no la puedes...

Dante Amor respondió: [H o l a y bienvenido a TodoExpertos! No pusiste en cuál fila quieres pegar los datos. La macro pega a partir de la fila 2. Prueba y me comentas: Private Sub CommandButton1_Click() Dim lr As Long, hr As String ' If TextBox1 = "" Or TextBox2 = "" Then...

Diego, si se puede hacer con formato condicional: Empieza aplicándolo en la primer celda y en la formula (cualquiera uses) no coloques "$D$1", sino "$D1" y luego copia esa celda y pega en el resto del rango solo el formato. Te paso imágenes: Las...

En "thisworkbook" tienes que poner el siguiente código: Private Sub workbook_open() Application.OnKey "{F1}", "macro1" Application.OnKey "{F2}", "macro2" Application.OnKey "{F12}", "macro3" End Sub Reemplaza "macro1" por el nombre de tu macro entre...

Dante Amor respondió: Prueba lo siguiente: Sub Bucle_Rangos() Dim sName As String, i As Long, r As Range sName = "rangopdf" 'Nombre del rango sin el número For i = 1 To 6 'cambia 6 por el número máximo de rangos Set r = Range(sName & i) r.Select ' 'el resto de la macro '...

alvan .. respondió: I. Hola Federico, en efecto, la página, no sé porque motivo, borra (anula), los saludos/despedidas, desde hace años. Tengo la teoría de que podría ser una forma de fomentar los mensajes simples, directos y 'descentrar' un poco la atención en los...