Adriel Ortiz Mangia

H o l a prueba así Private Sub CommandButton1_Click() If Hoja2.Cells(Z, 2) <> Empty Then Do While Hoja2.Cells(Z, c1) <> Empty c1 = c1 + 4 Loop Hoja2.Cells(Z, c1).Value = Date Hoja2.Cells(2, c1).Value = "Fecha de mantención" Hoja2.Cells(2,...

H o l a te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range For Each C In Range("z1:z1000, AD1:AD1000") If C.HasFormula Then C.Interior.ColorIndex = 34 Else C.Interior.ColorIndex = 0 End If Next End Sub valora para...

H o l a ¿Cuál es el rango al borrar?

H o l a te paso la macro que genera el código y pasa los datos de los textbox Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") ' hoja donde se guardará los datos ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 j = h1.Range("A" &...

Muestra el código que tienes en los botones

H o l a: Otto gonzales https://www.youtube.com/channel/UCfFT6jJx6khLYjibRwKODhA David Asurmendi https://www.youtube.com/channel/UCfoCe_a1EPntK64tD1Z8yMg También puedes revisar la preguntas resueltas de esta web todoexpertos por: Dante Amor Elsa...

H o l a: Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then Range("C10:C1002").ClearContents End If End Sub

TextBox25.Text = Format(T_25, "#0.00")

H o l a: Usa 2 botones para oculta y mostrar Sub ocultar() Sheets("Hoja2").Visible = True 'oculta la hoja Sheets("Hoja3").Visible = False ' Muestra la hoja End Sub Sub mostrar() Sheets("Hoja2").Visible = False 'Muestra la hoja Sheets("Hoja3").Visible...

Para que logres insertar datos numéricos utiliza la función val por ejemplo Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u1, "A") = Val(TextBox1) End Sub Observa. Resultados...