jerryeagle

Checa este método que es más rapido y sencillo Private Sub Workbook_Open() Dim Fin As Integer Fin = Range("A" & Rows.Count).End(xlUp).Row With Sheets("Hoja1").OLEObjects("ComboBox1").Object .Clear .List = Range("A3:A" & Fin).Value End With...

Checa este ejm, cada objeto tiene el nombre por default, ya solo adáptalo: Dim U, R, Mes As Long Dim Tot As Double Private Sub CommandButton1_Click() U = Range("a" & Rows.Count).End(xlUp).Row Mes = Month(Cells(3, 3)) For R = 2 To U Mes =...

Me parece familiar esa macro, que yo te la di :P no entiendo por que dices que se detiene en la fila 4300, debería funcionar ya que la Variable U guarda la ultima fila con registros, y no debería detenerse hasta que llegara a esa fila. ¿Quieres...

Dim Pass As String Pass = InputBox("Escriba la Contraseña para proteger la Hoja") ActiveSheet.Protect Password:=Pass, DrawingObjects:=True, Contents:=True, Scenarios:=True o en lugar del inputbox, pon una contraseña entre comillas ""

En un modulo: Sub Proteger() Dim Psw As String Do While Psw = "" Psw = Trim(InputBox("Escribe la contraseña para Proteger las hojas")) Loop For Each ws In Worksheets ws.Protect Psw Next End Sub Sub DesProteger() Dim Psw As String Do While Psw = ""...

No dices muchos datos pero, suponiendo que estas capturando un catalogo de productos or ejm, y quieres que no se repita el código que se captura en la columna A, se puede hacer esto: En el evento WorkSheet_Change de la hoja donde este dicho catalogo:...

Después del código mostrar el formulario pon esta linea: Application.Visible = False Y ponla en true cuando termines tus rutinas o cuando ya quieras que se vea excel

For i=1 to 10 Checkbox & i = False Next i Con espacios

Pues debería funcionar con el No. de filas que fuera por la linea: U=Range("A" & Rows.Count).End(xlUp).Row Esta guarda el Numero de la ultima fila con datos Pero puedes mandarme tu archivo para analizarlo [email protected]

Puedes usar la función Mid Sub Cortar() Dim R, U as Long U = Range("A" & Rows.Count).Row For R = 2 to U Cells(R, 1).Value = Mid(Cells(R, 1).Value, 1, 7) Next End sub Los parámetros de Mid son estos: Valor o Cadena, Posición donde comienza, Longitud...