jairo retorno

Para dante Tengo la columna EG186:250 la cual se mantiene en $0 la cual tiene esta formula (=+ED186+EE186-EF186) ED186 tiene esta formula...

Tengo el sig código Sub mama()Sheets("REP X TURNO").SelectSheets("REP X TURNO").ScrollArea = "A1:BH49"ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")Set h1 = Hoja1h1.ScrollArea = "B1:GN970"Set h2 = Hoja2h2.ScrollArea = "B1:GN970"Set h3 =...

Hola tengo varias hojas las cuales se pueden cambiar los nombres Pero quisiera que siempre cada hoja este inmovilizada de B1:NG951 Usando algo así: Set h1 = Hoja1.ScrollArea = "B1:GN951" Se que esta mal porque me pide objeto espero su ayuda

Tengo en la celda A1 formato fecha y la fecha 01/02/2015 en la misma columna hasta A2:A50 tengo un listado de productos, En la columna B "entradas" en B2 voy anotando en numero las cantidades que van entrando de cada producto. En la columna E tengo...

Tengo este código creado por una experta Sub IMPRESION4()'agregados de Elsamatilde'' Macro4 Macro'' Acceso directo: CTRL+hApplication.ScreenUpdating = FalseDim respuesta As VariantSet h1 = Sheets("Hoja1")Cadena = Array("O1", "CC1", "E1")For Each cd...

Hola Tengo este código el cual me cambia la etiqueta de la hoja según lo que escriba en la celda A1... Private Sub Worksheet_Change(ByVal Target As Range)If Intersect([A1], Target) Is Nothing Then Exit SubActiveSheet.Name = [A1]End Sub pero en caso...

Tengo esta fórmula en hoja 1 en celdas distintas y rangos distintos =CONTAR.SI(O7:O805,"<0") -------(este esta ubicado en la celda O1) =CONTAR.SI(CC7:CC805,"<0") ---------(este esta ubicado en la celda CC1) Osea son mas asi pero siempre en la hoja1 y...

Tengo este código que va copiando y pegando datos en donde exista la hoja.. Sub MACOR2() Dim respuesta As Variant respuesta = MsgBox("¿Seguro de su factura?", vbYesNo + vbQuestion, "AVISO") If respuesta = vbYes ThenSheets("Hoja1").Select On Error...

Como mencione antes tengo este código que copia y pega información de hoja1 a hoja2 Sub MACOR()On Error Resume NextApplication.ScreenUpdating = FalseRange("a1:d1000" &...

Tengo el siguiente código el cual me copia y pega información de la hoja1 ala hoja 2 El cual es el siguiente: Sub MACOR()On Error Resume NextApplication.ScreenUpdating = FalseRange("a1:d1000" &...