Dante Amor

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

Intenta con la funcionalidad de excel: Subtotal. - Selecciona los datos. - Del Menú Datos, selecciona la opción Subtotal:

La siguiente macro copia el valor si perder el vínculo. Ejecuta la siguiente macro: Sub copiaceldas() Dim sh1 As Worksheet, sh2 As Worksheet Dim dic As Object Dim i As Long, j As Long Dim cad As String Dim a As Variant, b As Variant '...