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

En el botón buscar Set H = Sheets("BD") Set b = H.Columns("A").Find(codi) If Not b Is Nothing Then paci = H.Cells(b.Row, "B") Else MsgBox "No existe el dato" TextBox1.SetFocus Exit Sub End If Donde "A" es la columna de los códigos Y "B" es donde esta...

En la propiedad del textbox donde dice text pones el valor que quiere que siempre apararesca Lo Bueno es que lo puedes cambiar y con la opción que tiene de carga el userform de Nuevo vuelve el valor que le agregues Recuerda valorar si te silve

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

En el evento change del textbox copier estos Case 1 esta parte indica los digitos que Deben ir ante de poner el guion en mi caso estas depues del primer digito sale el guion Private Sub TextBox2_Change() Select Case Len(TextBox2) Case 1...

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

Donde dice RUTA ruta ="D\colegio amiguitos de jesus\datos generales\" Así debe quedar Pero con solo pober el acrivo en esa carpeta y abrilo desde hay te resolve la línea ThisWorkbook. Path & "/" le indicva que lo deja en esa misma ruta Recuerda...

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