Adriel Ortiz Mangia

https://www.youtube.com/results?search_query=otto+gonzalez+ https://www.youtube.com/watch?v=BVpfLKzLqzY&list=PLp-d73DwawiwvtxtgokufIvQ7kN6b8F5w http://aplicaexcel.galeon.com/

Te presento una guía https://www.youtube.com/watch?v=-EAnclMjhaE

Sub Eti1() 'comando para generar las etiquetas Hoja35.Columns("a:o").Delete fin = Hoja4.Range("b65536").End(xlUp).Row Hoja4.Select Range("A8").Select For y = 0 To Int((fin - 1) / 3) For k = 0 To 2 Hoja6.Range("b2").Value = "'" &...

H o l a te paso la macro nomb = Textbox12 & "_" & h.Name & "_" & TextBox13 h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False,...

Te paso la macro Sub CopiarDatos() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = h2.Range("H" & Rows.Count).End(xlUp).Row + 1 For i = 3 To h1.Range("H" & Rows.Count).End(xlUp).Row If h1.Cells(i, "H") = "cerrado" Then...

H o l a prueba esto Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("K5:K34")) Is Nothing Then ' If UCase(Target.Value) = "ERROR" Then call Mandar_Correo2 End If ' End If End Sub Valora la respuesta para finalizar...

H o l a ¿Pero cuál es el rango a seleccionar? Puedes mostrar unos ejemplos

Muestra el código que tienes en los botones

H o l a te paso un ejemplo Private Sub CheckBox1_Click() If CheckBox1 = True Then Subtotal = Range("D6").Value descuento = Range("D6").Value - (Subtotal * 0.03) Range("D7") = descuento Else Range("D7") = "" End If End Sub

H o l a Te paso la macro Sub borrar() Sheets("hoja1").Range("A1:B10").ClearContents End Sub si son rangos variables Sub borrar() Sheets("hoja1").Range("A1:A4", "B3:B5").ClearContents End Sub valora la respuestas si es Excelente o bueno para finalizar...