Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Microsoft Excel

Respuesta en y en 1 temas más a

Como hago una macro que tome siempre el valor de una celda "I9" y lo copie en otra hoja pero siempre debajo otro valor

Te anexo la macro Sub Copiar_Celda() u = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("Hoja2").Range("A" & u).Value = Sheets("Hoja1").Range("I9").Value MsgBox "Valor agregado" End Sub
Respuesta en y en 4 temas más a

Necesito modificar esto para que me agregue la palabra cero cuando esta en el lado izquierdo

Te anexo la función actualizada Function Num_texto(Numero) Dim Texto Dim Millones Dim Miles Dim Cientos Dim Decimales Dim Cadena Dim CadMillones Dim CadMiles Dim CadCientos Texto = Numero ' If Left(Texto, 1) = "0" Then existe = True End If ' Texto =...

Excel:ocultar columnas que no cumplan una condición

¿Pero en cuál fila de la columna se tiene que buscar? ¿En cuál columna iniciar y en cuál columna terminar?
Respuesta en a

Modificar macro de combinaciones de números

Te anexo la macro actualizada Sub Combinacion() i = 1 nGrupo = 0 For b1 = 1 To 61 For b2 = b1 + 1 To 62 For b3 = b2 + 1 To 63 For b4 = b3 + 1 To 64 For b5 = b4 + 1 To 65 For b6 = b5 + 1 To 66 Cells(i + 2, 1 + nGrupo) = b1 & "-" & b2 & "-" & b3 & "-"...
Respuesta en y en 1 temas más a

Macro para copiar datos de distintos libros en uno solo

Te anexo la macro con los cambios Sub copia_hojas3() '------------------ 'by niko ' '------------------ Application.DisplayStatusBar = True ' 'Act Por Dante Amor fecha = InputBox("Ingresa la fecha dd/mm/aaaa:", "COPIAR SOLAMENTE ESTA FECHA") If fecha...
Respuesta en y en 2 temas más a

Copiar y pegar datos de una hoja de excel a otra hasta que haya una celda en.blanco en vba

Te anexo la macro Sub copiar_celdas() Set h1 = Sheets("Hoja A") Set h2 = Sheets("Hoja B") h1.Range("B10:D" & h1.Range("B" & Rows.Count).End(xlUp).Row).Copy h2.Range("B10").PasteSpecial xlValues Application.CutCopyMode = False MsgBox "Celdas copiadas"...
Respuesta en y en 1 temas más a

Error al agregar una fila

Mejor explícame qué quieres hacer. Dime qué tienes y qué esperas de resultado, explica con imágenes y ejemplos.
Respuesta en y en 2 temas más a

Estimado : vi tu post sobre "Macro para copiar datos de varios libros y pegarlos en un libro nuevo en la primera hoja"

Para la primera parte, unir en una hoja de varios libros, revisa la siguiente macro Macro para copiar datos de varios libros de unas celdas especificas y pegarlos en un libro nuevo en la primera hoja. Sub libros() 'Lee archivos del directorio y Copia...
Respuesta en y en 2 temas más a

Fecha automática en una celda especifica con macro

Para poner la fecha en las celdas de la columna B si ya existe información en la columna C, primero debes ejecutar la siguiente macro, solamente una vez. Pon la siguiente macro en un módulo y la ejecutas solamente una vez sobre tu hoja. Sub...
Respuesta en y en 1 temas más a

Rellenar de color unicamente los textbox (Son diez) según la variable

Te anexo el código. Cambia var1 = 5 y var2 = 8 por los nombres de tus variables y por los números que desees Private Sub CommandButton1_Click() 'Por Dante Amor 'Poner color a textbox ' var1 = 5 var2 = 8 ' 'validar variables If var1 = "" Or var1 < 1...