Dante Amor

Ejecuta la siguiente macro Sub SumaRango() 'Por.Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row Range("C" & u + 1) = WorksheetFunction.Sum(Range("C2:C" & u)) End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te anexo la macro En esta línea de la macro revisa el nombre de tu image, cambia Image1 por el nombre de tu control Image1.Picture = LoadPicture(imag) Private Sub CommandButton1_Click() 'Por.Dante Amor imag = Application.GetOpenFilename(FileFilter:=...

Ya no entendí, ¿quieres qué te sume o que te reste? Puedes explicar con un breve ejemplo.

Cambia esta línea If Hoja2.Cells(Fi, 1) = Hoja12.Cells(tex_mod, 1) Then Por esta If Hoja2.Cells(Fi, 1) = tex_mod Then

En tu formulario dale doble click a tu botón. Te lleva al código del commandbutton, entonces copia la macro, te debe quedar algo así: Private Sub CommandButton1_Click() 'Por.DAM Application.ScreenUpdating = False Application.DisplayAlerts = False If...

Para expresarlo con If sería algo como esto: Private Sub CommandButton3_Click() Dim ref As Integer ref = t1.Value nom = Application.VLookup(ref, Sheets("Hoja1").Range("A:G"), 2, 0) lcd = Application.VLookup(ref, Sheets("Hoja1").Range("A:G"), 3, 0)...

Te anexo la macro actualizada 'Act. Por. Dante Amor h2.Select For i = 3 To h2.Range("B" & Rows.Count).End(xlUp).Row For j = h2.Range("B" & Rows.Count).End(xlUp).Row To i + 1 Step -1 If h2.Cells(i, "B") = h2.Cells(j, "B") Then h2.Rows(j).Delete End If...

H o l a: Te anexo la macro con algunos ajustes: Sub Guardar_correoPDF() ' ' GuardarPDF Macro ' Dim dest As String, arch As String, ruta As String Dim objOutlook As Object Dim objMail As Object ' ruta = "C:\Users\Servicio...

H o l a: Te anexo la macro para todas las hojas. Cambia en la macro "A" por la columna en donde se encuentran los números. Sub capicuo() 'Por.Dante Amor col = "A" 'columna con números For Each h In Sheets For i = 1 To h.Range(col &...

H o l a : Te anexo unas opciones: En la primera opción el libro puede estar cerrado, entonces la macro lo abre y te pone los resultados de las búsquedas. Sub PoneResultados() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta =...