Respuesta
en
Microsoft Excel
a
Extraer las consonantes de palabras
Agrega este código en un modulo de la planilla : Function Consonantes(Text As String) As String Text = UCase(Text) For X = 1 To Len(Text) If Mid(Text, X, 1) <> "A" And Mid(Text, X, 1) <> "E" And Mid(Text, X, 1) <> "I" And Mid(Text, X, 1) <> "O" And...
Respuesta
en
Microsoft Excel
a
Macro para agregar filas en Excel
Agrega este código. Sub Agregar_Filas() Ciclo = Range("A65535").End(xlUp).Row Filas = 1 Do While Filas <= Ciclo If Cells(Filas, 1) = "FECHA:" Then If Cells(Filas + 1, 1) = "NOMBRE Y APELLIDOS:" Then If Cells(Filas + 2, 1) = "NIF:" Then If Cells(Filas...
Respuesta
en
Microsoft Excel
a
Eliminar filas con macro
Agrega este código. Lo tienes que ejecutar sin autofiltro : Sub Eliminar_Filas() For Filas = 1 To Range("A65535").End(xlUp).Row If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Then Range(Filas & ":" & Filas).Select Selection.Delete...
Respuesta
en
Microsoft Excel
a
Macro para combinar datos de filas
Ingresa este código : Sub Nueva_Forma() Dim Filas, Aux As Long Aux = 0 For Filas = 1 To Range("A65535").End(xlUp).Row If InStr(Cells(Filas, 1), ":") = 0 Then Cells(Filas - 1, 2) = Cells(Filas - 1, 1) & " " & Cells(Filas, 1) Else Cells(Filas, 2) =...
Respuesta
en
Microsoft Excel
a
Tabla dinámica - campo personalizado con fórmula
Se como hacer la macro de agregar fórmulas a tu tabla dinámica, pero necesito tu rutina de como haces la tabla dinámica. Si me enviaras el archivo con la rutina grabada seria genial, pero si no es así. Mandame el archivo con la tabla dinámica y con...
Respuesta
en
Microsoft Excel
a
Ayuda con macro de excel
Agrega este código : Sub Copiar_Hoja_Formato() Sheets("FORMATO").Select Sheets("FORMATO").Copy ActiveWorkbook.SaveAs Filename:="C:\Users\betin\Desktop\ABASTOS\Ultima_Factura.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _...
Respuesta
en
Microsoft Excel
a
Correr macro sin importar cambio de nombre de archivo
Agrega esto a tu código : NomArchivo = ActiveWorkbook.Name y lugo llamas al archivo de la siguiente manera: Application.Run "'" & NomArchivo & ".xls'!Pareto_Linea_1" Application.Run "'" & NomArchivo & ".xls'!Pareto_Linea_2" Application.Run "'" &...
Respuesta
en
Microsoft Excel
a
Guardar archivo sin macros
Te recomiendo que al iniciar la macro, no hagas los cambios sobre el mismo archivo. Agrega este comando al principio del código el cual abre un documento nuevo : Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 Luego traes los...
Respuesta
en
Visual Basic
a
Ayuda por fa
Lo puedes hacer de dos formas: 1.- Guardando en una variable el archivo utilizado Anteriormente. 2.- Indicarle al webbrowser de esta manera : WebBrowser1. GoBack Espero que sea de tu ayuda. Cualquier consulta no dudes en preguntar. Suerte Pitcher ! A...
Respuesta
en
Visual Basic
a
Buscarv abriendo un archivo (Macros Excel)
Agregue un comando para saber el Nombre de la hoja el cual tiene que ir en la fórmula, no como ruta. Sub AbrirArchivoPuc() Dim stArchivoElegido As Variant 'Continua la macro aún si un error ocurre On Error Resume Next 'Abre la ventana para buscar el...