Luis Herrero Casares

Lo he conseguido, poniendo: =CONTARA(Listado!F523:H545)

Lo he conseguido poniendo: Sub RESTOS() ' Macro grabada el 11/04/2014 por Luis Cells.Find(What:="RESTOS", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True,...

Yo estoy usando esta macro, colocada en ThisWorkbook: Private Sub Workbook_Open() If Day(Date) = 5 Then MACRO ' Nombre de la macro End If End Sub

Lo he conseguido poniendo: While ActiveCell <> "" ActiveCell.Offset(0, 1). Activate Wend

Lo he conseguido poniendo en ThisWorkbook: Private Sub Workbook_Open() ActiveWorkbook.Names.Add Name:="tblArticulos", RefersToR1C1:= _ "=OFFSET(Listado!R10C4,0,0,COUNTA(Listado!R10C4:R65000C12),13)" End Sub Y ha quedado solucionado

Lo he conseguido, poniendo en un modulo : Option Explicit Public Function AMayusculas(strTexto As String) As String AMayusculas = UCase(strTexto) End Function Y en la hoja que lo necesito : Option Explicit Private Sub Worksheet_Change(ByVal Target As...

Lo he solucionado más o menos poniendo: Private Sub Worksheet_Activate() Range("C4").Select Selection.End(xlDown).Select End Sub No he conseguido, la fila libre pero si la ultima fila escrita.

Tengo suerte, he conseguido lo que quería. Con esta macro: Dim img As Shape On Error Resume Next For Each img In ActiveSheet.Shapes If Not Application.Intersect(img.TopLeftCell, Selection) Is Nothing Then If img.Type = msoPicture Then img.Delete End...