Valor de altura de filas en excel

Quisiera saber si existe alguna función o alguna macro que me permita obtener el valor de la altura de determinada fila en una celda de la misma de tal manera que pueda sumar dichos valores.
Gracias
{"Lat":-12.0326470208318,"Lng":-77.0697999000549}

1 respuesta

Respuesta
1
Existe una función llamada RowHeight que retorna el tamaño de una fila especifica
Worksheets("Hoja1"). Rows(1). RowHeight
Gracias experto Desenex41 por la respuesta pero olvide mencionar que no se mucho de macros, trate de utilizar la fórmula enviada de la siguiente manera: En el editor de Visual basic / VBAProject(Libro1) / Microsoft excel objetos / Hoja1
En la ventana de la derecha ubique en la pestaña la opción Woorksheet y coloque la opción enviada de la siguiente manera:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Worksheets("Hoja1").Rows(1).RowHeight
End Sub
Una vez cerrada en la hoja de excel llame a la formula =RowHeight(B19) y me devolvio : #¿NOMBRE?. No se si el procedimiento es el correcto. Te agradecería me pudieras orientar.
Primero debes aclarar que quieres hacer con la instrucción RowHeight esta propiedad según la ayuda retorna la altura de todas las filas en un rango especifico.
¿Qué necesitas hacer con RowHeigt? ; Para que tengas una idea más clara selecciona una fila cualquiera en una hoja de excel dale clic al botón derecho del ratón y en el menu contextual selecciona "Row Height..." cambia el valor que esta a allí que es 12,5 a 20 y ve el resultado
Disculpa, creo que no me deje entender, permite exponerlo de otra manera: lo que necesito es que ubicándome en una determinada celda pueda aplicar alguna función que me devuelva la altura de dicha fila (que por defecto es 12.75 ó 17 pixeles), la altura de las filas se modifican fácilmente de manera manual, y si hago alguna modficacion en la altura de la fila, la fórmula devuelva el valor modificado.
Espero que me haya dejado entender esta vez, mil gracias por la atención y ojala puedas ayudarme.
Coloca en el evento "Worksheet_Change" de la "Hoja1" este código para mostrar la altura de la fila cuando escribas algo en la celda "A1" y presiones "Enter" o "Tabulador" adicinalmente colocare la altura en la celda "B1"
If Not Application.Intersect(Target, Range("A4")) Is Nothing Then
    If ActiveWorkbook.ActiveSheet.Name = "Sheet1" Or ActiveWorkbook.ActiveSheet.Name = "Hoja1" Then
        If Target.Value <> "" Then
            If ActiveWorkbook.ActiveSheet.Name = "Sheet1" Then
                MsgBox "Altura: " & Target.Rows.RowHeight
                Worksheets("Sheet1").Cells(Target.Row, Target.Column + 1) = Target.Rows.RowHeight
            End If
            If ActiveWorkbook.ActiveSheet.Name = "Hoja1" Then
                MsgBox "Altura: " & Target.Rows.RowHeight
                Worksheets("Hoja1").Cells(Target.Row, Target.Column + 1) = Target.Rows.RowHeight
            End If
        End If
    End If
End If

quedaria de esta forma:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4")) Is Nothing Then
    If ActiveWorkbook.ActiveSheet.Name = "Sheet1" Or ActiveWorkbook.ActiveSheet.Name = "Hoja1" Then
        If Target.Value <> "" Then
            If ActiveWorkbook.ActiveSheet.Name = "Sheet1" Then
                MsgBox "Altura: " & Target.Rows.RowHeight
                Worksheets("Sheet1").Cells(Target.Row, Target.Column + 1) = Target.Rows.RowHeight
            End If
            If ActiveWorkbook.ActiveSheet.Name = "Hoja1" Then
                MsgBox "Altura: " & Target.Rows.RowHeight
                Worksheets("Hoja1").Cells(Target.Row, Target.Column + 1) = Target.Rows.RowHeight
            End If
        End If
    End If
End If
End Sub

Espero que sea útil...
Disculpa no lo coloque en la celda "A1" si no en la "A4" para que coloque la altura en la celda "B4".
Si quieres cambia en el código donde aparece "A4" a "A1" y se aparecerá la altura en la celda "B1"
Lo probé en la celda "A4" y te había dicho que era en la "A1", fue mi error disculpa la equivocación
Muchas gracias experto!
Esta respuesta si me ayudo, solo dos consulta más si no es molestia:
- ¿Si necesito hacerlo para las primeras 50 filas como tendría que hacer la macro? ¿Una para cada fila?
- ¿La macro solo queda instalada en el libro1?, ¿Si yo la necesito para otro libro debo grabarla en el libro que abra?
Mil gracias por la atención y luego de esto finalizo con mis preguntas.
Si por ejemplo necesitas que la rutina que te envíe se aplique para las 50 primeras filas de las columnas A;B;C;D solo debes colocar esto en el primer If de la rutina:
If Not Application.Intersect(Target, Range("A1:D50")) Is Nothing Then
Y se aplicara para ese rango de celdas que va desde las "A1" hasta la "D50", puedes ampliar las columnas si por ejemplo quieres que llegue hasta la "G50" o "M50" solo debes colocar:
If Not Application.Intersect(Target, Range("A1:G50")) Is Nothing Then
ó
If Not Application.Intersect(Target, Range("A1:M50")) Is Nothing Then
En referencia a que si la macro queda solo en el Libro1, Hoja1 ó la Hoja donde la hayas colocado si allí queda grabada.
Si la necesitas en otro archivo de excel (Libro2.xls por ejemplo) debes grabarla en la Hoja que la necesites (Hoja1, Hoja2, Hoja3...) en el mismo evento y con el mismo código y funcionara

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Calculo de fecha en excel

Necesisto el apoyo para lo siguiente: Calculo de fecha en excel que no exceda 20 días dependiendo de la recepción de un documento, si la fecha cae en viernes, sábado, domingo y lunes nos de la fecha del jueves. Si cae la fecha en miércoles nos de...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Necesito poner en una celda de otra hoja el valor de la celda activa en otra hoja diferente

En una hoja se busca el dato introducido con Target. Necesito copiar otra celda de la fila activa y pasar su valor a otra celda de otra hoja
1 respuesta

Combinar dos rangos de celdas

Hice algo para combinar dos rangos de celdas, pero hay algo que no funciona. Sub combinarceldas() Range("D20:E35500").Select Selection.Merge End Sub En definitiva lo que necesito en combinar los rangos "D20:D35500 y E20:E35500" y no tener que...
1 respuesta