Respuesta
en
Visual Basic
y en 2 temas más
a
Formatear los numeros de varias hojas de calculo exportadas desde access
Te anexo la macro Sub Formatear_Numeros() 'Por.Dante Amor For Each h In Sheets uc = h.UsedRange.Columns(h.UsedRange.Columns.Count).Column For j = 1 To uc For n = 1 To 9 Set b = h.Columns(j).Find(n, lookat:=xlPart) If Not b Is Nothing Then If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Formato personalizado de horas en excel (VBA)
Pon lo siguiente: Range("P5:T5").Select ActiveCell.NumberFormat = "dd/mm/yyyy hh:mm" ActiveCell.FormulaR1C1 = "=NOW()" sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cambiar mi macro para que realice lo que necesito
Prueba con la siguiente macro Private Sub Exportar_a_Txt() 'Por.Dante Amor Application.ScreenUpdating = False nbre = InputBox("Nombre del archivo") If nbre = "" Then Exit Sub ' ActiveSheet.Copy intUltimaFila =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Arreglar tabla de excel (combinada)
Te anexo una macro para arreglar tu tabla En la "Hoja1" pon tu información. Crea 2 hojas y les pones por nombres "Hoja2" y "Hoja3" Ejecuta la macro, el resultado lo verás en la hoja2 Sub Arreglar_Tabla() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'hoja...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Formato cúmulo de horas en VBA
Te anexo una opción hora = Evaluate("=TEXT(" & .Cells(709, lcol) & ",""[h]"")") minutos = Right(Evaluate("=TEXT(" & .Cells(709, lcol) & ",""[h]:mm"")"), 2) Label1630.Caption = hora & ":" & minutos . 'S aludos. Dante Amor. Recuerda valorar la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar hasta la ultima celda activa
No pusiste esta función EPMAddInAutomation, así que no puedo probar tu macro. Le hice algunos cambios a tu macro: Sub Copiar1() ' ' Copiar Macro ' Dim zEPMexample As New EPMAddInAutomation Dim informeactual_Str As String Dim valor_Num As Double Dim...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Se puede automáticamente, ¿Mediante fórmula colocar un numero en cualquier casilla?
Suponiendo que tus columnas son A, B y C, entonces en la celda A2 pon esta fórmula =SI(C2="";13;31) Significa, si la celda C2 está vacía, entonces que te ponga el número 13; de lo contrario que te ponga el número 31. Copia la fórmula hacia abajo . 'S...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro casi finalizada, solo falta unos detalles.
No puedo descargar el archivo, envíame el archivo adjunto en un correo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Gerardo Mujica Arevalo” y el título de esta pregunta.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACROS de 2 hojas diferentes ubicar fecha y poner horas en una sola
Te anexo la macro Sub Macro5() '------ ' Por.Dante Amor '------ Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Range(h2.Cells(3, "B"), h2.Cells(Rows.Count, Columns.Count)).Clear ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row fecha =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar registros en rangos variables de una hoja al encabezado fijo de la misma. Excel.
No entiendo muy bien. Mencionas que quieres copiar registros, pero no explicaste en dónde están esos registros a copiar. Envíame un archivo con 2 hojas. En la hoja1 me marcas de amarillo el registro o registros que quieres copiar y me explicas, cómo...