Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por AlanBC
Posts
#51891
ola pessoal...
alguem pode me ajudar nessa macro???
tenho uma planilha com varias abas... algumas visiveis e outras ocultas, mas plan1 sempre estará visivel (xlSheetVisible) ;
preciso de uma macro que identifique e conte as abas visiveis (xlSheetVisible) do workbook e
se tiver 1 aba visivel(nesse caso, sera sempre a Plan1) sai dessa macro; mas
se tiver 2 ou mais abas visiveis (Plan1 e mais outras) segue e executa o procedimento dessa macro.
vai rodar no evento activate da Plan1.

muito obrigado
abraço a todos
Por osvaldomp
#51893
Experimente:
Código: Selecionar todos
Dim ws As Worksheet, k As Long
  For Each ws In ThisWorkbook.Worksheets
   If ws.Visible = True Then k = k + 1: If k = 2 Then Exit For
  Next ws
   If k = 1 Then Exit Sub
  'demais comandos da sua macro
Editado pela última vez por osvaldomp em 23 Jan 2020 às 09:08, em um total de 1 vez.
Por babdallas
#51894
Código: Selecionar todos
Public Function ContPlanVisiveis() As Long
    Dim wshPlan     As Worksheet
    Dim lngCont     As Long
    
    'Loop por todas as planilhas, verifica se cada planilha está visível. Se sim, faz a contagem.
    For Each wshPlan In ThisWorkbook.Worksheets
        If wshPlan.Visible Then lngCont = lngCont + 1
    Next wshPlan
    
    'Atribui à função o número de planilhas visíveis
    ContPlanVisiveis = lngCont
End Function

Public Sub Principal()
    
    If ContPlanVisiveis > 1 Then
        'Outras linhas de código
    End If
End Sub
Por AlanBC
Posts
#51916
pessoal...
vlw msm!
as duas solucoes funcionaram da maneira que precisava.
muito obrigado!!!
forte abraço.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord