Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO que me remplace la formula de =
Si lo que quieres es una línea de código que te haga lo mismo, sería: Sheets("Hoja2").[C10].Value=Sheets("Hoja1").[B1] Pon los nombres de tus hojas y listo. Si te ha valido la respuesta.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro quitar acentos de una hoja
El problema lo tienes en cómo está comparando la función Replace. Cambia vbTextCompare por vbBinaryCompare y te funcionará correctamente, pon: .Value = VBA.Replace(.Value, s(i), r(i), 1, -1, vbBinaryCompare) Para que sólo se ejecute en la hoja que...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Función contar. Si. Conjunto en macro
Para que sea más rápido, utiliza la forma abreviada de especificación de rangos: Sub contar_si_conjunto() MsgBox (WorksheetFunction.CountIfs( _ [A1:A99000], "Isabel", _ [B1:B99000], "J.Ramón", _ [C1:C99000], "Sofía", _ [D1:D99000], "Antón", _...
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
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
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
Hacer click en una celda de excel en un Rango determinado y que salga un valor determinado
Esta macro controla esos dos rangos: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B17:C86")) Is Nothing Then ActiveCell = "Z" End If If Not Intersect(Target, Range("B95:C164")) Is Nothing Then...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Modificar macros para exportar Excel a TXT
Copia esta tu macro modificada en un módulo: Public Sub EXPORTAR() Const DELIMITER As String = "," Dim myRecord As Range Dim myField As Range Dim nFileNum As Long Dim sOut As String nFileNum = FreeFile ruta = ThisWorkbook.Path ChDir ruta Open...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Crear macro para eliminar filas cuyo valor sea igual a cero
Esta macro hace lo que necesitas: Sub Eliminar_filas() 'Ultima fila de datos uf = Range("A" & Rows.Count).End(xlUp).Row 'Recorremos el bucle desde la última fila con datos, hasta la fila 6' For f = uf To 6 Step -1 'Si la celda de la columna "E" de la...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Mostrar Msgbox solo una vez al ingresar un dato erróneo en un textBox.
Si cambias el evento Chage por el evento Exit, lo tienes solucionado. El evento Exit sólo se ejecuta, cuando sales del control TextBox1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.MaxLength = 5 If Val(TextBox1) < 11...