Vídeo recomendado
https://youtu.be/diWPPPhW-9E

inserir dados em planilha oculta

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

inserir dados em planilha oculta

Mensagem por fabiodias »

Pessoal!!

v se alguem pode me ajudar nessa por favor..

coloquei uma formula para executar quando abre a planilha... só que essa planilha tem que ficar oculta para caso a macro nao esteja habilitada, não aparecer para o usuário. Só que por estar oculta, a formula que esta no VBA para inserir nela da erro.

a formula é essa:

Código: Selecionar todos

Range("I2").Select
ActiveCell.FormulaR1C1 = "=(VLOOKUP(R[-1]C,RC[-2]:R[25]C[-1],2,FALSE))"
Range("F2:F52").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(R2C9,RC[4])"
tem como essa formula funcionar mesmo se a planilha estiver oculta??

abraço!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: inserir dados em planilha oculta

Mensagem por webmaster »

Fabio,

ActiveCell só funciona se a planilha puder aparecer, que não é o seu caso. Então, é preciso referenciar a célula de forma absoluta:

Código: Selecionar todos

Worksheet("NomeDaSuaPlanilha").Range("I2").FormulaR1C1 = "=(VLOOKUP(R[-1]C,RC[-2]:R[25]C[-1],2,FALSE))"
Worksheet("NomeDaSuaPlanilha").Range("F2:F52").FormulaR1C1 = "=CONCATENATE(R2C9,RC[4])"
No caso, só tirei o Select pois ele não é necessário.

Abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: inserir dados em planilha oculta

Mensagem por fabiodias »

Tomas!

fiz a muddança mas ta dando "erro esta pasta de trabalho".

o codigo todo é esse:

Código: Selecionar todos

Option Explicit

Private Declare Function GetDriveType Lib "kernel32" _
    Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Function DriveType(DriveLetter As String) As String
    DriveLetter = Left(DriveLetter, 1) & ":\"
    Select Case GetDriveType(DriveLetter)
        Case 5: DriveType = "CDROM"
   End Select
End Function

Private Sub Workbook_Open()
    Dim LetterCode As Long
    Dim Row As Long
    Dim DT As String
    Range("G1:H1") = Array("Tipo", "Drive")
    Row = 2
    For LetterCode = 65 To 90
        DT = DriveType(Chr(LetterCode))
        If DT <> "Non-existent" Then
            Cells(Row, 8) = Chr(LetterCode) & ":\"
            Cells(Row, 7) = DT
            Row = Row + 1
        End If
    Next LetterCode
    
Worksheet("NomeDaSuaPlanilha").Range("I2").FormulaR1C1 = "=(VLOOKUP(R[-1]C,RC[-2]:R[25]C[-1],2,FALSE))"
Worksheet("NomeDaSuaPlanilha").Range("F2:F52").FormulaR1C1 = "=CONCATENATE(R2C9,RC[4])"

Dim existe As Boolean

'********  Desabilita as barras do excel ******

With ActiveWindow
     .DisplayGridlines = False
     .DisplayHeadings = False
     .DisplayHorizontalScrollBar = True
     .DisplayVerticalScrollBar = True
     .DisplayWorkbookTabs = False
End With

existe = False
With Application
     For Each barra In .CommandBars
         If barra.Name = "xxx" Then
            barra.Visible = True
            existe = True
            Exit For
         End If
     Next
     If existe = False Then
        Set cbar1 = .CommandBars.Add(Name:="xxx", MenuBar:=True)
        Set myBlankBtn = .CommandBars("xxx").Controls.Add(Type:=msoControlButton, ID:=18)
        Set myBlankBtn = .CommandBars("xxx").Controls.Add(Type:=msoControlButton, ID:=4)
        cbar1.Visible = True
        End If

End With
End Sub


primeiro é para buscar as informações do CD, depois para concatenar a informação com o caminho do arquivo, e por final coloquei um codigo que oculpa as planilhas.

coloquei tudo no "Esta Pasta de Trabalho"

o erro que deu é que precisa de "sub" ou "function"


com esse codigo da pra saber o erro??

desde ja agradeço a atenção!!

abraços!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: inserir dados em planilha oculta

Mensagem por webmaster »

Fabio,

Substitua "NomeDaSuaPlanilha" pelo nome real da sua planilha (Plan1, Plan2, etc.).

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: inserir dados em planilha oculta

Mensagem por fabiodias »

Valew pela ajuda Tomas!!

Resolvido!!

Abraço!


ander.schmitt
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Dez 12, 2017 7:24 am

Re: inserir dados em planilha oculta

Mensagem por ander.schmitt »

'campo x
Sheets("Plan1").Select
Range("d4").Select
Selection.Copy
Sheets("Plan2").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select

ActiveCell.Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Tenho esse código e gostaria de realizar essa operação salvando em uma planilha oculta.
Tem como?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder