Luis Barrales

Estás pidiendo algo tan amplio como indefinido... Especifica tus solicitudes y anda por partes.

De paso me sirvió para darme cuenta que existía la fórmula de DIAS360 para sacar la cuenta de los días trabajados en relación a meses de 30 días! :)

A veces uno pregunta sin intentarlo... Muchas gracias de todas maneras... Feliz año para toda la comunidad... aquí comparto la solucion para los que pudieran necesitarla... Saludos! Private Sub CommandButton1_Click() rut =...

Echa una mirada a este código y modifica a tu gusto o necesidades... Saludo y recuerda VALORAR la respuesta... (Y) Sub Macro1() ' ' Macro1 Macro ' ' Application.ScreenUpdating = False Range("D1:F35").Select Range("F35").Activate Selection.Copy...

No se a que te refieres exactamente con que el Form se cierre "automáticamente"... Quizás te sirva crear un botón de cierre y junto con cerrar el Form actual te abra el otro. El código sería el siguiente: Private Sub CommandButton1_Click() Unload Me...

Primero vamos con la teoría... aplicaremos una formula a una celda A1=HOY() y celda B1=A1 entonces el codigo nos quedaria mas o menos así: if Sheets("hoja1").Range("a1") = Sheets("hoja1").Range("b1") then "ejecuta la operación del calculo del...

Inserta una imagen, forma o figura en las celdas combinadas antes mencionadas, luego crea un modulo con el siguiente código... Sub mostraruserform1() ' ' mostraruserform1 Macro ' ' Load userform1 userform1.Show End Sub Guarda el modulo y luego click...

Echale una mirada a este código, yo no soy programador pero he ido aprendiendo y sacando ideas y partes de diferentes archivos, este código está adaptado para guardar la hoja en formato PDF y con diferentes indicadores en el nombre y ubicación, ej....

Vamos con la respuesta... (Y) Primero... creamos un Form vacío, de nombre pdfform y lo suficientemente grande como para mostrar nuestro pdf. Segundo, agregamos un modulo... con el siguiente código Sub LoadPDF(FicPdf As String, NoPage As Integer)...

Private Sub CommandButton3_Click() 'Por.Dante Amor Set b = Sheets("Proveedores").Range("a:k").Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then Sheets("Proveedores").Cells(b.Row, "a") = TextBox1 Sheets("Proveedores").Cells(b.Row, "c") =...