bacter582

bacter582

 33,8K puntos  Venezuela @bacter582 desde - visto

Respuestas

Respuesta en a

Extraer comentarios excel

Con esta macro pasas los comentarios de las primeras 50 filas de la columna1 a las primeras 50 filas de la columna2. Espero te sirva. Saludos Bacter Sub comem() On Error Resume Next For i = 1 To 50 Cells(i, 2).Value = Sheets("hoja1").Cells(i,...
Respuesta en a

Comparar celdas en excel

Amigo no entiendo bien que necesitas, si lo que quieres es saber aplicar una fórmula si la celda no esta vacía, seria de esta manera Por ejemplo que le sume 1 si no esta vacía =SI(C5<>"";C5+1;"")
Respuesta en a

Excel. Copiar y pegar fórmulas

Una forma de hacerlo es usando la función indirecto A3=INDIRECTO(CONCATENAR("B";D3)) Y en la columna DE, estarían los valores de las filas que quieres llamar, en este caso, 8,16, 24...
Respuesta en a

¿Cómo añadir 4 horas a horario de 24 horas?

Amigo estuve probando tu fórmula y con cambiar G4>=2100 por G4>=2000, obtengo el 0 en vez del 2400, no se si eso te funcione. Si no te puedo ayudar a hacer un macro para esto.
Respuesta en a

Problema para contar filas

Como estas amigo Lo probé y no me tardo mucho, ¿qué computadora tienes tu? Prueba igual el que se llama busqueda2, lo hace más rapido por que no selecciona las celdas. Sub busqueda() Do While ActiveCell.Value <> "Doctor Fernandez"...
Respuesta en a

Ayuda con la implementación en excel de macro para insertar datos aleatorios en celdas de una fila

Solo te faltaba la referencia relativa desde la activecell Te dejo la macro modificada. Saludos No olvides finalizar la pregunta. Sub aleatorios() ' ' Macro1 Macro ' ' Acceso directo: CTRL+q ' ActiveCell.FormulaR1C1 = "=aleatorio.entre(1,6)"...
Respuesta en a

Macros para Guardar copia de un libro en excel

Pruébalo de esta manera a ver Saludos No olvides finalizar la pregunta. Bacter Sub grabar() nombre_libro = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name ActiveWorkbook.Save nombrefichero = Range("AZ3").Value directorio =...

Ocultar filas al ingresar una letra

Como estas, he estado probando tu código y no me da error, esconde las filas sin problemas, En que condiciones te da el error y en que linea exactamente.
Respuesta en a

Hipervinculos en macro

Pruebalo de esta manera No olvides finalizar lapregunta. Saludos Bacter Sub abrir_hipervinculos() If ActiveCell.Address = Range("E3").Address Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "C:\Users\Usuario\Documents\formato 2.docx"...
Respuesta en a

Copia-pega rangos alternados

Amigo lo único que te da error es Selection.PasteSpecial Paste:=xlPasteValues ¿Quieres pegar los datos como valores?