Dante Amor

Prueba la siguiente macro, no es necesario un ciclo. Simplemente copia las columnas que requieres y las pega en la hoja destino. Sub extraerdatos() 'Por Dante Amor Dim sh1 As Worksheet, sh2 As Worksheet Dim uf1 As Long, uf2 As Long ' Set sh1 =...

Te paso la macro actualizada para recortar el menú por las palabras que se encuentran antes de los dos puntos ":" Sub PasarDatos() 'Por Dante Amor Dim i As Long, j As Long, k As Long, n As Long, nmax As Long Dim a As Variant, b As Variant, ky As...

Te paso la macro: Sub ColocarFormula() With Range("A2:A99") .Formula = "=IF(B2<>"""",CONCATENATE(E2,A$1,F2),"""")" .Value = .Value 'si quieres la fórmula, quitas esta línea End With End Sub

Con fórmula: =CONTAR.SI($A$2:$A$7;A2) En una columna pon la fórmula y la copias hacia abajo. De esa manera, los que tenga mayor a 1 son los que están repetidos:

No existe un evento que te permita controlar el copiado y pegado de celdas. Lo que puedes hacer es una macro que copie las celdas "del libro B" y al momento de pegar en el "libro A" te aparezca el mensaje. Si quieres te ayudo con la macro... Los 2...

Puedes poner aquí, qué valor o qué dato tiene en la celda D$32

[Hola Ana y bienvenida a TodoExpertos. Debes desproteger la hoja, modificar las celdas y volver a proteger la hoja. Puede ser así. Cambia "abc" por el password de tu hoja: Private Sub CommandButton1_Click() ActiveSheet.Unprotect "abc"...

¿Cuáles datos del listbox quieres pasar al textbox? ¿Cada línea del listbox la quieres en una línea del textbox? Si es así, entonces el textbox deberá tener la propiedad de multilínea. Y una duda más: ¿Cuál es el objetivo de pasarlos al textbox?, es...

Por ejemplo, si quieres poner la fórmula en la celda K7 Sub Macro2() Range("K7").Formula = "=TIME(HOUR(J7), MROUND(MINUTE(J7), 30), 0)" End Sub Si quieres solamente el resultado de la fórmula: Sub Macro2() With Range("K7") .Formula = "=TIME(HOUR(J7),...

Te paso la macro actualizada: Private Sub CommandButton1_Click() 'Por Dante Amor ' Dim sh As Worksheet Dim max As Long, cont As Long, lr As Long Dim Nombre As String ' Set sh = Sheets("Hoja2") '<---Nombre de tu hoja origen 'Crear palntilla de jugador...