Respuesta
en
Microsoft Excel
a
Muchos nombres definidos por el programa que dan problemas
Esto se puede deber a que cuando copias las celdas en otra hoja, hay formulas que usan el mismo nombre. Te dejo una macro que borra todos los nombres de la hoja. Sub Elimina_Nombres() 'Por Marcial Castro nNombres = ActiveWorkbook.Names.Count For t =...
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 1 temas más
a
Cómo hacer que la Lista despegable quede sin celdas vacías
Juan Carlos, esta macro realiza ese proceso. Sub Copiar_Sin_Blancos() Range("K2:M300").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection. Copy Range("AA2"). PasteSpecial xlPasteValues Application.CutCopyMode = False...
Respuesta
en
Microsoft Excel
a
Macro que colore una fila
Esta macro colorea el rango (A:D) de las filas Pares de tu hoja que tengan datos. Private Sub Colorear() For f = 1 To Range("A" & Rows.Count).End(xlUp).Row If f Mod 2 = 0 Then Range("A" & f & ":D" & f).Interior.ColorIndex = 15 End If Next f End Sub...
Respuesta
en
Microsoft Excel
a
Macro para cambiar el formato de números
Esta macro hace lo que necesitas: Sub Susstitir01() uf = Range("A" & Rows.Count).End(xlUp).Row For t = 1 To uf If InStr(1, Cells(t, "A"), "391+01") Then Cells(t, "A") = "392." & Mid(Cells(t, "A"), 7, Len(Cells(t, "A"))) End If Next t End Sub Si te ha...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para Exportar columnas condicionadas VBA Excel
Esta macro hace lo que tú deseas: Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") uf = h1.Range("A" & Rows.Count).End(xlUp).Row For f = 1 To uf If Cells(f, 9) > 200 Then h1.Range("C" & f & ",G" & f & ",I" &...
Respuesta
en
Microsoft Excel
a
Eliminar guiones de las deldas en las que exista al final, de una columna con datos
Esta macro hace lo que tu deseas: Sub Eliminar_guiones() 'Ultima fila de datos' uf = Range("AA" & Rows.Count).End(xlUp).Row 'Recorremos la columna AA hasta la última fila de datos' For f = 2 To uf 'Comprueba si el último caracter es un guión' If...
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
a
Excel se cuelga al cerrar
Copia todos los datos en un libro nuevo y grábalo. Es posible que tengas "basura" oculta en el libro. Si te ha valido la respuesta.