Respuesta
en
Microsoft Excel
y en 2 temas más
a
Exportar de cada fila de un excel a un arxhivo txt
Esto te graba cada fila con las columnas A, B y C, separadas por una coma. Sub Grabar_Archivo_Txt() numArch = FreeFile Open "d:\datos.txt" For Output As #numArch For t = 1 To Range("A" & Rows.Count).End(xlUp).Row Print #1, Range("A" & t).Value & ","...
Respuesta
en
Microsoft Excel
a
Macros para extraer palabras especificas de un String
Parece que hay problemas en la página. Es la tercera vez que te lo envío. A ver si ahora. Sub extraer_Año_y_Mes() año = Mid(nom, InStr(1, nom, "2"), 4) mes = Mid(nom, InStr(1, nom, "_") + 1, InStr(1, nom, "2") - InStr(1, nom, "_") - 1) End Sub Cambia...
Respuesta
en
Microsoft Excel
a
Esta macro de mayúsculas me esta dando problemas
Utiliza el evento Change Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A12:D41, H12:H46")) Is Nothing Then Application.EnableEvents = False Target.Value = UCase(Target) Application.EnableEvents = True End If End...
Respuesta
en
VBA
y en 3 temas más
a
Ejecutar automáticamente cada cierto periodo de tiempo un código VBA Excel
Deberías utilizar el evento de aplicación OnTime. Aquí tienes una explicación clara y detallada de cómo utilizarlo. http://raymundoycaza.com/ejecutar-una-macro-periodicamente/ Si te ha valido la respuesta.
Respuesta
en
Microsoft Excel
a
Ejecutar la misma macro tanto como columnas hayan
A ver si te sirve: Sub Ejecuta_Macro() For t = 1 To Cells.SpecialCells(xlLastCell).Column 'Pon aquí el nombre de la macro que quieres que se ejecute' Next t End Sub Esto se ejecuta tantas veces cómo columnas tengas con datos. Si te ha valido la respuesta.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que me diga la ubicación de la celda que contenga el dato que quiero.
Puedes poner tu macro para poder ayudarte.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cómo dejar registradas las aperturas de un libro excel
Y que quieres que ponga en la celda, ¿día y hora? Si es así, pon esto el evento ThisWorkBook de tu libro Private Sub Workbook_Open() Cells(Range("G" & Rows.Count).End(xlUp).Row + 1, "G") = "Abierto el día " & Date & " a las: " & Time End Sub Si te ha...
Respuesta
en
Microsoft Excel
a
Macro que al modificar una celda
Pon esta macro en la hoja que quieras controlar: Private Sub Worksheet_Change(ByVal Target As Range) 'Por Marcial Castro' 'Cambia en la línea siguiente la celda que quieres controlar' If Not Intersect(Target, Range("A1")) Is Nothing Then ejecutar =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Buscar por filas en una base, una variable, y si coincide ingresa un resultado en otra columna de esa misma fila
Esta macro hace lo que pides. Estoy suponiendo que el rango es desde A2 hasta la última fila de datos de la columna E y pone el resultado en la columna F. Sub Busca_Cadenas() 'Por Marcial Castro col = "A" 'Columna donde comienza el Rango de búsqueda'...