calvuch

El problema esta en el filtro Si la hoja filtro esta sin datos el filtro falla. Lo corri con datos y sin datos y se cae cuando no hay datos

Esa celda especifica que comentas en donde esta el ID, ¿es la misma en todas las hojas?

Seguí el mismo patrón de tu imagen, respectando cada dato en cada celda, por lo tanto según tu imagen: en C9 "tarifa a aplicar", pon : =SI(C8>=A3 =Y(C8<=B3);C3;SI(C8>=A4 =Y(C8<=B4);C4;SI(C8>=B5;C5))) en C10 =SI(C9=C3;D3;SI(C9=C4;D4;SI(C9=C5;D5;0)))...

Desde el editor de código de Visual basic debes agregar la referencia "Microsoft Scripting Runtime". ( Desde menú herramientas) Luego declaras el api : Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" ( _ ByVal...

Solo debes aumentar el tamaño de la fuente del combo en modo de diseño ve al control y con el botón derecho del mouse selecciona "propiedades", en el cuadro de lista que te aparecerea ve a "Font", si entras en la casilla parecerá un botón con tres...

Prueba esto : Private Sub CommandButton1_Click() Dim i As Integer Dim f As Integer Dim c As Integer Dim nombre As Variant nombre = InputBox("Indique el valor buscado", "Buscar", 0) If nombre = "" Then Exit Sub On Error GoTo 1 Cells.Find(What:=nombre,...

Prueba este script Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim d As String If KeyCode = 13 Then TextBox1 = Trim(TextBox1) If TextBox1 = "" Then Exit Sub If Len(TextBox1) = 0 Then Exit Sub Range("A4")...

Utiliza esta fórmula =EXTRAE(A1;1;LARGO(A1)-2)*-1 Si el dato lo tienes en A1 esta fórmula la digitas en B1 ( en donde te dará el resultado) Luego solo lacopias hacia abajo y listo Ahora cuidado con esto, la fórmula esta adecuada considerando el largo...

Excel tiene la opción de crear un autoformulario que cumple esa necesidad, al ingresar un nuevo dato, este se agrega secuencialmente y fila a fila. Los campos de este autoformulario estarán definidos por los encabezados de tu lista por ejemplo, si...

Con este macro pude copiar todos los datos visibles desde la celda A2 de la hoja1 a la Hoja4 Private Sub CommandButton1_Click() Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Range("A2").Select Range(Selection,...