Aneudys Martinez

Desde aquí te recomendamos con vba en Excel para que valla teniendo una idea de que es programar gracias a estas herramienta he aprendido algo para entra a programar de verdad

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

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

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

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

Private Sub CMD1_Click() If TextBox15 = Empty Then MsgBox ("FAVOR DE INGRESAR ALGUN VALOR") Else Set h1 = Sheets("NUCLEOS PRODUCIDOS") j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1 pedazo = 10 k =9 For i = 1 To Len(TextBox15) Cells(j, 9) =...

Pero la probaste porque a mi me pega solo los valores en el block nota no la fórmulas

Lo puedes hacer con el formato condicional de estas manera en tu caso seria =$u4="baja" y format... el color que quieras darle y le da en el cuadro donde estas =$j$1:$J$20 aqui en tu caso seria =$u$4:$u$104 fijate que la formula este asi =$u4="baja"...

Estos es para validar si hoja existe si excites termina la macro Dim Hoja As Worksheet Dim Nombre as Integer For Each Hoja In Worksheets If Nombre = Hoja.Name Then MsgBox "La hoja ya existe" Exit Sub End If Ahora bien lo que puedo ver es que tendas...