SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.

[email protected]

Option Explicit

Sub Criar_Botoes_ID()
Dim x1 As Integer
Dim x2 As Integer
Dim i As Integer
Dim Titulo As String
Dim Ident As Integer

On Error Resume Next

x1 = Range("ini").Value
x2 = Range("fim").Value

If x2 < x1 Then x2 = x1

Call EliminarFiguras

Sheets("Botões").Select

Range("A1").Value = "ID"
Range("B1").Value = "Figura"
Range("C1").Value = "Descrição"
Range("B1").Select

Application.CommandBars.Add(Name:="temp").Visible = False

For i = x1 To x2
With Application.CommandBars("temp")
.Controls.Add Type:=msoControlButton, ID:=i, Before:=1

If .Controls.Count > 0 Then
Titulo = .Controls(1).Caption
Ident = .Controls(1).ID

If Titulo > "" Then
.Controls(1).CopyFace
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Value = Ident
ActiveCell.Offset(0, 1).Value = Titulo
ActiveSheet.PasteSpecial

.Controls(1).Delete
End If

End If

End With
Next i
Application.CommandBars("temp").Delete

Range("B1").Select

Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel







Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino