jerryeagle

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...

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

Seria bueno que pusieras el código que usas para tratar de identificar el error

En esta parte: & "WHERE (e033ejer.fechdesde={d '2009-01-01'})" & Chr(13) & "" & Chr(10) & "ORDER BY e033ejer.fechcierre" _ ) pon esto: & "WHERE (e033ejer.fechdesde={d '" & Range("A1") & "'})" & Chr(13) & "" & Chr(10) & "ORDER BY e033ejer.fechcierre"...

Algo que me sirvió mucho cuando empecé a enseñarme a escribir macros, es la "Grabadora de Macros" incluida en Excel, grababa algo que yo quería hacer y después analizaba el Código que se generó para después modificarla a mis necesidades, como lo hice...

En lugar de poner "Destination", pon esto Sheets("Hoja2"). Cells(fila1, 1). PasteSpecial xlPasteValues 'Asi pega solo valores

Pon esta linea al principio de tu procedimiento Application.ScreenUpdating = False y esta al final Application.ScreenUpdating = True

No hay problema, tampoco es personal, simplemente descarto las preguntas que tienen mucho tiempo sin responder o finalizar