Abraham Valencia

1- Para asignarle una macro a un botón de la barra de herramientas: With CommandBars.Add(Name:="Nombredelabarradondeestaraelboton") With .Controls.Add(Type:=msoControlButton) .OnAction = "nombredemacroaasignar" .FaceId = 59 .TooltipText = "Blablabal"...

Dim Hoja As WorkSheet For Each Hoja In WokSheets Hoja.Unprotect "clave" 'tus cambios Hoja.Proyect "clave" Next Hoja Abraham

En mi web encontraras algunas cosas que te serán útiles: Mi_web Abraham

Pues, creo que este enlace te sera muy útil: Enlace Abraham

Dim alto%, lado% alto% = [B2].Top lado% = [B2].Left With ActiveSheet.Shapes("Group Box 1") .Top = alto% .Left = lado% End With Abraham

Usa BUSCARV, mira en el ejemplo: Ejemplo Abraham

Por aquí: Enlace Abraham

Algo así: Sub reeeeem() Dim hoja As Worksheet For Each hoja In Worksheets hoja.Activate Cells.Replace What:="palabrabuscada", Replacement:="palabranueva", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False,...

En esta ejemplo la página de BUSCARV: Ejemplo Abraham

Ejemplo: Private Sub CommandButton1_Click() [a2].Select Do While ActiveCell <> "" If ActiveCell.EntireRow.Hidden = False Then ComboBox1.AddItem ActiveCell End If ActiveCell.Offset(1, 0).Select Loop End Sub Abraham