Dante Amor

Te anexo la macro Sub Semaforo() 'Por.Dante Amor fecha = Range("B1").Value uc = Cells(2, Columns.Count).End(xlToLeft).Column Set rango = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row) For Each fec In rango Select Case fec.Value Case Is < fecha...

¿Los botones ya existen pero están ocultos? ¿O los vas creando? Necesito ver cómo tienes tus formularios y cómo se activan los botones. Envíame tu archivo y me explicas actualmente qué haces. Mi correo [email protected] en el asunto del correo pon tu...

Para copiar un archivo puedes utilizar lo siguiente: Sub Copiar_Plantilla() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "plantilla.xlsx" If Dir(ruta & arch) = "" Then MsgBox "El archivo plantila no existe" Exit Sub End If nuevo =...

Envíame un correo nuevo, me adjuntas un archivo donde me expliques con ejemplos reales lo que tienes y lo que esperas de resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jair Vides”

Prueba lo siguiente Sub Colorear_sumar() For i = 5 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(5, "A")) Then ' fecha1 = Format(Cells(i, "A"), "mm/yyyy") año = Year(Date) mes = Month(Date) + 1 ' 'fecha2 = Format(CDate(mes & "/" & año),...

Si puedes poner ejemplos de lo que tienes en tu hoja, marcando de algún color lo que quieres copiar. ¿O quieres copiar toda la columna? Entre más claros sean los ejemplos, será más práctico poder ayudarte. Utiliza imágenes en donde se vean las filas...

Podrías explicarlo con imágenes

Te anexo la macro para poner "si" y "no" en la columna B Sub Poner_Si_No() 'Por.Dante Amor With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=1,""si"",""no"")" .Value = .Value End With End Sub . 'S aludos. Dante...

Te anexo la macro actualizada Sub DataStage() 'Abre archivos asc en diferentes libros nombrandolos con e nombre del orginal 'copia y pega todos los asc en pestañas de un mmismo libro (meta) 'Por PatriciaGarcía ' 'Poner todos los aarchivos asc en una...

Selecciona cada control con click derecho del mouse, seleccionar la opción Formato de control, después selecciona Propiedades y selecciona la opción "No mover, ni cambiar tamaño con las celdas" . 'S aludos. Dante Amor. Recuerda valorar la respuesta....