Dante Amor

¿El código que tú utilizas es VBA para excel? Puedes compartir tu archivo en google drive o enviármelo con unos ejemplos. Mi correo: [email protected] Describe el procedimiento que tú realizas para reproducir el error.

¿Y cuál es el error? Puedes poner imágenes de tus datos. De la imagen que te aparece con la macro. Y la imagen que deseas tener.

Encontré lo siguiente, espero te ayude. Aquí hay un código para eliminar tres filas en Sheet1 a partir de la fila 5 oSheets = ThisComponent.getSheets() oSheet = oSheets.getByName("Sheet1") oRows = oSheet.getRows() oRows.removeByIndex(4, 3) ' 'The...

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

[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

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