calvuch

Inserta este código en un modulo el macro a correr se llama Transponer, este a subes llama otros dos (rótulos y datos) Toma los datos de la hoja 2 y los pega en la hoja 3 Option Explicit Sub transponer() Dim n As Integer Dim i As Integer...

Hice la prueba como sigue En modulo1 : Option Explicit Public Const r = "$A$1:$C$1" ' le pasamos el rango como string Y lo utilizo en modulo 2 Option Explicit Sub SSS() Dim s As Range Set s = ActiveSheet.Range(r) ' utilizamos el string s.Select Set s...

Ok Private Sub CommandButton1_Click() Dim i As Long Hoja1.Range("A65536").Formula = "=COUNTA(R[-65535]C:R[-1]C)" Hoja2.Range("A65536").Formula = "=COUNTA(R[-65535]C:R[-1]C)" If Hoja1.Range("A65536") = 0 Then Exit Sub Hoja1.Select For i = 2 To...

Utiliza esta fórmula:...

La data siempre tiene esa estructura o podría ser Epson Stylus 1000 2000 3000 4000 5000 Epson Stylus 1000 2000 5000 Es decir de largo variable

Utiliza este código: Sub vaciar() Dim n As Long Dim c As Long c = 15 For n = 0 To (ListBox1.ListCount - 1) c = (c + 1) Range("D" & c).Value = ListBox1.List(n, 0) Range("E" & c).Value = ListBox1.List(n, 1) Range("F" & c).Value = ListBox1.List(n, 2)...

modifica tu formula =DECIMAL(promedio(G4:L4)-0.05,1,falso))+0

Es es posible, pero como en Excel no se puede insertar un control timer, el tema de las fechas debería ser evaluado cada vez que el usuario ABRIERA la hoja o GRABARA la hoja. Tu decides

Quieres que "diga"... ¿es decir te de un mensaje con ese texto o quieres que realize la operación y te devuelva el resultado?

Lo recuerdo, acabo de corerr el macro y funciona bien consideraciones: 1. Los datos del tipo 1cr, 2cr etc verifica que sean del mismo tipo que siempre empiezan por un número 2. La macro toma como rango la fila A no deben hacer celas vacías entre...