Aneudys Martinez

Con el formato condicional puedes lograr algo igual Sólo una pregunta donde estaría la palabra para que esta línea cambie de color En toda la línea o en una sola

Pruebas estas Sub Cerrar_libro() Dim Contador As Integer Contador = 1 Range("A1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then MsgBox "hay " & Contador & " registros para completar antes de cerrar el archivo" Contador =...

En un módulo Sub limpiar () Range ("a20:f20").clearcontents End sub Esto limpia la línea 20 desde columna A Hasta F Sólo coloca el rango o las celdas que quiere limpiar y listo Si te silve recuerda valorar para cerrar la pregunta

Usa la funcionó concatenar y funciona la fecha día de semana con día de calendario Sería en una celda =texto (hoja1! C3,"dddd") El la otra sería =texto (hoja1! D3,"dd") Y aquí en f3 la de concatenar que seria =concatenar (c3,"-", d3) El resultado...

En el botón pega estos Hoja1 es el nombre de tu hoja de búsqueda Set H = Sheets("hoja1") Set b = H.Columns("A").Find(TextBox1) If Not b Is Nothing Then b.Select ActiveCell.Offset(0, 1) = TextBox2 Else MsgBox "No existe el dato" Fila =...

Presiona alt + f11 te lleva la editor vba allí Estos en es caso de que la celda sea fija osea si siempre sera a9 En el caso de que tu base de datos valla creciendo seria de estas manera Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...

Bueno estos es 1 - desde que celda comienza la tabla en la hoja "PLANTILLAMADERA1" 2 - la tabla tiene encabezadO 2- A partir de que celda quiere que se copie los datos a la hoja nueva

Marcos estas macro hace una autofiltro desde dos textbox Field:=10 y Field:=1 esta parte es la que tiene que cambiar el 10 por el numero de tu columna La 1 hace referencia la columna A y la y el 10 a la columna J Private Sub CommandButton1_Click()...

Prueba estas así aver Sub Guarda_pdf() ' if range("b56") = empty then msgbox "celda sin dato para nombre" exit sub end if If Range("f24"). = Empty Then MsgBox "celda sin dato para nombre" Exit Sub End If On Error Resume Next...

ActiveSheet.Cells(2, 1).EntireRow.Insert Recuerda valorar para finalizar la pregunta