Dante Amor

H o l a: Como te comenté, el mensaje de error al intentar modificar una celda bloqueada, no se puede cambiar. Lo que sí podemos hacer es, cuando se seleccione una celda bloqueada, entonces enviar el mensaje. Agrega la siguiente macro a los eventos de...

H o l a: Pon la siguiente macro en los eventos de Thisworkbook: Private Sub Workbook_NewSheet(ByVal Sh As Object) 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False nueva = Sh.Name res = MsgBox("Estas seguro que...

H o l a: Esta sería la estructura de la fórmula BuscarV (VlookUp) Sub FuncionBuscarv() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") dato = h1.Range("A1") res = Application.VLookup(dato, h2.Range("A10:D500"), 2, False) If...

Puedes poner tu macro completa, no veo qué tienes en cada variable: ruta & libro & "\" & libro & "_" & tipo & "_" & dia & "_" & tim

H o l a: Te anexo la macro, prueba y me comentas. ':) ':)

H o l a: Revisa el siguiente vídeo. https://www.youtube.com/watch?v=whowlh7SKKs&feature=youtu.be En el minuto 7:20 del vídeo, lo que hace es copiar una imagen para que en esa imagen se vea el contenido de las celdas. En lugar de copiar una imagen,...

H o l a: Te anexo la macro actualizada Dim valor ' Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then 'valor = Target Range("B" & Target.Row) =...

Puedes poner una imagen para ver en dónde tienes las fechas y en dónde tienes los textos. También puedes explicarme cuál fecha se buscaría y cuál texto se buscaría, explica con un ejemplo que se pueda ver en al imagen, es decir, en dónde vas a poner...

H o l a: Te anexo la macro: Sub Guardahoja() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta = "C:\Documents and Settings\Administrador\Escritorio\PEDIDOS LAMA\"...

H o l a: Te anexo la macro Sub Correlativo() 'Por.Dante Amor ant = Cells(2, "A") n = 1 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") <> ant Then n = 1 Cells(i, "B") = n Cells(i, "C") = "M" & n n = n + 1 ant = Cells(i, "A") Next...