Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como usar la Función "Fórmula R1C1"
¿Pero qué quieres sumar? ¿Y para qué el contador? ¿Y por qué lo haces de abajo hacia arriba?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hacer una macro si en una hoja están todos los y en otra solo los que asistieron en el día, si se repite el nombre poner OK
Te anexo la macro Sub Pone_Asistencia() Set h1 = Sheets("Mayo") 'hoja con todos los datos Set h2 = Sheets("Asistencia") 'hoja con solo los nombres de personas que asistieron en el día For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row nombre =...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Comparar datos entre hojas de Excel mediante Macros
Te anexo la macro Sub Buscar_Dato() 'Por Dante Amor Set h1 = Sheets("RED ALDO") Set h2 = Sheets("Items") ' For i = 2 To h1.Range("R" & Rows.Count).End(xlUp).Row Set b = h2.Columns("C").Find(h1.Cells(i, "R"), lookat:=xlWhole) If Not b Is Nothing Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Que un textbox muestre un resultado en formato hora
Prueba con lo siguiente: Range("B3").Value = TimeValue(TextBox1. Value) Me comentas si te funciona
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Optimizar Macro ya que va lenta con muchos registros
Pon las siguientes líneas al inicio de tu macro Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Al final de tu macro pon estas líneas: Application.ScreenUpdating = True...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito una Macro que Busque un valor, lo copie y lo pegue en otra hoja
Te anexo la macro Cambia en la macro en estas líneas por tus datos Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino col = "C" 'columna con valores a buscar fila = 1 'fila de encabezados valor = "algo" 'valor a buscar La...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Mostrar barra de progreso al ejecutar una macro
La barra de progreso funcionaría si tuvieras al macro "alertas" dentro del formulario. En este caso tienes la macro en un módulo. Para este caso podría funcionarte la instrucción Application. StatusBar Para ver el avance quedaría así: Sub Alertas()...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Se puede crear una macro que extraiga el ultimo dígito de una celda y lo pegue en otra?
Te anexo la macro Sub Digito_Verificador() 'Por Dante Amor With Range("D3:D" & Range("C" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(MID(RC[-1],LEN(RC[-1])-1,1)=""-"",RIGHT(RC[-1],1),"""")" .Value = .Value End With MsgBox "Fin" End Sub
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Validación de datos en celda autosuma no funciona
La validación de datos es para cuando capturas en la celda. Suponiendo que tienes tu autosuma en la celda H10 y suma las celdas de H2:H9, si capturas un valor en H2, realmente estás escribiendo en la celda H2, en la celda H10 estás obteniendo el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como Exportar Varias hojas a PDF desde Excel
¿Y te envía un error? ¿Qué dice el error? Lo único que veo es que tienes en la variable ruta esto: ruta = ActiveWorkbook.Path Pero al momento de guardar solamente dice ru ru & "\" & Nombre & ".pdf", Quality:=xlQualityStandard, _ Cambia ru por ruta y...