jerryeagle

Checa este ejemplo y lo adaptas: Set Busca = Cells.Find("Dato") If Busca is Nothing then Msgbox("No existente") 'Si lo encuentra continúa la rutina

Si es posible, con Macros, en el evento Worksheets_Change puedes poner este código If Target.Address = Range("A5") then Range("A5") = UCase(Range"A5")

Dim lngUltimaCelda, NoEsta As Long If WorksheetFunction.CountA(Cells) > 0 Then Set Encontrado = Cells.Find(What:=txtDoc, After:=[A1], _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious) if not Encontrado is nothing then lngUltimaCelda...

Si a mi también me ha pasado, como lo soluciono es sumando y restando 1 a la celda Por ejm For each c in selection.cells c.value = c.Value + 1 - 1 next lo que no me queda claro es como pones ese "rango" en A1, lo pones manualmente? o es automatico al...

Para hacer lo que pides tienes que crear una Función desde el editor de Visual Basic (Presiona ALT + F11) en menu Insertar --> Modulo, ahora pega ahí lo siguiente: Function Pesos(Number As Single) As String Const MinNum = 1# Const MaxNum =...

Un consejo, cuando haya duda de como hacer alguna rutina, siempre puedes recurrir a la grabadora de Macros, y luego revisas el código que escribió, yo así aprendí mucho. Intenta así: Sub BuscaCopiaPega() Dim Buscar As String, Fila As Integer...

Sub Buscar() Dim rng As Range, msg As String Dim fecha As String With Columns("A:A") Set rng = .Find( _ What:=InputBox("Introduce el Número de Tráfico: "), _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _...

Intenta así Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).Show Range("b1"). Copy Range("b1"). PasteSpecial xlPasteValues End Sub Esto en el evento Workbook_BeforeSave de Workbook

Puedes seleccionar todas las celdas y en Formato de Celda, en la pestaña Proteger, desmarca donde dice "Bloquear", ahora elige las celdas, o columnas que quieres proteger y repite el primer paso pero ahora marca "Bloquear", ahora protege la hoja y...

Si es posible hacerlo con un For Next, checa este ejm: Dim Inicio, Final as Integer Inicio = Inputbox("Escrba el No. de la hoja Inicial que quiera Imprimir") Final = Inputbox("Escrba el No. de la hoja Final que quiera Imprimir") For i=Inicio to Final...