calvuch

Una opción seria establecer la serie consecutiva en la fila superior a la que tiene la función Ejemplo: Desde C4 hasta h4 pones secuencial 1 2 3 4 5 6 Y c5 pones: =$H$1*+C4+2 Ahora copias la función hasta la celda H5

Como no se tus rangos, te dejo este sub para que lo adaptes Mis entradas concatenadas están en col A desde A1 y te dejara los hipervínculos en la col F Sub link() Dim r As Range For Each r In Range("a1" & ":" & "A" &...

Prueba Sub listar() Dim m() As String Dim c As String Dim r As Range Dim i As Integer For Each r In Range("A1:G2") If InStr(1, c, r) = 0 Then c = c & r & "#" DoEvents Next m = Split(c, "#") c = "" For i = LBound(m) To UBound(m) Range("H" & i + 1) =...

Las notas sonoras se han quitado de Microsoft Excel Para mensaje prueba Private Sub Worksheet_Change(ByVal Target As Range) If [a24] = 7 Then MsgBox "Mensaje", vbInformation End Sub

Prueba Sub copia() Range("A1:G1").Select Selection.Copy Range("L11").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A1").Select End Sub

Yo lo hago así: Datos en col a de la hoja 2 y la lista desplegable en celda b1 de la hoja1 Sub lista() Dim n As Integer n = Application.WorksheetFunction.CountA(Sheets(2).Range("A:A")) If n = 0 Then Exit Sub ' para ejemplo lista de datos en columna A...

Utiliza este macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Dim i As Integer Randomize 1: i = Int((0 - 6)) * Rnd + 6 If [a1] + i > 6 Then GoTo 1 [b1] = i End If End Sub Insértalo así: Botón derecho del...

Prueba Sub rellenar() Dim i As Integer For i = 1 To Application.Sheets.Count Range("A" & i) = "=Hoja" & i & "!" & "E25" Next End Sub Te dejara los resultados en la col A si necesitas que sea en otra col modifica la referencia range No olvides CERRAR...

Prueba esto. Sub Buscar() Dim t As String Dim r As Range t = InputBox("Introduce el Número de Tráfico: ") If Len(t) = 0 Then Exit Sub If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then Exit Sub For Each r In Range("A1" & ":" & "A" &...

Observando tu texto y lo que deseas, lo único que debes controlar es el numero de caracteres de la cadena que deseas manejar ( negrita y cursiva) Es decir, el siguiente ejemplo pondrá en negrita cursiva la siguiente parte de la cadena: Yo, Mario jose...