kapapri

No veo mucho problema en hacer ese cambio dentro de un rango seleccionado. Pero existen algunas salvedades que debes tomar en cuenta. Tiempo atrás realice algo parecido y debemos tener en cuenta que existen personas que usan 2 nombres y eso impide la...

Prueba esta macro. Selecciona rango a concatenar. El resultado lo pondrá en la primera fila, columna posterior al rango. Sub contatenarango() ' palabra = InputBox("Ingresa separador") largopalabra = Len(palabra) Set Rango = Selection a =...

Ambas fórmulas están correctas. Pero la segunda es la más idones, ya que la primera repide una condición que ya sabes que se esta cumpliento.

Te mande mail.

Sub Macro1() ' ' Macro1 Macro ' ' fecha = Format(Now, "dd-mm-yyyy") nombre = ThisWorkbook.Path & "\" & "Inventario al " & fecha ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlText, CreateBackup:=False End Sub '

Selecciona elrango que posee los datos y ejecula la macro siguiente Sub Minusculas() Set Rango = Selection For Each Cell In Rango Cell.Value = LCase(Cell.Value) Next End Sub Eso es todo todito.

=SI(A1="P";SI((HOY()-B1)>10;"LLAMAR";"");SI(A1="A";SI((HOY()-B1)>15;"LLAMAR";""); SI(A1="T";SI((HOY()-B1)>30;"LLAMAR";"") ) ) )

No se porque 156 no redondea a 160. Pero es lo que quieres. La fórmula es: =REDONDEAR(A1/10;0)*10-(SI((RESIDUO(A1;10))=5;10;0))

Pues simplemente habría que modificar el código y agregarle otra variable a la fórmula, por ejemplo una variable UM usoMoneda con 1 si es moneda con 0 si no es moneda así si pones (15,1, dolar, 0) te dirían quince si pones (15,1, dolar, 1) te dirían...

Sub Auto_open() For c = 5 To 15 If Range("f" & c).Value - Range("h" & c).Value = 0 Then Range("J" & c).Value = "" Else Range("J" & c).Value = Range("f" & c).Value - Range("h" & c).Value End If Next c End Sub el cuadro de dialogo te aparece por el...