Dante Amor

H o l a: Envíame tu archivo con ejemplos y me explicas cómo debería funcionar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Marco Sandoval Ruiz” y el título de esta pregunta.

Te anexo la macro Sub Sumar() 'Por.Dante Amor u = Range("F" & Rows.Count).End(xlUp).Row If u < 6 Then u = 6 Range("F" & u + 1) = WorksheetFunction.Sum(Range("F6:F" & u)) End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Tendría que ser con una macro: Sub nombrar() ActiveSheet.CommandButton1.Caption = "título" & vbCr & "mes" End Sub sal u dos

H ol a: Te anexo la macro para la primera parte, copiar la hoja potencial y ordenar por total. Sub Copiar_Potencial() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("POTENCIAL") Sheets.Add After:=Sheets(Sheets.Count) Set h2 =...

H o l a : Te anexo el código actualizado: Sub Macro_Ordenar() 'eliminar columnas Range("A:H,J:K,M:P,R:R,T:U,X:Z").Delete Shift:=xlToLeft Cells.EntireColumn.AutoFit ' 'Obtener la última fila con datos u =...

Te anexo la macro actualizada Sub condindagts() 'Selection.FormatConditions(1).StopIfTrue = False u = Range("A" & Rows.Count).End(xlUp).Row Range("A2:A" & u).Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESBLANCO($I2)"...

Cambia estas líneas: Cells(fila, 24) = RutaImagen Cells(fila, 24) = txtNombreImagen Por estas: Dim res res = MsgBox("Ha modificado la imagen del ejercicio", vbQuestion + vbYesNo, "IMAGEN") If res = vbYes Then Cells(fila, 24) = RutaImagen Else...

Puede poner tu macro para revisarla y actualizarla

H o la: ¿Y te aparece algún error? ¿Tienes declarada sour como un arreglo? ¿Tienes declarada rango como un rango? ¿A veces si funciona y a veces no? No entiendo esto: "pero cuando en el fichero de lectura cambio los datos, no lee el número que indica...

Te anexo la macro, cambia "A" por la columna de fechas y "B" por la columna de importes Sub sumar1() 'Por.Dante Amor col_fecha = "A" col_impor = "B" ' On Error Resume Next Set celda = Application.InputBox("Selecciona la celda",...