Sos el 1, he realizado cursos online de excel donde no he entendido en absoluto o a veces muy incompleto, con solo mirar tu video ya es suficiente para entenderlo todo. Excelente capacidad didáctica..
excelente lo que hace este maestro. yo lo necesitaba para un determinado rango, ya que tenia validacion de datos con lista para ese rango de celdas y el codigo que me dio chatgpt fue el siguiente. Private Sub Worksheet_Change(ByVal Target As Range) Dim celda As Range Dim rango As Range Dim ws As Worksheet
' Especificar la hoja en la que se trabaja Set ws = Me ' Definir el rango dinámico desde I7 hasta M38 (ajustable según lo necesites) Set rango = ws.Range("I7:M38") ' Verificar si el cambio ocurrió dentro del rango específico If Not Intersect(Target, rango) Is Nothing Then ' Recorrer cada celda afectada For Each celda In Target ' Convertir el valor a mayúsculas si no está vacío If Not IsEmpty(celda.Value) Then Application.EnableEvents = False ' Desactivar eventos para evitar bucles infinitos celda.Value = UCase(celda.Value) Application.EnableEvents = True ' Reactivar eventos End If Next celda End If End Sub
Profe muchas gracias por su aporte, ahora si pudiese hacer un ejemplo con un rango más extenso o que se realice en las demás filas de la misma columna.
Excelente video y videos Profesor. Una gran abrazo desde 🇨🇱. Ojalá pueda hacer un video explicativo para saber cómo efectuar listas desplegables con los datos de origen en un libro distinto jejeje. ✌️
Se me hace que usted es Anónimous jajaja muchas gracias por su IQ pero más por compartir sus conocimientos de una manera tan fácil de comprender. Dios te bendice 🙏
Gracias Profe tenia tiempo buscando de hacer eso. Modifique el codigo con Geminis para aplicar en toda la columna aqui se los dejo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range ' Especifica la columna a procesar (ajusta "B" según sea necesario) Dim columna As String columna = "B" ' Encuentra el último rango utilizado en la columna Dim lastRow As Long lastRow = Cells(Rows.Count, columna).End(xlUp).Row ' Itera a través de cada celda en la columna For Each cell In Range(columna & "3:" & columna & lastRow) cell.Value = UCase(cell.Value) Next cell End Sub
Saludos ingeniero: Recién me suscribo a su canal, ya ví algunos de sus videos, los mismos tienen contenido muy completo, además de su paciencia, elocuencia, conocimiento y etc. muy importante. Solo le pediría si podria aumenta el tamaño de la hoja para poder visualizarla, ya que está en especial, se la ve borrosa, las acciones que usted realiza no se divisan en la pantalla del celular, que es dondel a observó en este momento. Espero lea mi comentario, felicitarlo y agradecerle por compartir su conocimiento y experiencia. atte. Gary Perez éxito y siempre para adelante Ing....
Gracias por el tuturial. Tengo una duda... Tengo una base de datos a la que he añadido un formulario para introducir más registros o consultar los que existen... Dentro del forumulario tengo un text box en el que he coseguido que de forma automática escriba como escriba se cambia todo a mayúsculas y otro en el que se cambia a modo título, es decir la primera letra de cada palabra es en mayúscula y el resto en minúscula, el problema me viene cuando escribo un parentesis, que el código interpreta ya como primera letra y por lo tanto la primera letra real queda ya en minúscula y no quiero que eso pase... ¿cómo consigo que después de escribir un paréntesis la siguiente letra también sea mayúscula? Quiero pensar que el código debe ser iniciando un "If" pero me pierdo... Gracias.
pregunta, viendo la ultima forma de coversion a mayuscula; si tengo toda una columna la cual deseo q el texto de todas las celdas se me conviertan a mayusculas, como hacer ?, copiar la celda del ejemplo en toda la columna? o en vez de poner "b3" q es la celda del ejemplo, podemos poner la columna ?
Profe, falto una... de juan pérez a Juan Pérez. O sea, de todas minúsculas o mayúsculas a la primera letra de cada palabra en mayúsculas y el resto en minúsculas como en realidad uno escribe los nombres propios. De resto, le agradezco muchísimo su enseñanza a la cual le saco el jugo Gracias de nuevo. 🙂
Hay alguna forma de que hacerlo masivo? Osea tomar varias filas y columnas y pasarlas a Mayus? Osea algo así como uno poder copiar y al momento de pegar tener esa opción y internamente hacer algo para que pegue todo en Mayus.... Gracias.
hola chicos, si quieren que el cambio sea en una sola columna y no en un celda se lo puede hacer de esta manera: if Not Intersect(Target, Me.Range("A:A")) Is Nothing Then On Error Resume Next Application.EnableEvents = False Target.Value = UCase(Target.Value) Application.EnableEvents = True On Error GoTo 0 End If Espero les haya podido ayudar, saludos
Gracias, por el aporte, sin embargo como el rango que tengo para el ejercicio no es el mismo (E:E) Cuando le doy ENTER no me lo cambia, me toca devolver con las flechas desplazamiento y ahi si cambia....
Hola Inge Francisco. Gracias por tus tutoriales. Ya pregunté en tu canal tiktok pero aprovecho para repreguntar aquí mi duda: ¿Como convertir automáticamente a mayúsculas dentro de un rango de tabla al que dimos un nombre?
Maestro una consulta, para poder cambiar todo a mayúscula en una plantilla que ya está terminada. Cómo hago para que detecte las celdas que están en minúsculas y las convierta a mayúsculas?? El problema es que la plantilla no tiene un orden fijo y además contiene celdas combinadas. No se si me doy a entender… Se podrá hacer con Visual??
Ya he encontrado la fórmula de código para convertir diversas celdas en mayúsculas. Es poner línea de código para cada celda. Tal cual así: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("b3").Value = UCase(Range("b3").Value) Range("c5").Value = UCase(Range("c5").Value) End Sub
@@teloniusk Me ayudas? Necesito convertir en mayusculas solo estas columnas👇🏻 C F G H M (Es una tabla simple sin fórmulas ni nada, solo quiero que se ponga mayúsculas mientras meto información en esas columnas)
SALUDOS DESDE NICARAGUA!!! Inge podrías hacer un video de como aplicar formato condicional de mayúsculas y negritas a textos seleccionados desde una lista de validación de datos porfa
Con este codigo al darle enter se cambiara solo a mayuscula y no solo eso sino que es por columnas... de nada. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim columnas As Range
' Especifica el rango de columnas en las que deseas que se aplique la conversión a mayúsculas (A a M) Set columnas = Range("A:M")
' Verifica si el cambio se hizo en las columnas especificadas If Not Intersect(Target, columnas) Is Nothing Then Application.EnableEvents = False ' Desactiva los eventos para evitar un bucle infinito
' Recorre cada celda modificada en las columnas especificadas For Each rng In Intersect(Target, columnas) rng.Value = UCase(rng.Value) ' Convierte el valor de la celda a mayúsculas Next rng
Application.EnableEvents = True ' Activa nuevamente los eventos End If End Sub Si necesitan otras lineas de codigo comentarme.
Muchas gracias! Note que también sirve para un área especifica al cambiar el rango, por ejemplo sustituí Set columnas = Range("A:M") por Set columnas = Range("a1:a10") y me funciono perfecto!
Hola!! me funciono perfecto para dos columnas, pero cuando puse un rango que en el medio tiene cinco columnas con formulas, las formulas desaparecieron y era todo texto, puedo duplicar, poniedo en una la columna f y en la otra la columna M? o como debo poner en la seleccion de rango? Gracias!!
Para ser sincero preferí copiar el texto de excel a word ya en word esta la función cambiar minusculas a mayusculas despues copiar de word a excel igual si lo quieres combinado mayusculas y minusculas con los nombres y apellidos de las personas
pregunta ? a este formato de fecha en excel 09-jun-24 se puede hacer que sea 09-JUN-24 que cambie a mayusculas el mes sin que se texto el formato, le agrdeceria sus comentarios
Ing. En el inventario de mi trabajo al descargar desde el programa a Excel tengo que convertir diferentes unidades de medidas a sacos, tenemos códigos en gramos, libras, kilos. Como puedo hacer con alguna función?
excelente informacion Inge gracias. Y como se deberia hacer para aplicar este criterio a varias filas. he tratado de copiar a mas filas pero no me da resultado.
Buen dia Inge Francisco, estaria interesante una funcion que convierta numeros a letras para el relleno de un cheque notas de venta o algo parecido, saludos desde San Luis Potosi, Mexico
Profesor; como se puede calcular la fecha de salida de un trabajador, sabiendo cuando entra y los días que trabajara?? ej: yo entro el día 21-11-2021 y trabajaré 31 días como se puede saber la fecha de salida, dejando afuera fines de semana y feriados. saludos y. gracias por tanto
Hola ingeniero yo tengo el problema que todos mis datos estan en mayúsculas y lo necesito en minúsculas; me resultaría tan genial esa línea de código pero para minúsculas... desde ya muchas gracias. Saludos desde Catamarca, Argentina
Buenos días, me gastaría saber si hay una validación de datos que evite minúsculas y a la vez que no me permita duplicar el dato. mil gracias Inge Francisco
Como puedo hacerle para resetear macros sin cerrar un archivo, me explico: tengo un hoja de calculo de compac que carga muchas macros para exporta a contabilidad, pero al mismo tiempo abro otro archivo con la funcion indice y otras, pero cuando tengo abierto el archivo de macros al cambiar la fecha para que me de un rango de moviemientos ya no funciona. hasta que cierro excel y la abro primero y doy la fecha funciona. y asi tengo que hacerle cada que uso el archivo. gracias espero haberme dado a entender
S Buenas tardes, una pregunta, se puede hacer q todas las celdas conviertan las minusculas a mayusculas porque de celda en celda pues es muy laborioso, gracias, estupendas clases.
Hola profe...intenté colocando entre comillas el nombre de una tabla para que cada nombre que se ingresa vaya quedando en mayúsculas pero sale error de compilación "El argumento no es opcional" y resalta Range en la línea del código.
Buen día me gustaría saber cómo hago para que quede mayúscula sólo la primera letra de cada palabra . Para hacerlo de la forma como está a lo último del vídeo. Gracias
Disculpen mi ignorancia, jejeje, pero tuve que hacerlo con buscar y reemplazar todas las letras del alfabeto y así lo solucione, en un archivo de demasiados renglones
Estimado Inge, y como se la hace para que sean varias celdas o un rango de celdas!? , asi Range("b4:f4").Value = UCase(Range("b4:f4"").Value), ya lo intente y marca error Saludos desde Mexico
@@teloniusk Amigo no me va la función, se tiene q colocar en la worksheet o en un modulo??, podrías pasar el archivo como ejemplo con la macro ya insertada???
@@teloniusk Disculpa soy muy nuevo en esto mira esto llevo Sub conversor() Cadena=Cells(4,x) Cells(4,x)=UCase(cadena) End Sub Ahira saliendo de Visual Basic llamó a la macro mediante un botón pero me aparece Se ah producido el error '1004' en tiempo de ejecución... Estaría muy agradecido si me apoyas diciéndome donde estoy mal, o poniéndome el código para q lo pegue directamente. De antemano muchas gracias por el apoyo
Saludos ing. Mi Pregunta es como localizo las listas de validación que aplique en una hoja de cálculo porque las quiero modificar y no se donde están mucho le agradecería su pronta respuesta agradeciendo de antemano por su atención atentamente JUAN PEÑA
Buenos días Profesor, excelente video, habría alguna función que me ayude a eliminar los valores duplicados en la misma celda? Ejemplo tengo MMMM S.A. MMMM S.A. y solo que en la celda MMMM S.A.
Supongo que para añadir diversas celdas que también las convierta en mayúsculas en la línea de código, en el apartado "Range," se deben poder añadir, ¿no? Range("b3";"c5") y así sucesivamente. ¿Correcto?
Como se hace para una o varias columnas completas o si copio el contenido de otro origen en minúscula y al pegarlo en una de las celdas se convierta en mayúscula 🤷🏻♂️
Hola te hago una consulta! realizo una formula para ingresar nombres de meses y semanas pero me las agrega con minúsculas, como puedo hacer para que la primera sea en mayuscula como deberia salir. mi formula es la siguiente =texto(A1;"MMMM") pero me da resultado en minusculas (enero) y necesitaria que sea la 1 mayuscula Enero muchisimas gracias
Creo que en en esta ocasión el Inge enredó la pita, Ja Ja. Si claro por supuesto es casi gual, deberás anteponer la funcion Texto y expresión sería: =NOMPROPIO(TEXTO(A1;"mmmm")); donde A1 será, por eejmplo, la celda que estas evaluando y te duelve la promera en mayúscula, si quieres toda la expresion en mayúscula entonces usa la función Mayusc en lugar de nompropio.
En una nueva comumna: =MAYUSC(nombre de la celda) ejemplo: =MAYUSC(B11) también se puede seleccionar y arrastrar la celda donde escribieron la formula para aplicar el mismo efecto a toda la columna
@@MarianaIrany-uq4ur tocó hacerlo con una macro, pero sigo sin poder encontrar así sea un plugin que instale un botón o algo para usar esa función como en word
Como puedo sacar un acumulado de trabajadores, si en cada hoja tengo cambios de información de esos mismo trabajadores, ejemplo en hoja uno lo tengo, pero en la hoja 3 ya no. Pero al final quiero saber cuanto acumuló. O la forma de buscarlos más fácil en cada hoja.
Eso es porque UCase da error si se le da algo vació (alguna celda está vacía). Sería mejor ir celda por celda del rago y verificar que no esté vacía para recién usar UCase Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each c In Range("A1:A10") If c "" Then c.Value = UCase(c) Next End Sub
Hola, como puedo hacer para que en una columna no se repita el mismo numero. Lo que pasa que yo tengo ordenes de compra y ya me paso que facture 2 veces la misma orden de compra. Saludos!
Mi Saludos Ingeniero, Bueno mi caso es el siguiente: Como ya han comentado en las otras notas y he revisado; su procedimiento funciona muy bien para cuando queremos que se modifique una sola celda ... excelente, pero, mi caso particular es una columna desde la fila 10 hasta la fila "x" y/o una sola fila desde la columna "A" hasta la columna "AA" ; traté de hacer como lo dice el amigo "MANU" pero no me funciona me da cualquier cantidad de errores que termino apagando todo.... Cuento con ud lo entendiendo mejor.... Gracias de Antemano.- PD: Sin menospreciar a nadie ...
Ahí le respondí a Antonio, aunque me parece que además se debería controlar un poco que rango de celdas van a disparar el evento, porque así como está el evento se ejecuta cada vez que se cambia a cualquier celda en la Hoja y no solo Enter sobre el dato a poner a mayúscula XD
Gracias maestro, pero que pasa si en un libro de o en una hoja donde has textos y número quiero que los textos siempre sean mayúsculas selecciono los rangos, o columnas porque en otras columnas hay numero De antemano gracis
Gracias!!... igual podrias haber dejado escrito aqui abajo ese texto que tenemos q poner en visual basic asi no me enredo copiando letra por letra de ese feo idioma ingles xD
Seria posible que la primera letra de cada palabra sea mayuscula y el resto minuscula, teniendo en cuenta los espacios, o comas, por sii pones primero apellido y luego el nombre en la misma celda
Sos el 1, he realizado cursos online de excel donde no he entendido en absoluto o a veces muy incompleto, con solo mirar tu video ya es suficiente para entenderlo todo. Excelente capacidad didáctica..
excelente lo que hace este maestro. yo lo necesitaba para un determinado rango, ya que tenia validacion de datos con lista para ese rango de celdas y el codigo que me dio chatgpt fue el siguiente.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda As Range
Dim rango As Range
Dim ws As Worksheet
' Especificar la hoja en la que se trabaja
Set ws = Me
' Definir el rango dinámico desde I7 hasta M38 (ajustable según lo necesites)
Set rango = ws.Range("I7:M38")
' Verificar si el cambio ocurrió dentro del rango específico
If Not Intersect(Target, rango) Is Nothing Then
' Recorrer cada celda afectada
For Each celda In Target
' Convertir el valor a mayúsculas si no está vacío
If Not IsEmpty(celda.Value) Then
Application.EnableEvents = False ' Desactivar eventos para evitar bucles infinitos
celda.Value = UCase(celda.Value)
Application.EnableEvents = True ' Reactivar eventos
End If
Next celda
End If
End Sub
Me pregunto si habrá una fórmula en Excel para agradecerle todo lo que he aprendido de usted? Muchas gracias por su valioso contenido.
Que gusto que ya recupero su canal profe.
Excelente contenido.
Inge, sus videos me han ayudado bastante a mejorar en Excel.
Excelente aporte, muchas por compartir el conocimiento, saludos desde Chile
Profe muchas gracias por su aporte, ahora si pudiese hacer un ejemplo con un rango más extenso o que se realice en las demás filas de la misma columna.
Excelente video y videos Profesor. Una gran abrazo desde 🇨🇱. Ojalá pueda hacer un video explicativo para saber cómo efectuar listas desplegables con los datos de origen en un libro distinto jejeje. ✌️
Excelente, me fue de gran utilidad. Saludos desde La Paz Bolivia
Yo hacía el modo más largo jajaja...Mil Gracias Ingeniero, es usted genial!!!
Muy interesante, seguimos aprendienfdo, gracias.
gracias amigo e creado un sistema de trabajo sin saber nada de exel gracias a Ud
Mis respetos maestro, justo lo que estaba buscando. Mil gracias
EXCELente‼️👍👍👍👍👍👍👍👏👏👏👏👏👏👏 saludos desde Argentina 🇦🇷🧡🐾
Muy buen aporte, Gracias
Muy buena herramienta, lo que necesitaba para unos datos 👍
Qué bueno, siempre había pensado en cómo! Muchas gracias muy claro. Sl2
Se me hace que usted es Anónimous jajaja muchas gracias por su IQ pero más por compartir sus conocimientos de una manera tan fácil de comprender. Dios te bendice 🙏
Gracias Profe tenia tiempo buscando de hacer eso. Modifique el codigo con Geminis para aplicar en toda la columna aqui se los dejo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
' Especifica la columna a procesar (ajusta "B" según sea necesario)
Dim columna As String
columna = "B"
' Encuentra el último rango utilizado en la columna
Dim lastRow As Long
lastRow = Cells(Rows.Count, columna).End(xlUp).Row
' Itera a través de cada celda en la columna
For Each cell In Range(columna & "3:" & columna & lastRow)
cell.Value = UCase(cell.Value)
Next cell
End Sub
Hola! ¿Cómo lo puedo aplicar en mas columnas? ¿Me apoyarías?
excelente me resolviste una duda que no hallaba
BUENISIMO ABORDASTE TODAS LAS MANERAS DE TRABAJAR SOLO CON MAYUSCULA ...RECOMIENDO
gracias por todos sus video
excelente, muchisimas gracias.
Puedes hacer un video explicando como una cantidad numérica también aparesca en letras, como los cheques por ejemplo.
Buen video, saludos.
Muchas gracias, por compartir.
Eres el gandalf del excel... 🙏🙏🙏🧙
Que genial.....gracias profe...
Saludos ingeniero:
Recién me suscribo a su canal, ya ví algunos de sus videos, los mismos tienen contenido muy completo, además de su paciencia, elocuencia, conocimiento y etc. muy importante. Solo le pediría si podria aumenta el tamaño de la hoja para poder visualizarla, ya que está en especial, se la ve borrosa, las acciones que usted realiza no se divisan en la pantalla del celular, que es dondel a observó en este momento.
Espero lea mi comentario, felicitarlo y agradecerle por compartir su conocimiento y experiencia.
atte. Gary Perez
éxito y siempre para adelante Ing....
Gracias por la información
9:44
Si quiero que sea una Columna completa cual será el rango al menos 50 celdas hacia bajo
Eres un genio.!!!!
Muy bueno como siempre Inge., Consulta como hago esto mismo para toda una columna y no solo una celda? Gracias
Gracias por el tuturial. Tengo una duda... Tengo una base de datos a la que he añadido un formulario para introducir más registros o consultar los que existen... Dentro del forumulario tengo un text box en el que he coseguido que de forma automática escriba como escriba se cambia todo a mayúsculas y otro en el que se cambia a modo título, es decir la primera letra de cada palabra es en mayúscula y el resto en minúscula, el problema me viene cuando escribo un parentesis, que el código interpreta ya como primera letra y por lo tanto la primera letra real queda ya en minúscula y no quiero que eso pase... ¿cómo consigo que después de escribir un paréntesis la siguiente letra también sea mayúscula? Quiero pensar que el código debe ser iniciando un "If" pero me pierdo... Gracias.
amigo y si ud ya tiene una tabla hecha, extensa, como un inventario, y desea cambiar a solo MAYUSCULAS, que se puede hacer ?
pregunta, viendo la ultima forma de coversion a mayuscula; si tengo toda una columna la cual deseo q el texto de todas las celdas se me conviertan a mayusculas, como hacer ?, copiar la celda del ejemplo en toda la columna? o en vez de poner "b3" q es la celda del ejemplo, podemos poner la columna ?
Tengo la misma duda
Eres el tesoro perdido de los estudiantes 😅😅
Profe, falto una... de juan pérez a Juan Pérez. O sea, de todas minúsculas o mayúsculas a la primera letra de cada palabra en mayúsculas y el resto en minúsculas como en realidad uno escribe los nombres propios.
De resto, le agradezco muchísimo su enseñanza a la cual le saco el jugo
Gracias de nuevo. 🙂
como selecciono un rango de celdas???
Hay alguna forma de que hacerlo masivo? Osea tomar varias filas y columnas y pasarlas a Mayus? Osea algo así como uno poder copiar y al momento de pegar tener esa opción y internamente hacer algo para que pegue todo en Mayus.... Gracias.
hola chicos, si quieren que el cambio sea en una sola columna y no en un celda se lo puede hacer de esta manera:
if Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
On Error GoTo 0
End If
Espero les haya podido ayudar, saludos
Gracias, por el aporte, sin embargo como el rango que tengo para el ejercicio no es el mismo (E:E) Cuando le doy ENTER no me lo cambia, me toca devolver con las flechas desplazamiento y ahi si cambia....
y si quiero varias columnas, que estan distanciadas ? como seria columna, a, m, i. GRacias de ante mano
me ayudo mucho, mil gracias
Si funciona, gracias
4:21 solo sirve para una celda
Hola Inge Francisco. Gracias por tus tutoriales. Ya pregunté en tu canal tiktok pero aprovecho para repreguntar aquí mi duda: ¿Como convertir automáticamente a mayúsculas dentro de un rango de tabla al que dimos un nombre?
muchas gracias señor Francisco y como hago para que sea más de un celda y sea un rango amplio de una columna, saludos
Maestro una consulta, para poder cambiar todo a mayúscula en una plantilla que ya está terminada. Cómo hago para que detecte las celdas que están en minúsculas y las convierta a mayúsculas?? El problema es que la plantilla no tiene un orden fijo y además contiene celdas combinadas. No se si me doy a entender… Se podrá hacer con Visual??
Ya he encontrado la fórmula de código para convertir diversas celdas en mayúsculas.
Es poner línea de código para cada celda. Tal cual así:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b3").Value = UCase(Range("b3").Value)
Range("c5").Value = UCase(Range("c5").Value)
End Sub
@@teloniusk Me ayudas?
Necesito convertir en mayusculas solo estas columnas👇🏻
C F G H M
(Es una tabla simple sin fórmulas ni nada, solo quiero que se ponga mayúsculas mientras meto información en esas columnas)
Muchas gracias viejo, llevo como 8 horas buscando este código. nos sabes lo feliz que me haz hecho😭😭
SALUDOS DESDE NICARAGUA!!! Inge podrías hacer un video de como aplicar formato condicional de mayúsculas y negritas a textos seleccionados desde una lista de validación de datos porfa
Con este codigo al darle enter se cambiara solo a mayuscula y no solo eso sino que es por columnas... de nada.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim columnas As Range
' Especifica el rango de columnas en las que deseas que se aplique la conversión a mayúsculas (A a M)
Set columnas = Range("A:M")
' Verifica si el cambio se hizo en las columnas especificadas
If Not Intersect(Target, columnas) Is Nothing Then
Application.EnableEvents = False ' Desactiva los eventos para evitar un bucle infinito
' Recorre cada celda modificada en las columnas especificadas
For Each rng In Intersect(Target, columnas)
rng.Value = UCase(rng.Value) ' Convierte el valor de la celda a mayúsculas
Next rng
Application.EnableEvents = True ' Activa nuevamente los eventos
End If
End Sub
Si necesitan otras lineas de codigo comentarme.
se debe colocar igual pero con la "A:M" ?
Muchas gracias, valiosa informaación
Muchas gracias! Note que también sirve para un área especifica al cambiar el rango, por ejemplo sustituí Set columnas = Range("A:M") por Set columnas = Range("a1:a10") y me funciono perfecto!
Hola!! me funciono perfecto para dos columnas, pero cuando puse un rango que en el medio tiene cinco columnas con formulas, las formulas desaparecieron y era todo texto, puedo duplicar, poniedo en una la columna f y en la otra la columna M? o como debo poner en la seleccion de rango? Gracias!!
Gracias por el dato, esta mucho mejor que el ejemplo que dieron en el vídeo.
5⭐ por el servicio.
Inge excelente video, muy útil, una consulta, se puede realizar el mismo macro para mayúsculas en google sheets? gracias
HOLA Y SI TIENES UNA PLANOLLA ESCRITA EN MINUSCULA Y QUIERES PASARLA A MAYUSCULA??
aja chevere,lo felicito,PERO solo es de una celda, en caso de toda una COLUMNA? como se hace?
Indicas el rango que deseas convertir. por ejemplo C5:C250 (separado por dos puntos (:)
En el ejemplo fue solo una celda
Muchas gracias por la info!@@juancarloshuncalmartinez
Para ser sincero preferí copiar el texto de excel a word ya en word esta la función cambiar minusculas a mayusculas despues copiar de word a excel igual si lo quieres combinado mayusculas y minusculas con los nombres y apellidos de las personas
Buenos días. ¿Como sería la programación para un rango de celdas Ingeniero?
pregunta ? a este formato de fecha en excel 09-jun-24 se puede hacer que sea 09-JUN-24 que cambie a mayusculas el mes sin que se texto el formato, le agrdeceria sus comentarios
Ing. En el inventario de mi trabajo al descargar desde el programa a Excel tengo que convertir diferentes unidades de medidas a sacos, tenemos códigos en gramos, libras, kilos. Como puedo hacer con alguna función?
Pero con las opciones de la macro y la de la línea de código, que pasa sino solo escribes en B3?
tienes que seleccionar toda la columna en vez de una b3 seria b
COMO HACER PARA QUE SE REPITA LA MISMA ACCION EN 12 COLUMNAS Y 31 FILAS
excelente informacion Inge gracias. Y como se deberia hacer para aplicar este criterio a varias filas. he tratado de copiar a mas filas pero no me da resultado.
Ecelente, muchas gracias Ingeniero, tengo una pregunta, y en caso de que tenga que hacerlo en varias celdas, cual seria la compilación
MAYÚSCULAS y MINÚSCULAS con tilde. Gracias
Buen dia Inge Francisco, estaria interesante una funcion que convierta numeros a letras para el relleno de un cheque notas de venta o algo parecido, saludos desde San Luis Potosi, Mexico
Ya lo hizo.
Paso el link.
th-cam.com/video/fPU3FAUI5ZY/w-d-xo.html
Profe, debe realizar el ejemplo para una tabla completa, por favor
ESTO ES LO QUE FALTA COMO PONER EN MAYUSCULA UNA HOJA COMPLETA QUE YA ESTA LLENA DE INFORMACION
con todo respeto pero solo funciona para una celda y las demás celdas????
Profe por favor si se desea usar la última opción pero para un rango determinado de celdas, como se lo puede hacer??
Buenas PROFESOR como hago para que tome un rango de muchas celdas y de esa manera tener preparada la hoja
Profesor; como se puede calcular la fecha de salida de un trabajador, sabiendo cuando entra y los días que trabajara??
ej: yo entro el día 21-11-2021 y trabajaré 31 días como se puede saber la fecha de salida, dejando afuera fines de semana y feriados.
saludos y. gracias por tanto
Excelente
maestro seria bueno que en cada video que suba deje algunos ejercicio para poder practicar y fortalecer nuestro conocimiento y poder practicar
lo que no comprendo porque el mismo Microsoft no trae un comando tan básico y útil 😒😒
Si queremos hacer lo contrario, es decir, como crear la linea de código para que el texto aparezca en minúsculas
Consulta, pero cuando cambia la a mayuscula con el còdigo solo es de una celda en caso de toda una tabla. Como se harìa?
@elingefrancisco Comparto esta inquietud. ¿Cómo se hace referencia a una celda, fila, columna o tabla completa, de una Tabla?
Comparto esa inquietud y otra mas cuando quiero en minúsculas ??
¿Funciona el código para celdas combinadas o es por celda? Existe algún código? Agradecería mucho su ayuda
Hola ingeniero yo tengo el problema que todos mis datos estan en mayúsculas y lo necesito en minúsculas; me resultaría tan genial esa línea de código pero para minúsculas... desde ya muchas gracias. Saludos desde Catamarca, Argentina
Buenos días, me gastaría saber si hay una validación de datos que evite minúsculas y a la vez que no me permita duplicar el dato. mil gracias Inge Francisco
Como puedo hacerle para resetear macros sin cerrar un archivo, me explico: tengo un hoja de calculo de compac que carga muchas macros para exporta a contabilidad, pero al mismo tiempo abro otro archivo con la funcion indice y otras, pero cuando tengo abierto el archivo de macros al cambiar la fecha para que me de un rango de moviemientos ya no funciona. hasta que cierro excel y la abro primero y doy la fecha funciona. y asi tengo que hacerle cada que uso el archivo. gracias espero haberme dado a entender
S
Buenas tardes, una pregunta, se puede hacer q todas las celdas conviertan las minusculas a mayusculas porque de celda en celda pues es muy laborioso, gracias, estupendas clases.
Hola profe...intenté colocando entre comillas el nombre de una tabla para que cada nombre que se ingresa vaya quedando en mayúsculas pero sale error de compilación "El argumento no es opcional" y resalta Range en la línea del código.
No puedo, me dice en todos los casos que el tamaño no es el mismo. Y no puedo atinarle al tamaño.
Hola, saludos se puede en Outlook hacer combinaciones de mayúscula y minusculas?
Buen día me gustaría saber cómo hago para que quede mayúscula sólo la primera letra de cada palabra . Para hacerlo de la forma como está a lo último del vídeo. Gracias
Disculpen mi ignorancia, jejeje, pero tuve que hacerlo con buscar y reemplazar todas las letras del alfabeto y así lo solucione, en un archivo de demasiados renglones
No me deja poner "worksheet", sale un error indicando "Variable uses an Automation type not supported in Visual Basic" me ayudas por favor
Ing como pego una lista en una columna con filas filtradas sin afectar dichas filas filtradas 🙏
Estimado Inge, y como se la hace para que sean varias celdas o un rango de celdas!? , asi Range("b4:f4").Value = UCase(Range("b4:f4"").Value), ya lo intente y marca error Saludos desde Mexico
Tengo la misma duda porque para escribir en una sola celda activo la tecla mayus y ya, lo que buscamos es que sea automático en una fila o columna
@@teloniusk Amigo no me va la función, se tiene q colocar en la worksheet o en un modulo??, podrías pasar el archivo como ejemplo con la macro ya insertada???
@@teloniusk Disculpa soy muy nuevo en esto mira esto llevo
Sub conversor()
Cadena=Cells(4,x)
Cells(4,x)=UCase(cadena)
End Sub
Ahira saliendo de Visual Basic llamó a la macro mediante un botón pero me aparece
Se ah producido el error '1004' en tiempo de ejecución...
Estaría muy agradecido si me apoyas diciéndome donde estoy mal, o poniéndome el código para q lo pegue directamente.
De antemano muchas gracias por el apoyo
Sub TipoTitulo()
Dim X As Range
For Each X In Selection
X.Value = StrConv(X.Value, vbProperCase)
Next X
End Sub
Hola crack. Tienes cursos sobre NUMBERS de Mac?
Saludos ing. Mi Pregunta es como localizo las listas de validación que aplique en una hoja de cálculo porque las quiero modificar y no se donde están mucho le agradecería su pronta respuesta agradeciendo de antemano por su atención atentamente JUAN PEÑA
Hola, y para Google sheet, podría ser posible también, Gracias
Buenos días Profesor, excelente video, habría alguna función que me ayude a eliminar los valores duplicados en la misma celda? Ejemplo tengo MMMM S.A. MMMM S.A. y solo que en la celda MMMM S.A.
Supongo que para añadir diversas celdas que también las convierta en mayúsculas en la línea de código, en el apartado "Range," se deben poder añadir, ¿no?
Range("b3";"c5") y así sucesivamente.
¿Correcto?
O poniendo el rango? a ver si alguien puede informar.
Como se hace para una o varias columnas completas o si copio el contenido de otro origen en minúscula y al pegarlo en una de las celdas se convierta en mayúscula 🤷🏻♂️
Hola te hago una consulta! realizo una formula para ingresar nombres de meses y semanas pero me las agrega con minúsculas, como puedo hacer para que la primera sea en mayuscula como deberia salir. mi formula es la siguiente =texto(A1;"MMMM") pero me da resultado en minusculas (enero) y necesitaria que sea la 1 mayuscula Enero muchisimas gracias
Agrega la función NOMPROPIO.... de esta manera quedaría tu fórmula =NOMPROPIO(TEXTO(A1;"MMMM"))
@@iyoba1 muchísimas gracias!!!! Funciona 🙌
Buen día, en el caso de las fechas tambié se pueden poner en mayúsculas?? es decir el mes, saludos.
Creo que en en esta ocasión el Inge enredó la pita, Ja Ja. Si claro por supuesto es casi gual, deberás anteponer la funcion Texto y expresión sería: =NOMPROPIO(TEXTO(A1;"mmmm")); donde A1 será, por eejmplo, la celda que estas evaluando y te duelve la promera en mayúscula, si quieres toda la expresion en mayúscula entonces usa la función Mayusc en lugar de nompropio.
En una nueva comumna:
=MAYUSC(nombre de la celda)
ejemplo: =MAYUSC(B11)
también se puede seleccionar y arrastrar la celda donde escribieron la formula para aplicar el mismo efecto a toda la columna
y columnas completas o filas?
El problema es que si se emanda ese archivo a alguien se pierde la macro, la idea es que no use macros, como sería
@@alejandroortizgaviria2238 misma duda:(
@@MarianaIrany-uq4ur tocó hacerlo con una macro, pero sigo sin poder encontrar así sea un plugin que instale un botón o algo para usar esa función como en word
Como puedo sacar un acumulado de trabajadores, si en cada hoja tengo cambios de información de esos mismo trabajadores, ejemplo en hoja uno lo tengo, pero en la hoja 3 ya no. Pero al final quiero saber cuanto acumuló.
O la forma de buscarlos más fácil en cada hoja.
Buenas.
Unificar todo en un sola hoja. 👌
Excelente Ing. pero si quiero que lo haga en un rango ejemplo a1:a10, si le pongo ese rango en la macro no lo hace.
Eso es porque UCase da error si se le da algo vació (alguna celda está vacía). Sería mejor ir celda por celda del rago y verificar que no esté vacía para recién usar UCase
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("A1:A10")
If c "" Then c.Value = UCase(c)
Next
End Sub
@@EdePC Muchas gracias por tu ayuda!
muchas gracias@@EdePC
Hola, como puedo hacer para que en una columna no se repita el mismo numero. Lo que pasa que yo tengo ordenes de compra y ya me paso que facture 2 veces la misma orden de compra. Saludos!
Mi Saludos Ingeniero, Bueno mi caso es el siguiente: Como ya han comentado en las otras notas y he revisado; su procedimiento funciona muy bien para cuando queremos que se modifique una sola celda ... excelente, pero, mi caso particular es una columna desde la fila 10 hasta la fila "x" y/o una sola fila desde la columna "A" hasta la columna "AA" ; traté de hacer como lo dice el amigo "MANU" pero no me funciona me da cualquier cantidad de errores que termino apagando todo....
Cuento con ud lo entendiendo mejor....
Gracias de Antemano.-
PD: Sin menospreciar a nadie ...
Ahí le respondí a Antonio, aunque me parece que además se debería controlar un poco que rango de celdas van a disparar el evento, porque así como está el evento se ejecuta cada vez que se cambia a cualquier celda en la Hoja y no solo Enter sobre el dato a poner a mayúscula XD
Sub TipoTitulo()
Dim X As Range
For Each X In Selection
X.Value = StrConv(X.Value, vbProperCase)
Next X
End Sub
@@marcoagredamatias9231 no entendi esto donde iriA
@@ginaguerrero1096 CREA UN MODULO EN VBA Y UN BOTON DE MACROL EN EXCEL Y DE AHI LO,EJECUTAS...
th-cam.com/video/sMr-0CaHOSQ/w-d-xo.html
Gracias maestro, pero que pasa si en un libro de o en una hoja donde has textos y número quiero que los textos siempre sean mayúsculas selecciono los rangos, o columnas porque en otras columnas hay numero
De antemano gracis
@@teloniusk Muchas gracias, espero tu ayuda en el entendido de la autorización del Ing, Francisco
Gracias!!... igual podrias haber dejado escrito aqui abajo ese texto que tenemos q poner en visual basic asi no me enredo copiando letra por letra de ese feo idioma ingles xD
Seria posible que la primera letra de cada palabra sea mayuscula y el resto minuscula, teniendo en cuenta los espacios, o comas, por sii pones primero apellido y luego el nombre en la misma celda
Creo que es la función nombre propio nompropio.
Esperemos si nos enseña🤗