aetxezar

Te paso el codigo de un libro. Tiene que tener un hoja llamada impreso. Ahi te metera las filas con la columna c >0 en la hoja hoja1 y luego te la imprime. Sub imprimir() Sheets("impreso").Cells(1, 1).Value = Sheets("Hoja1").Cells(1, 1).Value...

Vas a excel herramientas macro editor de visual basic y en la parte de la izquierda navegas hasta hoja1 y en la derecha pegas este código. En la hoja 1 tienes que tener un textbox llamado textbox1 y un cuadro de imagen llamado iamge1. Cuando escribas...

Es un poco chapuza pero metiendo este código en el editor de visual basic de excel te añadiría +1 a la celda sobre la que pulses botón derecho del ratón ... Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel...

Esta macr intenta abrir el primer libro, si da error va a la siguiente instrucción para abrir y si no va al fin Sub Macro1() On Error GoTo uno Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "CLIENTES.xls" GoTo dos uno: Workbooks.Open...

Claro, le dices que desde que sea por a y, cuando llega a y se detiene. Y como se llevan solo 1 pues hace la primera vez la por y se detiene. Cambia así, For col = x To y +1 fil = 48 For colum = 15 To 15 + x - y For v = 35 To 44 Cells(fil, colum) =...

Con solo excel no lo vas a poder hacer. Las macros de excel solo afectan a esa aplicación y tu quieres aplicarlas en el sistema operativo fuera del libro. ¿Es para algo en especial? Si no podrías usar algún software de grabación de pantalla.

con exit sub sales del sub actual pero vuelves al punto desde donde se le llamo. Para terminar y dejar de ejecutar codigo debes poner un end Sub Rango_Vacio(Value1, Value2) If Range(Value1) = "" Then MsgBox (Value2) End End If End Sub

Te comento lo que te paso. Está el libro con la hoja 1 donde hay 4 textbox (textbox1 para nombre, textbox2 para apellido1, textbox3 para apellido2 y textbox4 para teléfono). Aparte tenemos el commandbutton1 para agregar valores a la hoja2 que...

Pega este código en la hoja que contiene los datos. Afecta siempre queescribas si en mayúsculas en las celdas de las columnas de f h j Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If Target.Value = "SI" Then If...

Mete este código en el userform1. La hoja de trabajo se llama Hoja1, el userform iuserform1 y el listbox listbox1. Private Sub UserForm_Activate() i = 1 While Sheets("Hoja1").Cells(i, 1).Value <> "" If (Sheets("Hoja1").Cells(i, 1).Value) = 1 Then...