Dante Amor

H o l a: En el evento change tienes string y debe ser Range Tienes esto: Private Sub Worksheet_Change(ByVal Target As String) Call Macro5 End Sub Y debe ser así: Private Sub Worksheet_Change(ByVal Target As Range) Call Macro5 End Sub

H o l a: Te anexo la macro Sub Contar() 'Por.Dante Amor Application.StatusBar = False u = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u Application.StatusBar = "Procesando registro: " & i & " de: " & u Cells(i, "B") =...

Te anexo la macro actualizada Sub ExportarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) ruta = l1.Path & "\" ' h1.Columns("M:N").ClearContents u = h1.Range("D" & Rows.Count).End(xlUp).Row...

H o l a: ¿Qué datos estás cargando en cada uno de los combos?

Pon la siguiente fórmula en la celda D2 =SI(A2="MEMORIA",SI(C2=C1,D1+1,1),"") Arrastra la fórmula hasta el final de tus datos.

H o l a: Prueba con lo siguiente, si no es lo que necesitas, podrías explicarme con ejemplos lo que deseas para actualizar la macro. Sub CopiarColumnas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' 'copia las columnas A y B de...

Intenta en lugar de: .Item.SendUsingAccount = "[email protected]" Con: .Item.SentOnBehalfOfName = "[email protected]" Sal u dos

H o l a: Te anexo la macro para ocultar las filas Sub OcultarSeleccion() 'Por.Dante Amor Selection.EntireRow.Hidden = True End Sub La macro para mostrar las filas Sub MostrarSeleccion() 'Por.Dante Amor Selection.EntireRow.Hidden = False End Sub...

H o l a: Te anexo la macro Sub OcultarFilas() 'Por.Dante Amor Set r = Range("B20:B31") r.EntireRow.Hidden = False Set b = r.Find("~*", lookat:=xlPart) If Not b Is Nothing Then ncell = b.Address Do: Rows(b.Row).Hidden = True Set b = r.FindNext(b) Loop...

H o l a: ¿Pero cómo quieres la separación? ¿Quieres qué cada palabra quede en una columna? Si es así, entonces utiliza la siguiente macro, el resultado te lo pondrá a partir de la columna B Sub Macro1() 'Por.Dante Amor Columns("A:A").TextToColumns...