Preciso que o botão de imprimir, receba o valor da textbox

Professor Pedro B.

Identidade verificada

• CPF verificado
• E-mail verificado

Respondeu há 1 ano

Melhor resposta

Essa foi a melhor resposta, escolhida pelo autor da dúvida

Olá Daniel,

Uma opção de solução para a sua questão seria o seguinte código:

Private Sub CommandButton1_Click()
Dim aba As String
aba = TextBox1.Value                   <- caso não seja o TextBox1, atualize com o nome do TextBox
Sheets(Array(aba)).PrintOut
End Sub

Qualquer dúvida, estou a disposição e boa sorte.

Professor Vitor D.

Identidade verificada

• CPF verificado
• E-mail verificado

Respondeu há 1 ano

Para imprimir a aba correspondente ao ID que está na TextBox1, você pode seguir os seguintes passos:

1. Armazene o valor da TextBox1 em uma variável. Por exemplo, suponha que a variável se chama "id" e você já atribuiu o valor da TextBox1 a ela.

2. Verifique se a aba com o nome igual a "id" existe na planilha. Você pode fazer isso usando a função WorksheetFunction.CountIf, que verifica se um valor existe em um intervalo. Por exemplo, suponha que as abas estão nas células A1:A10 da planilha "Dados". O código para verificar se a aba existe seria:Dim existe As Long
   existe = WorksheetFunction.CountIf(Sheets("Dados").Range("A1:A10"), id)
   If existe = 0 Then
       MsgBox "A aba correspondente ao ID não existe."
       Exit Sub
   End If

3. Se a aba existe, imprima-a usando o método PrintOut da seguinte maneira: Sheets(id).PrintOut
4.  
5. Esses códigos podem ser incluídos no sub procedimento que é executado pelo botão de impressão dentro do UserForm. Note que é importante verificar se a aba existe antes de tentar imprimir para evitar erros.