Participaciones en la academia
Comentario por OsmaniPititi en clase Caso práctico: Validación y Formato de Rangos
Buenas Tardes JuliaAbajo la variante usando select caseDim Fila As IntegerDim UltimaFila As IntegerDim Valor As VariantDim Resultado As String' Detectar la última fila con datos en la columna AUltimaFila = Cells(Rows.Count, 1).End(xlUp).Row' Recorre las filas con datos en la columna AFor Fila = 5 To UltimaFila Valor = Range("A" & F...
publicado por OsmaniPititi hace 3 horas
Comentario por OsmaniPititi en clase Select...Case, Convertir texto a mayúsculas o minúsculas
Buenas TardesJulia , en aras de seguir practicando , puse en practica tu sugerencia. Despues de varios intentos lo logre utilizando el ciclo al reves, pues , me paso que cuando me encontraba una celda vacia , al eliminarla y reajustar la variable contador , esta dejaba fijo como valor final , el valor inicial de rango.rows.count.Dim Opción As Varia...
publicado por OsmaniPititi hace 5 horas
Comentario por Yad en clase Funciones estadísticas
Buena noche. ¿Me podrían explicar por que no se indico el año 2024, entre " ", en la formula?Gracias.
publicado por Yad hace 15 horas
Comentario por OsmaniPititi en clase Evento Workbook_BeforeClose: Registrar Fecha de Cierre
Buenos DiasA continuacion pongo en consideracion esta variante de codigo , pues en el del ejemplo si el usuario escoge cancelar el cierre , ya queda registrado previamente el cierre en la celda , cosa esta que en realidad el usuario cancelo. Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Hoja1")Dim UltimaFila As LongIf MsgBox("Desea cerrar e...
publicado por OsmaniPititi hace 1 día
Comentario por OsmaniPititi en clase Evento Workbook_Open: Registrar Fecha de Apertura
Buenos diasConsidero que pudieramos agregar la siguiente linea de codigo al final de la macro Cells.EntireColumn.AutoFit
publicado por OsmaniPititi hace 1 día
Comentario por OsmaniPititi en clase Caso práctico: Validación y Formato de Rangos
Buenas TardesOtra variante seria utilizar Select Case para evaluar las condiciones , en vez de utilizar If Then Else.
publicado por OsmaniPititi hace 2 días
Comentario por OsmaniPititi en clase Copiar contenido de hojas sin activar una por una
Buenos diasConsidero que igual , se puede eliminar sin problemas las dos lineas de codigo Set Rango = NothingSet Rango2 = NothingPues el bucle siempre asigna a la variable Rango la region activa en funcion del indice de la hoja que cohincida con el valor de la variable i
publicado por OsmaniPititi hace 3 días
Comentario por OsmaniPititi en clase Ajustes Finales y Activación de Celdas
Buenos DiasConsidero que no es necesario en la macro Activar2 iniciar en el ciclo la variable j en 1. Se puede iniciar en 2 perfectamente , pues al final de esta macro se activa la celda 2 en la hoja 1 antes de renombrarla
publicado por OsmaniPititi hace 3 días
Comentario por OsmaniPititi en clase Copiar Datos de las Hojas Existentes
Buenos Dias JuliaMuchas Gracias por la anterior aclaracion. Abajo pongo el codigo del ejemplo de la clase pero utilizando for eachDim ws As WorksheetDim MsgContinuar As ByteDim UltimaFilaOrigen, UltimaFilaDestino As LongMsgContinuar = MsgBox("Se agruparán las tablas de igual estructura." + _ vbNewLine + vbNewLine + "Desea continuar?",...
publicado por OsmaniPititi hace 3 días
Comentario por Elena-G en clase Tablas Contiguas
Hola, linda tarde,Estoy muy contenta con el curso, mucho por aprender y asimiliar e interiorizar. Voy a estar practicando. 😊Pregunta, si recibo un archivo de texto o csv, como puedo saber en que cultura se trabajó el archivo? O tendría que preguntarle al emisor?Muchas gracias por compartir con nosotros. Un abrazo y feliz año a todo el equipo...
publicado por Elena-G hace 4 días