James Bond

Verifica que los datos en la hoja sean numéricos, ese error se da cuando una de las dos variables dependientes entre si es diferente a la otra por ejemplo: una de valor numérico y la otra de texto como podría ser tu caso. Intenta txt_ott.Value =...

Esta macro se posiciona en el rango iv3, cuenta las filas con datos de la columna A y rellena esa porción con la fórmula Sub ejemplo() Range("iv3").Select f = Range("a1").CurrentRegion.Rows.Count ActiveCell.Resize(f, 1).FormulaR1C1 =...

No es más que una condición if la que ocupas por ejemplo: valor=range("a1") if valor>4 or valor<1 then range("a1")=""

Prueba con esta macro Sub cambiar() Set datos = Range("a1").CurrentRegion For i = 1 To datos.Rows.Count Step 3 datos.Cells(i, 1).RowHeight = 40 Next i Set datos = Nothing End Sub

Prueba esta macro Sub jerarquizar() Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count Set datos = .Rows(2).Resize(f - 1) Set orden = .Columns(c + 1).Resize(f - 1, 1) End With With orden .Cells(1, 1) = 1 .Cells(1,...

¿Algo así es lo que buscas? Esta es la macro que ocupas, solo tecleas una fecha valida en el textbox y das doble click sobre de el y eso todo. Option Base 1 Sub TOTALPORVENDEDOR() Dim UNICOS As New Collection Dim FUNCION As WorksheetFunction Set...

Prueba con esta macro Sub copiar_datos() Set ho = Worksheets("hoja1") Set hd = Worksheets("hoja2") Set rango = Union(ho.Range("b17").CurrentRegion, ho.Range("f17").CurrentRegion) With rango .Copy: hd.Range("m1").PasteSpecial End With End Sub

Haces que la macro ordene en forma descendente para que todas las salidas estén en primer lugar, luego mediante una función contar contabilizas cuantas salidas hay, después ajustas el rngmirango2 a solo las salidas y listo, en el listbox unicamente...

Prueba esta macro, las imágenes son el resultado de la misma y esta es la base de datos para usarse con esta macro Private Sub ComboBox2_Change() Set CARGOS = Range("CARGO") With DATOS INDICE = ComboBox2.ListIndex + 1 ComboBox3.AddItem...

Hay dos formas una dejando activa la tecla ESC y la otra anulando totalmente el teclado Sub SinTecladoNiEsc() Rem desactivar teclado y esc Application.DataEntryMode = xlStrict End Sub ' Sub SinTeclado() ' Establece la combinación de teclas CTRL+D...