Luis Herrero Casares

Buenas tardes En cada una de las 50 hojas, en definir nombre, tengo el área de impresión. La pregunta es ¿Deberia tener una macro para todas ellas o dejarlo como està? Un saludo

De esta macro: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range(" A12:E60000")) Is Nothing Then Target.Value = UCase(Target.Value) End Sub Poder suprimir la linea : "On Error Resume Next" Y que...

Buenos días. Necesitaría que cuando ingreso datos en una celda de la columna "D", me salga la fecha del ingreso en la misma línea, en la columna "B". Un saludo

En esta macro de Columna_determinada: Sub Columna_determinada() columnalibre = Range("IV8").End(xlToLeft).Column + 1 'se busca la primer fila libre en hoja Fact Cells(8, columnalibre) = ActiveSheet.Range("I13") 'copiamos datos fijos ajustando nro col...

Tengo esta macro para todo mayúsculas: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(" A12:A41,C12:C41")) Is Nothing Then Target.Value = AMayusculas(Target.Value) End If End Sub Y en un modulo: Public Function...

Esta es la macro que quiero hacer: Sub Copiar_a_Registro() 'Hoja activa Range ("G10") Range ("G42") 'Hoja destino ("Provedores") Sheets("Provedores").Select filalibre = Range("B5:B37").End(xlUp).Row + 1 If filalibre < 5 Then filalibre = 5...

Tengo esta macro, para el listado de artículos en existencia por unidades: '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ' contabilizar salidas '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- On Error Resume Next With Sheets("Listado")...

Esta macro de mayúsculas me esta dando problemas al eliminar celdas se me borran las celdas o líneas: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("A12:D41, H12:H46")) Is Nothing Then...

Buenas tardes. Tengo esta macro en unas 50 hojas: Option Explicit Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("F12:F41")) Is Nothing Then Cancel = True Set rMiCelda =...

Al quitar esta macro de la hoja de cada cliente y ponerla en Thisworkbook : Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Select Case Sh.Name Case "Contado", "Adra Paco", "Balerma Trini", "El...