Pregunta en
Microsoft Excel
En esta macro lograr que la imagen que se agrega, este sin proteger
Necesitaría que en esta Macro : Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ' AGREGAR FECHA EN UNA COLUMNA '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- If Target.Column =...
Pregunta en
Microsoft Excel
Ventajas y desventajas de usar archivos (.xls) o (.xlsm)
Se que tendría que instalar Microsoft Office Excel 2.007. Pero me interesaría información de lo que me convendría, en usar archivos (.xls) o (.xlsm).
Pregunta en
Microsoft Excel
Tengo esta macro hecha perfecta y necesito agregar unos parámetros
Tengo esta macro hecha perfecta : Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor ActiveSheet.Unprotect Password:="1" If Not Intersect(Target, Range("B6:B20")) Is Nothing Then filas = Target.Rows.Count Application.EnableEvents =...
Pregunta en
Microsoft Excel
A esta macro, no variar fecha y cambiar escritura al volver a escribir
En esta macro cuando escribo por primera vez en la columna "D", perfecta : Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("B10:E6000")) Is Nothing Then Application.EnableEvents = False...
Pregunta en
Microsoft Excel
En esta macro, rectificar el cambio de letra y color de la celda
Tengo esta macro creada por Dante Amor, que me va perfecta: Pero me interesaría que cuando vuelvo a escribir en la columna "D", que me la pone en negrita en el Range("A10:E60000") solamente en la línea que escribo. Me la ponga también e la letra en...
Pregunta en
Microsoft Excel
En un rango de celdas para el día y mes, poner en rojo la celda con letra blanca, el día actual
Tengo esta macro : Private Sub Worksheet_Calculate() 'Por.Dante Amor Application.EnableEvents = False Set h = Sheets("Hoja1") mes = Format(Date, "mmmm") dia = Day(Date) Set b = h.Range("C4:C15").Find(mes, lookat:=xlWhole) If Not b Is Nothing Then f =...
Pregunta en
Microsoft Excel
Poner una macro, que se ejecute en Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Tengo esta macro perfecta : Sub ContabilizarVentaDiaria() Set h = Sheets("Hoja1") mes = Format(Date, "mmmm") dia = Day(Date) Set b = h.Range("C4:C15").Find(mes, lookat:=xlWhole) If Not b Is Nothing Then f = b.Row Set b = h.Range("D2:AH2").Find(dia,...
Pregunta en
Microsoft Excel
Necesitaría una macro, para contabilizar venta diaria.
Necesitaría una macro, para contabilizar venta diaria, tengo esta macro pero es mensual: Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="1" On Error Resume Next Application.ScreenUpdating = False col_mes_actual = Format([C1], "m") +...
Pregunta en
Microsoft Excel
Conversión de celdas de texto a numero
Tengo esta macro grabada por mi: ActiveSheet.Unprotect Password:="1" Range("H20:I34").Select ' TENGO PUESTO EN CADA CASILLA 1 Selection. Copy Range("F20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _ SkipBlanks:=False,...
Pregunta en
Microsoft Excel
Convertir un rango de celdas a numero
Necesitaría en el : Range("F20:F35").Select Convertir las celdas a numero