Dante Amor

H o l a: ¿Pero cómo sabes que tiene datos? Envíame tu archivo para revisarlo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Manuel Escalona” y el título de esta pregunta.

H o l a: Te anexo la macro, en las variables ccol y cnum tienes los contadores de color y número: Sub ContarColor() 'Por.Dante Amor u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = 1 To u If Cells(i,...

H o l a: Te anexo la macro para poner la imagen en la celda B7 y las celdas combinadas. Sub InsertarFoto() 'Por.Dante Amor Set celda = Range("B7") On Error Resume Next With ActiveSheet.Pictures.Insert(Application.GetOpenFilename)...

H o l a: Envíame tu archivo con algunas imágenes, dime cuáles imágenes son las que quieres ampliar, me muestras una imagen en particular en tamaño chico y en tamaño ampliado, para saber cómo es el resultado que esperas. Mi correo [email protected] En...

H o l a: Envíame tu archivo y me explicas qué se va a imprimir, qué datos se van a guardar y en dónde se van a guardar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Carlos Carrion” y el título de esta pregunta.

Te regreso la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveSheet.Unprotect ''AQUI CONTRASEÑA 'Act.Por.Dante Amor If Not Application.Intersect(Target, Range("j:j")) Is Nothing Then...

H o l a: Necesito ver cómo están tus fechas en la hoja2, puedes poner una imagen.

H o l a: Antes de poner en ejecución las macros tienes que bloquear y desbloquear las columnas según lo requieras, para eso: Desprotege la hojaSelecciona todas las celdasEn formato de celdas, Proteger desactivar Bloqueada, AceptarSi tienes celdas...

H o l a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then If Target.Count > 1 Then Exit Sub 'ActiveSheet.Unprotect Password:="123"...

H o l a: En tu macro estás poniendo 2 diagonales en esta parte: ChDir ThisWorkbook.Path & "\..\" & "\Misceláneos" Antes de la M de Misceláneos tienes otra diagonal Podría ser así: ChDir ThisWorkbook. Path & "\..\Misceláneos" Otra opción es que pongas...