calvuch

Utiliza este macro: Sub elimina_edad() Dim c As Integer Dim i As Integer c = Application.WorksheetFunction.CountA(Range("A5:iv5")) For i = 1 To c If UCase(Cells(5, i)) = "EDAD" Then Cells(5, i).EntireColumn.Select Selection.Delete Exit For End If...

Dices al hacerlo manualmente, por ende deduzco que estas guardando mediante macro... Veamos tu macro

Prueba esto: Sub Cancelar() Sheets("Hoja2").Select Dim t As String Dim r As Range Dim p As Integer Dim j As Long Dim x As Long t = InputBox("INGRESE EL NÚMERO DE ORDEN: ") If Len(t) = 0 Then Exit Sub If...

Prueba Private Sub CommandButton1_Click() Sheets("HOJA1").Select Range("G7").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop 'bucle If Len(TextBox8) > 0 Then ActiveCell = TextBox8: ActiveCell.Offset(0, -5).Select If...

Para pasar de una página a otra en ese control debes utilizar el método MultiPage1.Value En este caso el control se llama multipage1 Para pasar a la hoja 2 seria MultiPage1. Value=2 para la tres MultiPage1.Value=3 Si te interesa que pase a la...

Respecto a la primera... pues no veo como a menos que abras el libro o bien realices una consulta mediante importación de los datos creando una nueva conexión mediante sql server o query... En cuanto a la segunda Utiliza la funcion Application....

Veamos... cuando haces la copia del libro, obviamente se copiara con el mismo macro del libro original... y tu deseas que ese nuvo libro no tenga el macro... Bueno, no se puede eliminar una parte del código con otro código. Lo que puedes hacer es lo...

Indicame los rangos de datos. ¿Dónde están los códigos a buscar? ¿En qué celda debe ir la hora entrada y salida? ¿Cómo deseas realizar la búsqueda, mediante un formulario? ¿Un cuadro de texto?

Eso es equivalente a : 1 ingresar código 2 filtrar los registros de ese código 3 consultar si se imprime o no 4 imprimir o salir

Acá esta el macro, debe ir en el evento change de la hoja Sobre la pestaña de la hoja botón derecho del mouse y selecciona "Ver código", en el editor que se abrió pegas esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...