Adriel Ortiz Mangia

H o l a prueba esto, para que le considere como numero a los textbox pon VAL Private Sub TextBox11_Change() TextBox12 = (Val(TextBox11) / 100) * Val(TextBox9) '(Aquí es donde me da el error) TextBox13 = Val(TextBox9) - Val(TextBox12) TextBox9 =...

H o l a te paso la macro Sub EliminarFila() 'Fuente:Dante Amor 'Act. Adriel Ortiz Set h = Sheets("Sheet1") cond = Array("PE1T", "PE23") For i = h.Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1 For j = LBound(cond) To UBound(cond) If h.Cells(i,...

H o l a te paso la macro Private Sub CommandButton1_Click() '//por Aortiz ' For i = 2 To Sheets.Count Sheets(i).Visible = True Next ' hoja = TextBox5.Value encontrado = False For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then encontrado = True...

H o l a Es posible, te paso la macro para que lo adaptes a tus necesidades, cambias los nombre de los textbox por el tuyo Private Sub txtCodigo_AfterUpdate() '//Por Adriel Ortiz Set h2 = Sheets("Hoja1") ' cambias la hoja ' dato = txtCodigo Set r =...

h o l a ¿Deseas eliminar la fila o los datos de la celda?, si pones una imagen de tus datos sería genial

¿Puedes poner un ejemplo?

¿Deseas registrar en las tres hojas al mismo tiempo?

H o l a te paso la macro, suma ambas columnas y pone el resultado en el rango indicado Sub sumar() '//Por Adriel Set h1 = Sheets("Hoja1") u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 3 Then u = 3 ' sum1 =...

H o l a Te paso la macro En esta línea cambias las celdas para el nombre nomb = [A1] & "-" & [A2] & "-" & [A3] la macro Sub Guardarpdf() Application.ScreenUpdating = False ' ruta = ThisWorkbook.Path & "\" nomb = [A1] & "-" & [A2] & "-" & [A3] '...

Puedes concaternar con la siguiente fórmula =HIPERVINCULO(CONCATENAR(A1,B1))