Beto Echaniz

Dante Amor respondió: Prueba la siguiente macro. Pon tus datos en la Hoja1, los resultados quedarán en la Hoja2 Sub Intercalar_datos() Dim a As Variant, b As Variant Dim i As Long, j As Long ' a = Sheets("Hoja1").Range("A1:C" & Sheets("Hoja1").Range("A" &...

Julián González Cabarcos respondió: Quiero dejar claro que no entiendo el diseño de lo que pones en pantalla, ni como tienes construidas las tablas, pero si tengo la tabla Otra Donde puedes ver el orden. También tengo una tabla Aux Con ella hago un formulario donde le añado los dos...

antares18 respondió: No hace falta complicarte pon el valor de "O40" después de neto. Después entre las 2 funciones te creas una variable. Dim anadir_cero as string anadir_cero="0"+Range("O40") Y después pon if(cint(anadir_cero)>0) then 'Cint suponiendo que el valor de...

Sveinbjorn El Rojo respondió: Para agregarle una letra al contenido del campo, lo primero que necesitas es que el campo sea de tipo Texto, y no de tipo Número. Una vez lo tengas, puedes usar una consulta de actualización como ésta: Update TuTabla SET TuCampo=TuCampo & 'A' Donde...

Isaac Reyes respondió: Supongamos que en A2 tienes un valor y en B2 es dónde quieres poner 0 si no A2 no es un número, entonces en A3 iría lo siguiente =SI(ESNUMERO(A2);A2;0) S@lu2

Isaac Reyes respondió: H0la Beto: Puede ser así If Range("A5").Value = "A" Then TipoComp = 1 ElseIf Range("A5").Value = "B" Then TipoComp = 1 End If O asumir que si no es A entonces es B y hacerlo de esta otra forma TipoComp = IIf(Range("A5").Value = "A", 1, 6) S@lu2

Isaac Reyes respondió: H0la Beto: Supongamos que tu rango de origen es A1:J10 en la hoja1 y quieres pasarlo al rango que comienza en A1 en la hoja2. Ve si lo siguiente te sirve Sub subCopiar() dim i as Integer, j as Integer dim cont as String For i=1 to 10 For j=1 to 10...

Abraham Valencia respondió: Si tu intención, al parecer, es filtrar los meses "enero" tanto del 2017, como el 2018, solo agrega datos a tu "Array": Operator:= _ xlFilterValues, Criteria2:=Array(1, "1/1/2018", 1, "1/21/2017") Si tu intención es filtrar todos los meses "enero"...