Muca Costa
-
Posts
241 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de Muca Costa em VBA - preencher células até o final foi marcado como solução
É isso mesmo!
Sub Preencher() Range("E2:F2").Select Selection.AutoFill Destination:=Range("E2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row) Range("E2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row).Select Range("E1").Select End Sub
-
O post de Muca Costa em Alinhamento de planilha excel foi marcado como solução
Em E1: =SEERRO(PROCV(D1;A:B;2;0);0)
Replicar para outras linhas de E
-
O post de Muca Costa em Como fazer macro para vincular Hiperlink a uma aba da planilha foi marcado como solução
Tente assim:
Sub Duplica_e_Renomeia() Dim Plan As Worksheet Dim NovaPlan As Worksheet Dim P As String Set DuplPlan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) With ActiveSheet P = .Cells(.Rows.Count, "F").End(xlUp).Row + 1 End With DuplPlan = InputBox("Digite o nome da planilha que deseja duplicar:", "DUPLICAR PLANILHA!") 'Faz uma cópia da planilha Sheets(DuplPlan).Copy After:=Sheets(ThisWorkbook.Worksheets.Count) Set Plan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) Plan.Name = InputBox("Digite o nome da nova planilha:", "NOVA PLANILHA!", Plan.Name) MsgBox "Planilha " & Plan.Name & " foi criada!" Sheets("OS's").Select Range("F" & P).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Plan.Name & "!A1", TextToDisplay:=Plan.Name End Sub
-
O post de Muca Costa em Como fazer macro para vincular Hiperlink a uma aba da planilha foi marcado como solução
Tente assim:
Sub Duplica_e_Renomeia() Dim Plan As Worksheet Dim NovaPlan As Worksheet Dim P As String Set DuplPlan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) With ActiveSheet P = .Cells(.Rows.Count, "F").End(xlUp).Row + 1 End With DuplPlan = InputBox("Digite o nome da planilha que deseja duplicar:", "DUPLICAR PLANILHA!") 'Faz uma cópia da planilha Sheets(DuplPlan).Copy After:=Sheets(ThisWorkbook.Worksheets.Count) Set Plan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) Plan.Name = InputBox("Digite o nome da nova planilha:", "NOVA PLANILHA!", Plan.Name) MsgBox "Planilha " & Plan.Name & " foi criada!" Sheets("OS's").Select Range("F" & P).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Plan.Name & "!A1", TextToDisplay:=Plan.Name End Sub
-
O post de Muca Costa em Como fazer macro para vincular Hiperlink a uma aba da planilha foi marcado como solução
Tente assim:
Sub Duplica_e_Renomeia() Dim Plan As Worksheet Dim NovaPlan As Worksheet Dim P As String Set DuplPlan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) With ActiveSheet P = .Cells(.Rows.Count, "F").End(xlUp).Row + 1 End With DuplPlan = InputBox("Digite o nome da planilha que deseja duplicar:", "DUPLICAR PLANILHA!") 'Faz uma cópia da planilha Sheets(DuplPlan).Copy After:=Sheets(ThisWorkbook.Worksheets.Count) Set Plan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) Plan.Name = InputBox("Digite o nome da nova planilha:", "NOVA PLANILHA!", Plan.Name) MsgBox "Planilha " & Plan.Name & " foi criada!" Sheets("OS's").Select Range("F" & P).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Plan.Name & "!A1", TextToDisplay:=Plan.Name End Sub
-
O post de Muca Costa em VBA - Textbox com % fixo foi marcado como solução
Veja se o anexo lhe ajuda...
ExemploVBA-TextBox.rar
-
O post de Muca Costa em mover o cursor para determinando o sentido e restrição de células. foi marcado como solução
Veja o anexo e faça as adaptações necessárias para seu objetivo...
mov-cursor.rar
-
O post de Muca Costa em mover o cursor para determinando o sentido e restrição de células. foi marcado como solução
Veja o anexo e faça as adaptações necessárias para seu objetivo...
mov-cursor.rar
-
O post de Muca Costa em mover o cursor para determinando o sentido e restrição de células. foi marcado como solução
Veja o anexo e faça as adaptações necessárias para seu objetivo...
mov-cursor.rar
-
O post de Muca Costa em procurar valores dependentes sem usar intervalos nomeados foi marcado como solução
Veja se é isso:
DUVIDA 02.xlsx
-
O post de Muca Costa em banco de dados excel - etiqueta de solicitação foi marcado como solução
Veja o anexo já com pesquisa para o Código
Como fazer para estender o campo de pesquisa?
Use o Gerenciador de Nomes (atalho CTRL+F3) para atualizar conforme necessário.
Selecione o nome com o qual deseja trabalhar e, em seguida, altere a referência diretamente (ou seja, edite “se refere”), ou clique no botão à direita e selecione um novo intervalo.
BD - ETIQUETA SOLICITAÇÃO.rar
-
O post de Muca Costa em Gerar PDF a partir de determinada aba foi marcado como solução
O arquivo tem 20 abas, então seria de 3 a 20 e não de 3 a 18
Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)).Select
-
O post de Muca Costa em Gerar PDF a partir de determinada aba foi marcado como solução
O arquivo tem 20 abas, então seria de 3 a 20 e não de 3 a 18
Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)).Select
-
O post de Muca Costa em Gerar PDF a partir de determinada aba foi marcado como solução
O arquivo tem 20 abas, então seria de 3 a 20 e não de 3 a 18
Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)).Select
-
O post de Muca Costa em Macro Copia+Cola celula vazia foi marcado como solução
Buscar a próxima vazia na coluna E
Sub ProxVazia() Dim i As Integer i = 2 'linha inicial Do While Range("E" & i).Value <> "" i = i + 1 Loop Range("E" & i).Select End Sub
-
O post de Muca Costa em Imprimir arquivo via textbox foi marcado como solução
Veja se o anexo lhe ajuda. É só adaptar à sua necessidade...
ImprimirArquivos.rar
-
O post de Muca Costa em Imprimir arquivo via textbox foi marcado como solução
Veja se o anexo lhe ajuda. É só adaptar à sua necessidade...
ImprimirArquivos.rar
-
O post de Muca Costa em Imprimir arquivo via textbox foi marcado como solução
Veja se o anexo lhe ajuda. É só adaptar à sua necessidade...
ImprimirArquivos.rar
-
O post de Muca Costa em leitura e prenchimento automático foi marcado como solução
- A Aba DADOS é preenchida com base na Aba RELATÓRIO, ao acionar a Sub DADOS()
- A Aba FILTROS é preenchida com base na Aba DADOS, ao acionar a Sub Filtrar()
- A Sub DADOS()além de buscar registros em RELATÓRIO, trata-os chamando as
Subs nessa ordem:
1 - DelA (deleta linhas com base na Function DeleteRowsByCriteria)
2 - ExtrairTexto (Preenche a coluna B da Aba DADOS)
3 - VEICULO (Preenche as linha da coluna A da Aba DADOS)
4 - DelB (deleta linhas com base na Function DeleteRowsByCriteria)
5 - ListaVeículo (Preenche a coluna J da Aba DADOS que ajuda no filtro da Aba FILTROS)
- A Sub Filtrar busca registros na Aba DADOS, preenche a Aba FILTROS, com base na informação em A2.
- você pode deletar o Módulo2
É isso; agora é com você!
-
O post de Muca Costa em VBA_Gravando Dados Condicionais x Células Vazias foi marcado como solução
Primeiro:
Sub Gravar() Dim Ul As String, i As Integer Ul = Planilha11.Cells(Rows.Count, "B").End(xlUp).Row 'Conta linhas preenchidas em B Aba BANCODEDADOS For i = 2 To Ul 'Busca, em BANCO DE DADOS, a data correspondente a B6 de OPERAÇÕES If Planilha11.Cells(i, 2) = Planilha9.Cells(6, 2) Then 'Se em linha (i) & coluna B de BANCODEDADOS for igual a B6 de OPERAÇÕES, grava os dados Planilha11.Cells(i, 6) = Planilha9.Cells(4, 7) 'linha (i) & coluna F de BANCODEDADOS igual a G4 de OPERAÇÕES Planilha11.Cells(i, 18) = Planilha9.Cells(4, 5) 'linha (i) & coluna R de BANCODEDADOS igual a E4 de OPERAÇÕES Planilha11.Cells(i, 19) = Planilha9.Cells(4, 4) 'linha (i) & coluna S de BANCODEDADOS igual a D4 de OPERAÇÕES Planilha11.Cells(i, 20) = Planilha9.Cells(4, 13) 'linha (i) & coluna T de BANCODEDADOS igual a M4 de OPERAÇÕES End If Next Range("B6").Select MsgBox "FIM" End Sub Segundo:
Muito confuso, não entendi...
-
O post de Muca Costa em Tratar texto excel com Função Vba foi marcado como solução
Veja se ajuda: Execute a Sub Arrumar()
Sub Arrumar() Extrair Excluir Finalizar Columns("A:B").Select Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub Sub Extrair() Dim P As String, Ultimalinha As String, Lin As String, i As Integer With ActiveSheet P = .Cells(.Rows.Count, "A").End(xlUp).Row End With Ultimalinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row Lin = 1 For i = 1 To Ultimalinha Planilha1.Cells(Lin, 2) = Left(Planilha1.Cells(i, 1), 5) Lin = Lin + 1 Next End Sub Sub Excluir() Dim LR As Long, k As Long LR = Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For k = LR To 1 Step -1 If Cells(k, "A").Value <> "" Then c1 = Cells(k, "A").Replace("NF:", "", xlPart) c2 = Cells(k, "A").Replace("/", "", xlPart) c3 = Cells(k, "A").Replace("PLC:", "", xlPart) c4 = Cells(k, "A").Replace(". I ", "", xlPart) c5 = Cells(k, "A").Replace(".", "", xlPart) c6 = Cells(k, "A").Replace("-", "", xlPart) c7 = Cells(k, "A").Replace("0", "", xlPart) c8 = Cells(k, "A").Replace("1", "", xlPart) c9 = Cells(k, "A").Replace("2", "", xlPart) c10 = Cells(k, "A").Replace("3", "", xlPart) c11 = Cells(k, "A").Replace("4", "", xlPart) c12 = Cells(k, "A").Replace("5", "", xlPart) c13 = Cells(k, "A").Replace("6", "", xlPart) c14 = Cells(k, "A").Replace("7", "", xlPart) c15 = Cells(k, "A").Replace("8", "", xlPart) c16 = Cells(k, "A").Replace("9", "", xlPart) c17 = Cells(k, "A").Replace("/", "", xlPart) End If Next k Application.ScreenUpdating = True Range("A1").Select End Sub Sub Finalizar() Dim P As String, Ultimalinha As String, Lin As String, i As Integer With ActiveSheet P = .Cells(.Rows.Count, "A").End(xlUp).Row End With Ultimalinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row Lin = 1 For i = 1 To Ultimalinha Planilha1.Cells(Lin, 3) = Planilha1.Cells(i, 2) & Planilha1.Cells(i, 1) Lin = Lin + 1 Next End Sub
-
O post de Muca Costa em Como faço para executar um script dentro de um script ? foi marcado como solução
Tente isso:
import sys
import subprocess
path = 'Informe o diretório dos scripts'
arquivos = [path + '\Script1.py', path + '\Script2.py', path + '\Script3.py', path + '\Script4s.py', path + '\Script5.py']
processos = []
for arquivo in arquivos:
processo = subprocess.Popen([sys.executable, arquivo])
processos.append(processo)
# neste ponto todos os scripts estão rodando em background ao mesmo tempo.
# Vamos esperar todos eles terminarem:
for processo in processos:
processo.wait()
-
O post de Muca Costa em Filtrar duas Guias Diferentes em uma única - para fazer uma comparação foi marcado como solução
Veja se ajuda:
O filtro desejado é feito a partir de Form, clicando nos botões Filtrar A e Filtrar B a partir da coluna S. Pode ser feito por cliente, por produto, por classe e por princípio...
FiltroAvançado007.rar
-
O post de Muca Costa em Excel VBA - Copiando e colando códigos em Loop foi marcado como solução
Veja se ajuda:
Os eventos abaixo objetivam percorrer os códigos da coluna A informando, automaticamente, na célula F3 o item selecionado na coluna A. Basta você incluir sua macro de cálculos, exportação para PDF, etc..
Evento de Planilha:
Click lado direito na Aba Base_Códigos > Exibir código e inclua o evento abaixo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Range("F3") = Target.Offset(, 0).Value End Sub Em um módulo:
Sub PercorreColunaA() Dim i As Long Dim iUltimaLinha As Long Dim iCol As Long Planilha1.Range("F3").Select iUltimaLinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row iCol = 1 'Informe a coluna que será verificada, ou seja, a coluna A For i = 3 To iUltimaLinha If Cells(i, iCol) <> "" Then Cells(i, iCol).Select 'Aqui Sua macro End If Next i Planilha1.Range("F3").Select MsgBox "Filtro finalizado", vbInformation, "© Muca Sistemas - 2020" End Sub
-
O post de Muca Costa em Se uma célula for maior que zero, a outra fica em branco, Excel 2003 e 2007 foi marcado como solução
Tente assim:
=SE(R5="";I5;"")
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
