Adriel Ortiz Mangia

H o l a Siga esta instrucción para limitar al textbox Valora la respuesta para finalizar saludos!

H o l a 1. Te recomiendo estos tutos para trabajar en tiempo real con internet Excel online 1 https://www.youtube.com/watch?v=CMrlwPXCY8U Excel online 2 https://www.youtube.com/watch?v=RC8BWyYkPGI 2. Para trabajar en Red esto es interesante...

H o l a prueba esto Sheets("Registro").Shapes.Range(Array("ComboBox1")).Select

H o l a prueba con esto Sub eliminar() 'elimina todos los objetos ActiveSheet.DrawingObjects.Delete End Sub ESTO SON LA RESPUESTA DE DANTE ES INTERESANTE 1.1 Para borrar toda la fila y la imagen, pero la imagen tiene que estar en esa fila, puedes...

H o l a te paso la macro Sub copiar() 'por.Adriel ortiz Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") j = h1.Range("C" & Rows.Count).End(xlUp).Row If j > 1 Then j = 5 For i = 5 To h1.Range("C" & Rows.Count).End(xlUp).Row u = h2.Range("B" &...

H o l a: te paso la formula y verifica tus separadores si es coma(,) o punto y coma (;) =IZQUIERDA(A1,1)&"-"&IZQUIERDA(A1,8)&"-"&DERECHA(A1,1) valora para finalizar Excelente o bueno saludos!

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

H o l a: Te paso la macro Sub comparar_copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja3") Set h2 = Sheets("Hoja4") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

H o l a prueba esto y me comentas Sub exportarPDF2() nombre = Cells(47, 5).Value ruta = Cells(48, 5).Value destinatario = Cells(49, 5).Value fecha = Sheets("FORMULAS").Cells(12, 2).Value If Sheets("ReporteAct").Cells(46, 5) > 0 Then...