pitcher_

[email protected] para ver bien tu tema. Agrégame al msn también. Saludos Compatriota. Pitcher !

Ve a Herramientas / Opciones, pestaña Transición, y NO debe estar seleccionada "Teclas de desplazamiento para transición". Espero que sea de tu ayuda. Cualquier consulta no dudes en preguntar. Suerte Pitcher ! A y no olvides cerrar la pregunta si la...

Bueno veamos si te sirve esto : 'Este codigo te busca el textbox1 (Fecha) en el rango de la columa A Si fueran las fechas 'Si el se Encuentran Selecciona la celda y toma el color que esta usando Dim Color As Long For Each celda In...

Bueno tomando en cuenta tu ejemplo desarrolle lo siguiente : Sub Sumar_Criterio() CantAu = 1 For Fila = 2 To Range("A65536").End(xlUp).Row If Len(Cells(Fila, 1)) = 4 Then Cod = Cells(Fila, 1) If CantAu = 0 Then Cells(AuFila, 2) = Cant End If Cant = 0...

Algo entiendo tu idea mira Agrégame al msn y con gusto te puedo ayudar : [email protected] Enviame si puedes el código y te puedo indicar que modificar o agregar.

Cuando te refieres a Valores de la hoja2 es a sacar las fórmulas o te refieres a bloquear la celda para que no la modifiquen. Si m das alguna pista podría hacer que te ayude. Saludos Pitcher!

Según entiendo seria así : Sub Promedio() Fila = ActiveCell.Row Colum = ActiveCell.Column For X = 1 To Worksheets.Count ' Ciclo Para recorrer hojas If Worksheets(X).Name <> "CONSOLIDADO" Then ' Recorre todas las hojas menos la hoja CONSOLIDADO...

En el libro solo tienes que agregar este código, en "ThisWorbook" para hacer efectivo lo que quieres. Private Sub Workbook_Open() Worksheets("hoja1"). Activate ' Con esto activaras la Hoja1 Range("A15").Select 'Con esto Seleccionas la celda que...

Sobre tu consulta. No es posible Ejecutar un Código Cuando el usuario mantiene el control de la aplicación en tanto este editando celdas. Solo cuando deje la edición, se puede ejecutar un código por el cambio de este con un "Private Sub...

Espero que te sirva esto : Sub SubTotales() Range("A2").Select PrimerPos = ActiveCell.Row PrimerValor = Cells(2, 1) For Each Celdas In Sheets(1).Range("A2", Range("A2").End(xlDown)) 'Selecion de Ciclo para ver diferentes CeldaDire = Celdas.Address '...