Victor Rodriguez

Léete esto http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/240-exportar-flexgrid-a-excel.htm

Excel no lo permite. La única opción que tienes es darle a CTRL+ALT+Flecha Izquierda

Este código es para el ejemplo de que la celda que se cambie sea la A1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Dim oEmail As New clsOutlookEmail With oEmail .AddToRecipient = "el mail...

Entiendo que el nº de parte es único y no puede haber el mismo nº de parte para diferentes nº de orden. En ese caso, lo mejor para ti es aplicar un formato condicional como el que te adjunto

Lo mejor sería hacer una copia una vez hayas cargado todos los datos. Sería una macro así: Sub copiar() ThisWorkbook.SaveCopyAs "C:\Users\usuario\Desktop\copia.xlsx" End Sub Deberás cambiar la ruta "C:\Users\usuario\Desktop\COPIA\copia.xlsx" por la...

Este código te servirá: Sub totxt() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim Fileout As Object Dim nombre As String, texto As String i = 1 j = 1 Do texto = Cells(j, 1).Value nombre = Cells(i, 2).Value If nombre = ""...

Este código te valdrá: Sub numeros() Range("a2").Select j = 0 i = 2 Do ac = ActiveCell.Value uno = Left(ac, 1) dos = Right(Left(ac, 2), 1) tres = Left(Right(ac, 2), 1) cuatro = Right(ac, 1) Cells(i, 21 + j) = uno Cells(i, 22 + j) = dos Cells(i, 23 +...

El divisor del campo calculado que tienes que usar es MAX FTE en vez de FTE =INCURRIDAS/MAX(FTE)

El código que necesitas es este: Sub copiar_pegar() Set h1 = Workbooks("MMampo.xls").Sheets("MMampo.xls") Set h2 = Workbooks("datos mm.xlsm").Sheets("Hoja1") h2.Activate u = Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u, "A") = h1.[A1]...

Ya está arreglado