Dante Amor

Aquí otra macro a considerar. El proceso lo realiza en memoria. Sub CopiarColumna() Dim a As Variant, b As Variant Dim i As Long, j As Long, k As Long, m As Long If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False a = Range("A2:O" &...

Prueba la siguiente macro. Tus datos en la Hoja1, los resultados en la Hoja2. Sub Combinar_Celdas() 'Por Dante Amor Dim sh1 As Worksheet, sh2 As Worksheet Dim i As Long, j As Long, k As Long, m As Long, lr As Long Dim are As Range '...

¿Hay qué recorrer la columna H o solamente revisar H3? Puedes poner una imagen y explica.

Pon el siguiente código en los eventos de la hoja. Option Explicit Const texto = "Texto por defecto" ' Private Sub TextBox1_Change() With TextBox1 If .Value = vbNullString Or .Value = texto Then Call inicio Else .Value = Replace(.Value, texto, "")...

¿Qué dice el error? ¿Cuál es el código? --- ¿Solamente quieres seleccionar la hoja? Tienes que hacer la hoja visible para que la puedas seleccionar. Ejemplo: Sub boton1() Sheets("Hoja2").Visible = True Sheets("Hoja2").Select End Sub ---- Si no...

En tu formulario PreguntasdeAuditorias Public DatoExport1 As String Private Sub UserForm_Activate() DatoExport1 = ListAuditoriaPersonal.Name End Sub --- En el evento de tu formulario AddPreguntaAuditoria Dim nombre As String nombre =...

Prueba lo siguiente: Sub AbrirArchivo() Dim fichero As String, ruta As String Dim arch As Variant ' ruta = ActiveWorkbook.Path & Application.PathSeparator & "Acciones Documentacion Anexa" & Application.PathSeparator fichero = "ISSUE.ICF.BUR.3.Rearme...

No se puede en un único formato condicional. Debes crear un formato condicional para cada color. Y para copiar puedes indicar en cuál celda o rango de celdas quieres que aplique. O copiar las celdas y pegar el formato en dónde quieras que aplique.

[Ho la y bienvenido a todoexpertos. "seleccionar esa línea y la línea de arriba" Según tu ejemplo, ¿cuáles filas deben copiarse?

. Ho la y bienvenido a TodoExpertos. Sigue las instrucciones para agregar más de 10 columnas con el método AddItem Primero se establece con la propiedad .List el número de columnas: Private Sub UserForm_Activate() ReDim b(1 To 1, 1 To 20) 'número de...