Dante Amor

Tienes el nombre de la macro como "celda" También estás utilizando el objeto "celda" pero no lo estableciste. Entonces, si lo quieres con un objeto, podría ser así: Sub PoneColor1() Set Celda = ActiveCell With Celda If .Value = "" Then...

H ol a: Es un detalle de la versión. Prueba con esta: '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0)...

Te anexo el código, pon el código en los eventos de la hoja. Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets ComboBox1.AddItem h.Name Next ComboBox1.Value = actual End Sub Si no...

Si quieres que se muestre el label cuando presionas el botón, podría ser así, el resultado que se va a mostrar es de la columna N y de la fila donde estás poniendo los datos de los combos. Sub CommandButton2_Click() 'para Registrar Label1 = ""...

Te anexo la macro. Cambia en la macro estos datos: ini = 1 'celda inicial para la suma celda = "F2" 'celda para el resultado Sub SumarCeldas() 'Por.Dante Amor ini = 1 'celda inicial para la suma celda = "F2" 'celda para el resultado ' For i = ini To...

H o la: Es probable que en algún momento hayas ocupado la celda XFD80, o alguna de las celdas de la fila 80 o alguna de las celdas de la columna XFD, es probable que en alguna de esas celdas tengas un espacio; y es por eso que excel trata de imprimir...

Te anexo la macro Sub SumarSueldos() 'Por.Dante Amor Set h1 = Sheets("HOJA DE SUELDOS") Set h2 = Sheets("Reporte") u1 = h1.Range("C" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row If u2 < 3 Then u2 = 3 h2.Range("A3:B" &...

Te falta poner la palabra "Set" para establecer el objeto. Set b = basedatos.Range("L3:L500").Find(prov, lookat:=xlPart) También te recomiendo que agregues la propiedad lookat:=xlPart para que te busque parciales dentro de la celda, es decir,...

H o l a : Puedes decirme lo siguiente: Cómo se llaman las hojasCómo se va a llamar el nuevo libroSin formulación, te refieres a que se pongan solamente valoresEl correo se va a enviar por outlookCuál es el destinatarioCuál es el mensaje del...

H o la: Te anexo la macro actualizada: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim w Set w = ActiveSheet With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next...