Dante Amor

[Por sexo anal NO es posible un embarazo. [Por roces NO es posible un embarazo. Deben cuidarse con condón en todas sus relaciones.

¿Qué dice el error? ¿La columna 5 del listbox, la tienes con formato? ¿En qué número va el contador 'x' cuando se detiene la macro? ¿Qué tienes en el registro .List(x, 5)?

Te paso la macro actualizada: Sub Pasar_ID() Dim uFila As Long, col As Long, uFila2 As Long Dim i As Long, k As Long Dim existe As Boolean Dim hoja As String Dim h As Worksheet ' 'busca "Verdadero" copia y pega Sheets("PlantillaJugadores").Select...

No puedes poner una función en la celda C19, porque necesitas tomar el mismo valor de la celda C19 para sumarle 1 o bien para regresarlo a 0. Debes hacerlo con una macro. Incluso la siguiente propuesta es con tu mismo código que copia de la hoja...

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...

Prueba lo siguiente: Seleccionar el elemento o los elementos, presiona las teclas Shift + Supr

[Ho la y bienvenido a todoexpertos! Puedes poner ejemplos, algo como esto: - Tienes un directorio: "C:\trabajo\" En ese directorio quieres crear la carpeta que está en la celda A1 - En la celda A1 tienes el dato "componentes" - En la celda B1 tienes...

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: