Dante Amor

Te paso la macro. Puse la hoja "Indice" para leer los nombres de las hojas. Sub CopiarUltimaFila() 'Por Dante Amor Dim sh1 As Worksheet Dim lr1 As Long, lr2 As Long Dim c As Range ' Set sh1 = Sheets("Resumen") 'hoja destino For Each c In...

Veo que en la columna S tienes la fila de inicio para el conteo. Utilicemos esa referencia. En la celda U101, pon la siguiente fórmula: =SUMA(INDIRECTO(DIRECCION($S101;COLUMNA())):U$99) Copia la fórmula hacia abajo y hacia la derecha:

Te paso la macro actualizada: En la línea LCase("Indice"), LCase("Agua"), LCase("Luz"), pon los nombres de las hojas que no quieres incluir. Sub Crear_Indice() 'Por Dante Amor 'Declaramos variables Dim sh1 As Worksheet, sh2 As Worksheet Dim i As Long...

Suponiendo que tu "Tabla" se llama "Tabla1" y suponiendo también que tus datos en la "otra" hoja están de la siguiente manera: Utiliza la siguiente fórmula: SI(SUMAPRODUCTO((Tabla1[CODIGO]=A2)*(Tabla1[AÑO]=B2)*(Tabla1[PERIODO]<>""))=1;0;1) Intenta...

En la hoja "RESUMEN" en la fila 1 supongo tienes los encabezados. Prueba lo siguiente. Copia la última fila de la hoja Juan y la pega en Resumen después de la última fila con datos, después Alberto y Darío. Si quieres otras hojas o cambiar los...

Te anexo el código actualizado. NOTA: Cambia en la macro "Hoja2" por el nombre de tu hoja origen Private Sub CommandButton1_Click() Dim sh As Worksheet Dim max As Long, cont As Long, lr As Long Dim Nombre As String ' Set sh = Sheets("Hoja2")...

Para probar tu fórmula, podrías compartir tu archivo con datos de ejemplo. Ahí en la hoja pon comentarios de lo que actualmente aparece y de lo que debería o esperas de resultado. Puedes compartir tu archivo en google drive, comparte para cualquiera...

Prueba lo siguiente: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim max As Long, cont As Long Dim Nombre As String Set sh = ActiveSheet 'Crear palntilla de jugador 'Máximo de filas a considerar max = 1 'Recorrer las filas de la columna A...

No entiendo de dónde a dónde quieres pasar los números. Puedes explicar qué necesitas. ¿Según tu ejemplo el número de las celdas G2, H2, I2, J2 "8695" lo quieres poner en la celda CI1? ¿O el número de la celda CI1 "8695" lo quieres en las celdas G2,...

Prueba lo siguiente: Private Sub BT_eliminar_Click() Dim lr As Long, i As Long Dim f As Range If listbox.ListIndex = -1 Then MsgBox "Selecciona un registro del listbox" Exit Sub End If If MsgBox("Segura de eliminar el registro", vbYesNo, "ELIMINAR")...