José Saúl Méndez Alonso

No tengo instalado ese software pero en excel yo haría lo siguiente: En la celda donde deses calcular el promedio escribe =SI(ESERROR( PROMEDIO(D2:D6)),"", PROMEDIO(D2:D6)) De este manera si se encuentra un error la celda se muestra vacía en caso...

Si es posible, sólo que tendrías que desarrollar una función que busque por palabra y reemplace por el número correspondiente Ejemplo: En la celda F8 escribe =TXT2NUM(F7) y te devolverá un número dependiendo de lo que este escrito en la celda F7...

Para crear un inventario en Excel considera lo siguiente 1.-Debes identificar los productos con algún código. 2.-Debes considerar si el inventario lo haces por costos por unidades o por ambos Sí son ambos debes crear una hoja nueva donde tengas en un...

Si sabes de MACROS de puedo indicar como usar un código para resolver tu duda.

Sólo necesito saber cual celda de la hoja 2 cambia y afecta a la celda a1 de la hoja 1 y lo mismo para la ceda a4 de la hoja 1 de todos modos te dejo otro código con los ajustes necesarios. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal...

Te dejo este código a ver si te sirve Sub Macro1() Dim sRango As Range Dim sCeldaIni As String Dim nFilaIni As Long Dim nFilaFin As Long Dim nColIni As Long Dim nColFin As Long Dim nFila As Long Dim nCol As Long Set sRango =...

Te dejo este código a ver si te sirve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox Target.Address(, , xlR1C1) End Sub

Te dejo este código Sub Macro1() Dim sCelda As String Dim nFila As Long Dim nCuantasFilas As Long Range("D1").Select Selection.End(xlDown).Select nCuantasFilas = Selection.Row For nFila = 1 To nCuantasFilas sCelda = "D" & nFila...

Ya tenias la solución Private Sub CommandButton1_Click() Dim ultimafila As Long Dim ultimacolumna As Long Sheets("hoja2").Select ultimafila = Range("A65536").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 1).Select ActiveCell.Value =...

Te dejo el siguiente código a ver si te sirve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) = "HOJA1" Then If Target.Address = "$A$1" Then If Range(Target).Value = 0 Then Range("A1:C3").EntireRow.Hidden...