Eduard Caballero

Este es un ejemplo Sub oculta() If Range("G10") = 1 Then Range("F:H").Select Selection.EntireColumn.Hidden = True End If End Sub

Puedes usar esto, como no sabmos si esta o no seleccionado, lo activamos y luego guardamos. Sub guarda() Windows("libro2.xlsx").Activate ActiveWorkbook. Save End Sub

Acá esta Sub busca() For Each sh In Sheets sh.Select Range("d6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveCell.Offset(-1, 0).Select Selection.Copy Range("d30").Select ActiveSheet.Paste Application.CutCopyMode...

Si entendí prueba esto Sub oculta() Application.ScreenUpdating = False Range("A2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell = 0 And ActiveCell.Offset(0, 1) = 0 And ActiveCell.Offset(0, 2) = 0 And ActiveCell.Offset(0, 3) = 0 Then...

De verdad no entiendo. Me tienes algo perdido. ¿Me dices que quieres una fórmula para que te diga a partir de una fecha de inicio si tiene un año cierto? "... Si yo ingreso la fecha 10/07/2011 , entonces el 10/07/2012 deberá aparecer en la celda B2...

Haz una copia de los datos que tienes duplicados, para probar esta macro. Deberías ingresar este código en un módulo de Visual Basic (Presiona Alt + F11 para activar el Editor de VBA y, allí, elige "Insertar", "Módulo") Sub FixDuplicateRows() Dim...

Primero debes chequear que no sea problemas de recursos de la pc (por ejemplo memoria RAM). ¿El archivo es muy grande? ¿Lo ejecutas con otras aplicaciones abiertas? A primera vista parece problemas de la pc. Hay sitios que tratan de problemas de...

Prueba Esto Sub chequea() Application.ScreenUpdating = False Hoja2.Select i = 4 For i = 4 To 67 If Cells(i, 5).Value > 0 Then valor1 = Cells(i, 1) valor2 = Cells(i, 5) Hoja3.Select If Range("A6") <> "" Then Range("A100").End(xlUp).Select...

Prueba esto Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("D2:D10000")) Is Nothing Then ActiveCell.Offset(-1, -1).Value = Date End If End Sub Debes colocarlo en la hoja donde quieres que haga eso

Prueba esto Sub Concentrar_Hojas() Application.ScreenUpdating = False Dim Sig As Long, Eliminar As Boolean If MsgBox("Deseas eliminar las hojas ""concentradas"" al final del proceso?", _ vbQuestion + vbYesNo + vbDefaultButton2, "Favor de...