Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como "concatenar" datos de varias celdas en una celda con VBA?
Si tienes la versión 365 de excel, puedes utilizar la siguiente función: Versión en español: =UNIRCADENAS(", ";1;SI(C2:C10=I2;D2:D10;"")) Versión en inglés: =TEXTJOIN(", ";1;IF(C2:C10=I2;D2:D10;"")) Resultado: También te paso el código de una UDF...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Pasar contenido del listbox a la hoja
En mis pruebas los pasa como valores. ¿Tienes algún formato en el listbox? Puedes poner una imagen de tu listbox.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Ejecutar macro si alguna celda en el rango cambia
[Hola Abraham Valencia, la situación en tu ejemplo, es que cualquier fórmula actualizada en la hoja, sin importar el rango, siempre va a entrar al If, ya que miRango siempre está dentro del Range("C2:C20") Set miRango = Range("C2:C20") If Not...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como se puede pasar todos los datos del listbox1 a la hoja
Prueba el siguiente código: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim lr As Long Set sh = Sheets("Hoja1") lr = sh.Range("A" & Rows.Count).End(3).Row + 1 With ListBox1 sh.Range("A" & lr).Resize(.ListCount - 1, .ColumnCount).Value =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Excel cambia los números largos vba
Antes de ejecutar la macro cambia el formato de las celdas a texto. Puede ser en la misma macro, después de esta línea: A. Cells. Clear Pon esta línea: A.Cells.NumberFormat = "@" --- Prueba y comentas.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Realizar resumen sin celdas vacías
Te paso la macro actualizada: Sub Resumen_ejercicios() ' ' Resumen_ejercicios Macro ' Range("O2:O49").SpecialCells(xlCellTypeConstants).Copy Range("P2").PasteSpecial Paste:=xlPasteValues Range("$P$2:$P$49").RemoveDuplicates Columns:=1, Header:=xlNo...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para validación de datos
Por ejemplo si quieres aplicar en las columnas D a E, de la G a la I y solamente la K y la M. Utiliza lo siguiente: If Not Application.Intersect(Target, xRng, Range("D:E, G:I, K:K, M:M")) Is Nothing Then
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como considerar los últimos dos números y ya no todo el rango en el siguiente código VBa
"Lo que busco es ya no limpiar las celdas en el rango h3:jd39" Para eso, elimina estas líneas de la macro: Range("H3:JD39").Select Selection. ClearContents "QUE SE APLIQUE SOBRE LOS DOS ULTIMOS REGISTROS DE LA COLUMA B EL ULTIMO Y EL ANTERIOR" Para...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Label que de mensaje si hay cierto color en celda
No sé a qué te refieres con "pase a ON", puedes explicarlo. Te paso el código para poner el texto, habilitar el label1 y hacerlo visible. Private Sub UserForm_Activate() If Range("B2").Interior.Color = vbYellow Then With Label1 .Caption = "BAJO...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para importar datos de varios archivos en una misma carpeta
Debes ser más específico con los ejemplos y con la información. Nombres de archivos, de carpetas, de hojas, cuáles columnas y filas copiar, en dónde las quieres pegar, etc, etc.