calvuch

este sub elimina la fila 10 de cada hoja Sub elimina_fila() Dim r As Worksheet For Each r In Sheets r.Select Rows("10:10").Delete Shift:=xlUp Next Set r = Nothing End Sub

If Len(TextBox6) > 0 Then ActiveCell = TextBox6 ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(0, 1).Select End If If Len(TextBox7) > 0 Then ActiveCell = TextBox7 ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(0, 1).Select End If If...

Puedes simplemente editar el código Prueba Range("A1:H1").Select

Mmmm tu bucle no dice mucho mas alla de la funcionalidad explicita del mismo. Entiendo lo que intentas obtener Dame un ejemplo de la data y como esta distribuido ( esta en una celda como cadena o en varias ) A ver que se me ocurre

Así lo haces Range("a1").Value = Application.WorksheetFunction.Sum(Range("B1:B5"))

Esa es justo la función que debes utilizar Copia el rango de datos, elimina los repetidos y así esa lista te servirá de criterios para la función contar. Si que actuara sobre la matriz de datos originales (con repetidos)

Esto copia el rango g1:g8 del libro1 en la hoja1 del libro base de datos Sub copia() Range("G1:G8").Select Selection. Copy Windows("base de datos"). Activate ActiveSheet. Paste Windows("Libro1"). Activate Application.CutCopyMode = False End Sub Adáptalo

Si deseas abrir páginas desde excel utiliza las url como hyperlink y luego con un bucle recorres el rango y activas cada url Ejemplo: For i = 1 To 5 Range("A" & i).Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Next esto...

Posicionate sonbre celda B1 luego ve a la opcion formato condicional/nueva regla Ve a la opción "Utilice una fórmula que determine las celdas para aplicar formato" En el recuadro inferior pon esto: =A1<>B1 Luego presiona el botón formato y le das el...

Prueba esto Sub copia() Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy End Sub En una lista filtrada se posiciona en celda a2 y desde allí selecciona todo el rango fltrado y lo copia La fila 1 es para...