Dante Amor

No es posible en una sola línea. Pero, te pregunto, ¿para qué lo necesitas en una sola línea? ¿Cuál es la finalidad de hacer visible la hoja? Puedes utilizar la hoja oculta. No es necesario hacerla visible, ni seleccionarla, solamente debes hacer...

Prueba la siguiente macro: Sub ExtraerDuplicados() Dim i As Long, j As Long, k As Long Dim f As Range For i = 2 To Range("A" & Rows.Count).End(3).Row k = 23 For j = 1 To 10 If WorksheetFunction.CountIf(Range("L" & i & ":U" & i), Cells(i, j)) > 0 Then...

Pon el siguiente código en los eventos de la hoja1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub Sheets("Hoja2").Range("A1").Value = Target.Value End Sub .[No olvides valorarla.

Selecciona la celda A1 En el cuadro de nombres escribe la palabra: celda Prueba esto: Sub test() Range("celda").Value = "xd" End Sub

No puedo descargar el archivo. Te envié una solicitud.

Te anexo un nuevo código. Revisa cómo estoy estableciendo en sh1 la hoja1 y en rng2 el rango de la hoja2. Más adelante, en la macro hago referencia a estos objetos. De esta manera puedes ejecutar la macro en cualquier hoja. Sub...

Debemos identificar los patrones en ambos casos. Si el caso 1 siempre tiene dos diagonales: \ Si el caso1, siempre termina con la palabra " DESCRIPCION.". Si el caso2, siempre tiene una diagonal y el número está antes de un espacio. Prueba con la...

[Ho la y bienvenido a TodoExpertos. Prueba la siguiente macro. - Pon la macro en el "libro1". - El libro2 también deberá estar abierto. - Los registros serán pegados en el libro2, en la primera hoja. - La macro asume que los encabezados del libro1,...

Va sin las comillas: Sumasf(1) = Sumasf(1) + Range(col & x) [No olvides valorar las respuestas

Por ejemplo, si el número está en la celda A2. Usa la fórmula =Izquierda(A2, 5) Nota: cambia en la fórmula a ( ; ) si lo utilizas como separador.