Dante Amor

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("B1:C50")) Is Nothing Then If Target.Count > 100 Then Exit Sub For Each c In Target i = c.Row If...

Te anexo la macro. Sub Copiar_Imagen() ' 'Por.Dante Amor ' 'copiar imagen ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona imagen" .Filters.Clear .Filters.Add "Todos los archivos", "*.*" .Filters.Add "jpg", "*.jp*"...

Para desactivar el "On Error Resume Next", se utiliza "On Error Goto 0" de esta forma: Instrucion 1 Instrucion 2 'Quiero que este error sea omitido On Error Resume Next Instrucion 3 'con error Instrucion 4 Instrucion 5 On Error Goto 0 'Quiero que...

Te anexo la macro para el punto 1, para optimizar el código, recorre las hojas desde la 01 hasta la 50, pero, por ejemplo, si solamente tienes 5 hojas 01,02,03,04 y 05, entonces solamente copia de la 01 a la 05. Sub Copiar_Rango_De_Hojas()...

Si entendí bien, quieres crear las hojas del 01 al 50 (este dato se toma de la columna A, hoja "nodos"), tomando como formato la hoja "01" Utiliza la siguiente macro Sub Crear_Hojas() 'Por.Dante Amor Set h1 = Sheets("nodos") Set h2 = Sheets("01") i =...

Te anexo la macro actualizada Sub Guardar_Datos() '--- ' Por.Dante Amor '--- ' Set h1 = Sheets("Datos") 'origen Set h2 = Sheets("Planilla Final") 'destino Set h3 = Sheets("Codigos") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row 'buscar...

Realiza los siguientes pasos: 1. Crea una Clase1: Instrucciones para crear una clase Abre tu hoja de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige Insertar / Módulo de claseEn el panel del lado derecho copia la...

Tienes que proteger la hoja. Sigue los pasos Selecciona todas las celdas.Entra a Menú Inicio, Formato, Formato de celdas, ProtegerDesmarca la casilla "Bloqueada", presiona AceptarAhora selecciona las celdas j4, k4 y l4Entra a Menú Inicio, Formato,...

Quedaría así: Private Sub CommandButton1_Click() ActiveSheet.Range("A:J").AutoFilter Field:=1, _ Criteria1:=">=" & Format(CDate(TextBox8), "mm/dd/yyyy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(CDate(TextBox9), "mm/dd/yyyy") End Sub Recuerda que...

H o l a: No tengo Access, por lo tanto no podría ayudarte con algo de Access, pero, aprovechando la buena voluntad de Jacinto Trillo Jareño podrías comentarle. Sal u dos