Aneudys Martinez

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

De estas manera En el evento UserForm2_Initialize() label15.Caption = FORM_userform1.textbox1 sub end En el label 15 me cargara el dato que se encuentra en el textbox1 del userform1 No olvides valorar si te silve

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

No soy muy Bueno en macro pero puedo ayudar de esta manera Saludo si te silve no olvide valorar para finalizar la pregunta

No dice donde quieres copier los datos en estas podras copiarlo en la shhet2 osea hoja2 Lo puedes haces de estas manera Sub copiar() filalibre = Sheets("sheet2").Range("A1048576").End(xlUp).Row + 1 Range("a4:x5"). Copy Sheet2. Range("a1")....

Usa remplazar ctrl + b Y le das remplazar todos y listo

Lo puedes hace de la siguiente manera Crea una hoja con el nombre compilado Y tu hoja multa semanal renombrala a multa SUB GUARDAR ( ) Sheets("SALIDAS"). Visible = xlSheetVisible 'ESTA PARTE La hace visible para copiar los datos Sheets("COMPILADO")....

valor = ComboBox1.Value Set busca = Sheets("Socios").Range("B2:B10000").Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then busca.select TextBox27 = ActiveCell.Offset(0, 1) TextBox2.Value = ActiveCell.Offset(0, 2)...