Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como transponer una matriz y que se mantenga relacionada con macros?
Cambia esta línea 'destino.VALUE = WorksheetFunction.Transpose(.Rows(i).VALUE) por esta otra .Rows(i).Copy: destino.PasteSpecial , Transpose:=True
Respuesta
en
Microsoft Excel
a
Ordenar de forma alfabética celdas obviando los 0
Usa esta macro, solo ordena las filas que tengan datos Sub ordenar_alumnos() Set datos = Range("a7").CurrentRegion With datos filas = .Rows.Count: col = .Columns.Count Set datos = .Rows(11).Resize(filas - 10, col - 3) cuenta =...
Respuesta
en
Microsoft Excel
a
Como resfrescar un textbox con una operación aritmética
Los problemas que tienes esta en lo siguiente 1.-En operaciones aritméticas con el change generan ruido porque en cuanto tecleas un numero se dispara el evento y al no tener completos los dos textbox te marca error, en vez del evento change cambialo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Obtener el nombre de un rango en Excel VBA
Primero así no se declara un name en este ejemplo el name se llama hola y como puedes ver aparece en la lista desplegable hay varias formas de declara el name y son muy útiles a la hora de programar para traer datos de otras páginas dentro del mismo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Hacer una macros que calcule el valor máximo diario
Este es el resultado de la macro, lo mismo funciona para 1 que para 1 millón de registrosy esta es la macro Sub buscar_maximos() Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count .Sort _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito realizar una suma en columnas en un formulario utilizando la función sumar Si
Si lo único que quieres es que ponga la fórmula que planteas esta es la instrucción With Range("AE2:AI" & lastrow) .Formula = "=Sumif(B2:B100,""Komax"", G2:G100)" End With
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para transponer una matriz a una sola columna, mediante función =transponer().
Prueba con esta macro Sub transponer() Set origen = Worksheets("hoja1").Range("a1").CurrentRegion Set hd = Worksheets("hoja2") With origen f = .Rows.Count: c = .Columns.Count For i = 1 To f If i = 1 Then Set destino = hd.Range("a1").Resize(c, 1) If i...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Pegado de destino distinto al original
Te propongo esta macro copia de una manera más eficiente Sub busca_datos() nombre = ActiveWorkbook.Name Set destino = Workbooks(nombre).Sheets(1).Range("a1").CurrentRegion With destino f = .Rows.Count: c = .Columns.Count Set destino = .Cells(2,...
Respuesta
en
Microsoft Excel
a
Como eliminar duplicados dejando uno sólo.
Sin usar macros 1.- Seleccionas y ordenas por orden y luego por concepto 2.- Seleccionas menu datos, quitar duplicados, luego anular selección y seleccionas concepto, das aceptar y es todo te quedan solo las ordenes con numero mayot
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como buscar datos y si hay duplicados concatenarlos separados con / con VBA
No me queda del todo claro lo que pides así que te envío un ejemplo de lo que creo que es: primero crea una lista así y corres la macro que se encuentra al final de la segunda imagen este sera el resultado de correr la macro y esta es la macro Sub...