Obtener el Valor de una Celda Combinada (Agrupada)
Expertos: Buenos días.
Requiero ayuda con código VBA, no lo puedo solucionar.
Tengo un archivo con 23 columnas, y cientos de Filas. Pero dentro de las primeras 5 columnas es posible que en ocasiones se agrupen o combinen Filas.
Hice un formulario para sacar los valores de toda una Fila. <<<El problema viene cuando las Filas estan combinadas, entonces esas celdas combinadas dan un valor VACIO>>>
Hice una prueba desagrupando las celdas y entonces si puedo traer los valores de toda la fila, pero como están agrupadas, no me da el valor. Por favor ayuda, aquí coloco imágenes del excel, del formulario y la parte del código VBA
En imagen "1 Fila seleccionada" quiero traer al formulario la fila 16, pero las Columnas B, C, DE, E, F están Combinadas (Agrupadas) y quedan sin valor (Vacías)
El primer código adjunto trate de identificar la celda agruapada pero no funciona.
El segundo código adjunto trabaja pero las celdas agrupadas las trae vacías.
Ayuda por favor !
' // Llenar los cuadro de texto con los datos del registro elegido
Private Sub UserForm_Initialize()
Dim s As Long
For i = 1 To 23
If Cell.MergeCells Then
MsgBox "esta agrupada"
Else
Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value
h = ActiveCell.Offset(0, i - 1).Value
End If
Next i
s = ActiveCell.Row
Label27.Caption = s
End Sub
-------------------------------------------------------------------------
------------------------------------------------------------------------
' // Llenar los cuadro de texto con los datos del registro elegido
Private Sub UserForm_Initialize()
Dim s As Long
For i = 1 To 23
Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value
h = ActiveCell.Offset(0, i - 1).Value
Next i
s = ActiveCell.Row
Label27.Caption = s
End Sub
Te dejo 2 muestras de rangos combinados, tanto en modo vertical como horizontal.
Y el código que utilizo para que me muestre en cada control esos valores 'compartidos' o no.
Private Sub CommandButton1_Click()
Dim s As Long
filx = Range(Selection.Address).Row
For i = 1 To 4
Cells(filx, i).Select
If ActiveCell.MergeCells = True Then
Me.Controls("TextBox" & i).Value = ActiveCell.Text
Else
Me.Controls("TextBox" & i).Value = Cells(filx, i).Value
End If
'h = ActiveCell.Offset(0, i - 1).Value
Next i
s = ActiveCell.Row
Label27.Caption = s
End Sub
Lo dejé en un botón pero bien puede ir en tu evento Initialize.
Faltaría que declares el resto de las variables. Como 'h' no se utiliza en ninguna instrucción la inhabilité.
Espero te sirva de ayuda o guía para resolver tu situación.
Elsa ! Funcionó perfectamente, solo que ahora tengo el problema que al oprirmir el botón guardar después de hacer una modificación. Nuevamente se va hasta la primera fila de la Celda Combinada, ayúdame ! Adjunto código fuente de esta función. Traté de hacer la misma logia que utilizaste pero no pude armarla.
Private Sub CommandButton1_Click() ' // Actualizar el registro - se oprimio la techa guardar
Dim x As Integer
r = ActiveCell.Row
Cells(r, 1).Select
For i = 1 To 23
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
Next i
Unload Me
End Sub
Habrás notado que el foro ya no envía notificación de nuevas consultas ;(
Te dejo la macro ajustada para el botón de Guardar. Lo que necesitas es guardar la fila de la selección.
Private Sub CommandButton2_Click() ' // Actualizar el registro - se oprimio la techa guardar
Dim x As Integer
'r = ActiveCell.Row
filx = Range(Selection.Address).Row
For i = 1 To 23
Cells(filx, i).Select
If ActiveCell.MergeCells = True Then
ActiveCell.Value = Me.Controls("TextBox" & i).Value
Else
Cells(filx, i) = Me.Controls("TextBox" & i).Value
End If
Next i
Unload Me
End SubSegún mis primeras imágenes, si seleccionas la celda de la col A, se mostrarán los campos de la fila 15. En cambio si seleccionas desde otras columnas, se mostrarán los registros de esa fila seleccionada. Y así se guardará.
Sdos!
