Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Fiscalidad empresarial
Extinción de condominio. Impuestos en Castilla y León
Hola expertos. A consecuencia de una separación de pareja de hecho estamos tratando de que uno de los dos se quede con la vivienda al 100% y la hipoteca al 100%, si el banco lo autoriza. Pues bien. En nuestro caso la vivienda, según la Junta de...
Sin respuestas
Ha preguntado en el tema en
Microsoft Word
Código de campo con referencia a marcador con una lista desplegable
Hola Expertos. Estoy creando un formulario en word 2007 (modo compatible con word 97-2003). En él creo un campo de formulario con un texto en una celda de una tabla mediante un cuadro combinado de texto con tres opciones en la lista, CIF, NIF, DNI....
Sin respuestas
Ha valorado "Buena" la respuesta
Pegar datos en última columna vacía
Prueba este código: Sub busca() Dim rango As Range, buscado As Variant, cel As Variant Set rango = Range("A1:D10") buscado = InputBox("Que?") If IsNumeric(buscado) Then buscado = 1 * buscado For Each celda In rango If celda = buscado Then cel =...
Ha empezado a seguir a 
toldeman
toldeman
Ha valorado "Excelente" la respuesta
Activar la hoja con la macro sin indicar el nombre
Esta macro hace lo que pides coge la dirección de la celda que estas y te devuelve a ella Sub pasa_datos() Application.ScreenUpdating = False 'coje direccion celda dire = ActiveCell.Address Range("A2:G2").Select Selection.Copy 'copia en ultima fila...
Ha valorado "Excelente" la respuesta
Macro para elimina una fila
No hace muchos días hice una macro que hace lo que pides Sub eliminar_filas() Dim rango As Range For Each rango In ActiveSheet.Range("e1:e100") If rango = "" Then rango.EntireRow.Delete End If Next End Sub Si quieres que se ejecute al cambiar alguna...
Ha valorado "Excelente" la respuesta
Validación de datos vinculada a otra celda
Tienes una fácil solución copiando este código en la hoja Private Sub Worksheet_Change(ByVal Target As Range) datos = "D24" If Not Application.Intersect(Target, Range(datos)) Is Nothing Then Range("J24").Select Range("D24").Select End If End Sub Con...
Ha empezado a seguir el tema Microsoft Excel