jerryeagle

Pon este código en el botón Set Valor = InputBox("El texto que quieras ponerle") If Valor is Nothing then Exit Sub If Range("R40") = "" then Range("R40") = Valor Else Range("R" & Rows.Count).End(xlUp).Offset(1, 0) = Valor End If

Ese código funciona para las Celdas que tengas Seleccionadas, solo que primero tienes que seleccionar las celdas que quieras limitar

Checa la función de VB Mid, este es el funcionamiento: Mid(Valor, Comienza, Longitud) Valor = Tipo String Comienza = Tipo Integer Longitud = Tipo Longitud Si necesitas ayuda más especifica me avisas, o podrías enviarme tu archivo...

En un Modulo pon esto: Sub Oculta() For each ws in WrokSheets if ws.Name = "procesos" then Exit For ws.Visible = xlVeryHidden Next End Sub Y en el evento Click del botón escribes Call Oculta, para lo de dar click, no veo ningún evento BeforeClick o...

No especificas si "ya" tienes el código para conectarte a la base de datos, si es así, solo pon esta Sentencia SQL: DELETE FROM Parte Es todo

Pues si lo único que quieres es guardar la ruta, puedes hacerlo así: 'Muestra el dialogo elegir carpeta Dim Ruta As String With Application.FileDialog(msoFileDialogFolderPicker) .Show Ruta = .InitialFileName End With Y asi tienes la Ruta guardada en...

Esta página es para ayudar, se supone que el usuario expone su duda teniendo cierto conocimiento de lo que quiere hacer y los expertos proporcionan la ayuda hasta cierto punto, es decir, no creo que ningún experto te "haga toda la tarea"... y menos...

Esta es la forma más fácil y rápida que conozco: Sub ProtegeHojas() Applicaction.ScreenUpdating = False For each ws in Worksheets ws.Protect "Contraseña Opcional" next Applicaction.ScreenUpdating = True End Sub Esto es para proteger las hojas contra...

Usa pegar valores y después pegar formato: Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormat Así se pega con el formato con el que se copió originalmente

Debes hacer un bucle que recorra cada celda del rango que quieres, checa For Each c In Range("B2:C2") If Not IsNumeric(c) Then MsgBox "No es numerico" c.Select End If Next O como en tu caso son solo dos celdas, puedes modificar un poco tu macro asi:...