bacter582

Como estas amigo, disculpa la tardanza, no había tenido tiempo de sentarme con tu pregunta Desarrolle esta macro que realiza lo que pides, en la hoja1, lo mismo puedes hacer con la hoja2 cambiando hoja1 por hoja2 Espero te ayude Sub busqueda_exacta()...

Cuando cambias el formato de vista a dos decimales, solo lo cambia la vista, pero el numero sigue siendo el mismo, si quieres que el numero tenga solo dos decimales debes usar la fórmula Total de la factura =redondear(a1*1.18;2) total -IRPF...

Como estas amigo, prueba esta macro y me comentas Funciona seleccionando la celda que contiene el numero de celdas que deseas agregar. Sub Ingresar_n_filas() ' ' Macro2 Macro ' Macro grabada el 29/09/2011 por Dim rango As Range Dim rango2 As Range...

Con esta serie de instrucciones construyes los bordes. ActiveCell.Offset(0, 1).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin...

Con esta instrucción al iniciar tu userform desactivas la hoja solo para los macros ActiveSheet.Protect UserInterfaceOnly:=True, Password:="*.123456"

Te pongo un ejemplo que no se si es lo que estas buscando Con esta macro sumas todos los valores de la columna B, de cada hoja si en la columna A esta el nombre de Pablo Sub sumar_de_todas_las_hojas() Dim suma As Double Dim wsheet As Worksheet suma =...

Como estas amigo, con esto puedes solucionar tu problema Private Sub CommandButton5_Click() dim clave as string clave = InputBox("Introduzca clave") If clave = "tuclave" Then UserForm1.Show Else msgbox "clave invalida" End If End Sub

Aquí te dejo una rutina que cree que te puede ayudar Sub copiar_mayor_10k() Dim rango As Range Range("d1").Select While (ActiveCell.Value <> "") ActiveCell.Offset(1, 0).Select If ActiveCell.Value > 10000 Then Set rango = ActiveCell...

Con este código, cada vez que se active el form comprobara tu condición. Private Sub UserForm_Activate() If ActiveSheet.AutoFilterMode = False Then CommandButton4.Enabled = False End If End Sub

Amigo escribiendo las siguientes fórmulas en las celdasde la hoja3 a2 =Hoja1!A2 b2 =Hoja1!B2 c2 =Hoja2!A2 d2 =Hoja2!b2 Y luego copiándolas hacia abajo hasta que completes tu lista