Enrique Bernal

Solo vas a escribir en la celda C7 de las Hojas de tu libro, o en un rango especifico. Si solo es en C7, debes copiar este código en el vb de cada hoja. Excepto en la hoja1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...

De lo que puedo leer tienes dos manera de hacer lo que necesitas: 1) Copiando y pegando: Esto funciona si todos los datos están contiguos, y la información debe ser pegada en el mismo orden en otra hoja. 2) Utilizando Variables: Este es un proceso un...

Estos codigos, escogen el rago de datos y crean la tabla dinámica: si no colocas el número de fila, puedes crear la tabla dinámica por toda la hoja, y las filas que adiciones ya estaran incluidas en tu tabla dinámica Columns("A:B").Select Sheets.Add...

Es imposible que excel sume mal valores, lo que puede estar sucediendo es lo siguiente: En ocasiones según la configuración regional que tengas puede ser que estés ecribiendo mal los número y por tanto excel no los reconozca como número sino que los...

Esto lo puedes hacer con formato condicional. Vas a la barra de herramientas, en la pestaña inicio, escoges el botón formato condicional, luego eliges Nueva regla y la opción "Utilice fórmula que determine las celdas para aplicar el formato" Te dará...

Sub dato() Range("A1").Value = Range("B" & ActiveCell.Row).Value End Sub

Si lo necesitas en la misma celda sigue los siguientes pasos: 1) Presiona ctrl+1 2) Escoge la pestaña número 3) Vas a personalizada y en el campo tipo escribe h:mm Y listo

Pues depende de la información que tengas. 1) Si lo que quieres es no tener abierto el archivo para correr la macro se puede hacer una macro para que abra el archivo, copie la información, la pegue, luego guarde el archivo donde pegaste la...

Esta rutina debería funcionar: Sub Botón490_Haga_clic_en() libro = ActiveWorkbook.Name Sheets("Hoja1").Select Cells.Select Application.CutCopyMode = False Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False nombre1 =...

En esta parte de la rutina te falta el value micelda = Sheets("formulario").Range("o7"). value